Колонтитулы - программное изменение

[zoman]

Как можно изменить имеющиеся верхние колонтитулы (произвольный текст + № страницы) для Word с помощью VBA?

[uhm]

Запиши макрос, сделай в нем мышкой все действия, потом посмотри его текст.

[zoman]

Запиши макрос, сделай в нем мышкой все действия, потом посмотри его текст.

А ты сам так пробовал?

После выполнения он делает там где установлен курсор

[uhm]

Мда, забыл, что в ворде макросы хреновастенько записываются... Я по ворду не специалист, если будет время, посмотрю.

[RayShade]

Нечего на Ворд пенять, коли голова не включается. Понятное дело, что он запишет для Selection макрос. Так его надо модифицировать самому потом уже.

[uhm]

Для Selection - это еще хорошо. Ты попробуй с колонтитулами поработать. Там правда уродский код получится, который еще и не работает. Из него, конечно, можно вывести то, что нужно, но далеко не сразу.

[zoman]

Вот так добавляем колонтитул:
Word.Document.Sections(1).Headers(1).Range.Text = "TEST"

Вот так добавляем к существующему колонтитулу:
Word.Document.Sections.Item(1).Headers.Item(1).Range.InsertBefore "TEST"

А мне надо еще варианты, типа как создать полный колонтитул с номером страницы, датой и временем...

[zoman]

Вообщем, чтобы не изобретать велосипед, сдлелал так:

В колонтитулах то, что надо менять - сделал полями.

Нюанс:
Word.Document.Fields.Update - обновляет поля для документа.
Word.Document.Sections(1).Headers(1).Range.Fields.Update - ОБНОВЛЯЕТ ПОЛЯ ДЛЯ КОЛОНТИТУЛОВ!!!