Статьи из блога
Макрос обновления полей в колонтитулах
Если ваши документы содержат колонтитулы (верхние и/или нижние) с включенными в них полями, то возникает ситуация, когда необходимо обновить эти поля. Делать вручную такую операцию не очень удобно. Поэтому можно воспользоваться следующим макросом:
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
Если вы не знаете, как подключить к документу и применить этот макрос, изучите следующие заметки с сайта:
Создание макроса из готового кода
Рубрика: Макросы
Метки: колонтитулы | макросы | поля
Просмотров: 25894
Подписаться на комментарии по RSS
Версия для печати
Метки: колонтитулы | макросы | поля
Просмотров: 25894
Подписаться на комментарии по RSS
Версия для печати
Еще записи по вопросам использования Microsoft Word:
- 3 способа очистки списка недавно открытых документов
- Абзац с цветным фоном
- Автоматическая запись макроса
- Автоматическая расстановка переносов
- Автоматическое обновление полей при открытии документа
- Автоматическое сохранение документа при его закрытии
- Быстрая смена ориентации страниц документа
- Быстрое перемещение между открытыми документами Word
- Быстрое создание нового документа на основе шаблона
- Быстрый ввод текста с помощью команды =rand()
- Ввод часто повторяющихся фрагментов текста
- Вставка будущей даты
- Вставка документа с книжной ориентацией в документ с альбомной ориентацией
- Вставка завтрашней даты
- Вставка изображений из указанной папки для Word 2007
- Вставка неформатированного текста
- Вставка скопированного текста в предопределенном формате
- Вставка текста с полями в нижний колонтитул
- Вставка текста с помощью кнопки
- Выделение видимой части экрана
- Двойная нумерация страниц в документе
- Задать обтекание текстом для всех рисунков в документе
- Замена жаргонных слов в тексте
- Замена знаков абзаца на пробелы в выделенном тексте
- Замена текста в скобках на пробел
Форум
Читают
Обсуждают
страницы
сайты
статистика
Комментариев: 8
Если документ предназначен для печати, то достаточно поставить птичку в Сервис - Параметры - Печать на "Обновлять поля".
Код можно маленько оптимизировать:
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Да, Леонид, конечно. Спасибо.
Здравствуйте!
Word 2003 не позволяет просто вставить текстовое поле FORMTEXT в колонтитул.
Параметр этого поля у меня внешний.
Может можно сделать эту вставку макросом. Подскажите пожалуйста.
В документе 10 разделов, поля в нижних и верхних колонтитулах, поля обновляются не во всех разделах
выявлена зависимость: не обновляются поля вставленные в надписи
У меня почему то поля не обновляются в колонтитулах, макрос точно рабочий? В колонтитулах поле "Keywords"
Можно воспользоваться тем, что поля обновляются при предварительном просмотре:
Sub UpdateAllFields()
Application.ScreenUpdating = False 'Îòêëþ÷åíèå îáíîâëåíèÿ ýêðàíà
ActiveDocument.PrintPreview 'Ïðåäâàðèòåëüíûé ïðîñìîòð
ActiveDocument.ClosePrintPreview 'Çàêðûòü ïðåäâàðèòåëüíûé ïðîñìîòð
Application.ScreenUpdating = True 'Îáíîâèòü ýêðàí
End Sub
Аноним +1
ActiveDocument.PrintPreview
ActiveDocument.ClosePrintPreview
очень помогло в колонтитулах обновить , и быстрее чем кодом выше