Статьи из блога

Статьи из блога

Макрос обновления полей в колонтитулах

Рубрика: Макросы
Метки: | |
Четверг, 13 марта 2008 г.
Просмотров: 4038
Подписаться на комментарии по RSS
Версия для печати

[Ссылки на статью]

Если ваши документы содержат колонтитулы (верхние и/или нижние) с включенными в них полями, то возникает ситуация, когда необходимо обновить эти поля. Делать вручную такую операцию не очень удобно. Поэтому можно воспользоваться следующим макросом:

Sub uHeadersFooters()
'Обновление всех полей в колонтитулах активного документа во всех разделах
Dim oSection As Section
Dim HF As HeaderFooter
For Each oSection In ActiveDocument.Sections
   For Each HF In oSection.Headers
      HF.Range.Fields.Update
   Next HF
Next oSection
For Each oSection In ActiveDocument.Sections
   For Each HF In oSection.Footers
      HF.Range.Fields.Update
   Next HF
Next oSection
End Sub

Если вы не знаете, как подключить к документу и применить этот макрос, изучите следующие заметки с сайта:

Создание макроса из готового кода

Автоматическая запись макроса

]]>twitter.com facebook Вконтакте Google Buzz google.com bobrdobr.ru del.icio.us technorati.com linkstore.ru news2.ru rumarkz.ru memori.ru moemesto.ru]]>

Это может пригодиться:

Комментариев: 4

  1. Luna
    13.03.2008 в 21:45 | #1

    Если документ предназначен для печати, то достаточно поставить птичку в Сервис - Параметры - Печать на "Обновлять поля".

  2. Леонид Бродский
    19.03.2008 в 11:33 | #2

    Код можно маленько оптимизировать:

    Sub uHeadersFooters()
'Обновление всех полей в колонтитулах активного документа во всех разделах
Dim oSection As Section
Dim HF As HeaderFooter
For Each oSection In ActiveDocument.Sections
   For Each HF In oSection.Headers
      HF.Range.Fields.Update
   Next HF
   For Each HF In oSection.Footers
      HF.Range.Fields.Update
   Next HF
Next oSection
End Sub

  3. Николай
    19.03.2008 в 17:31 | #3

    Да, Леонид, конечно. Спасибо.

  4. Владимир
    22.10.2010 в 15:23 | #4

    Здравствуйте!

    Word 2003 не позволяет просто вставить текстовое поле FORMTEXT в колонтитул.

    Параметр этого поля у меня внешний.

    Может можно сделать эту вставку макросом. Подскажите пожалуйста.

Оставьте комментарий!

(обязательно)

контакты

 
^ Наверх