Здравствуйте, Molchalnik, Вы писали:

M>кстати, работает, но я старой школы и очень против русификации кода. Динозавр, что делать, это не лечится. А почему не работает ThisWorkBook.ЭтогоМакросаИмя?

Я написал чисто псевдокод, совмещая текст и код. Даже удивительно, что так работает.

Наверное, VBА Ворда объявляет переменную для пользователя и, похоже, с учётом локализации, но никто не мешает тебе самому дообъявить ещё одну переменную, например, Set ThisWorkBook = ЭтаКнига.

PS
Мда, забыл объявить Dim ThisWorkBook As WorkBook, но это и не нужно. Вообще проверил сейчас: есть и ThisWorkBook как метод класса Global, т.е. доступен без указания чего-то перед этим именем, есть и ЭтаКнига.