Обновление полей во всем документе

[cw_o]

Обновляю поля примерно так

Selection.WholeStory
Selection.Fields.Update

При этом возникает две проблемы:
1. Поля в колонтитулах не обновляются
2. Содержание не обновляется целиком
Собственно, надо их решить.

[Скрипт]

Код обновляет поля во всех колонтитулах и первом содержании:

Sub Procedure_1()

    Dim mySection As Word.Section
    Dim myHeaderFooter As Word.HeaderFooter
    
    '1. Проходимся по каждому разделу.
    For Each mySection In ActiveDocument.Sections
    
        '1.1. Проходимся по верхнему колонтитулу.
        'Проходимся по каждому виду верхнего колонтитула.
        'Есть 3 вида колонтитулов.
        For Each myHeaderFooter In mySection.Headers
            myHeaderFooter.Range.Fields.Update
        Next myHeaderFooter
        
        '1.2. Проходимся по нижнему колонтитулу.
        'Проходимся по каждому виду нижнего колонтитула.
        For Each myHeaderFooter In mySection.Footers
            myHeaderFooter.Range.Fields.Update
        Next myHeaderFooter
        
    Next mySection
    
    '3. Содержание можно так принудительно обновить.
    'В документе может быть несколько содержаний, поэтому
        'в скобках нужно указать порядковый номер содержание.
    'Если содержание одно, то всё-равно в скобках надо указать
        'порядковый номер.
    ActiveDocument.TablesOfContents(1).Update

End Sub

[Скрипт]

Код обновляет все поля в основной части документа (есть ещё колонтитулы и другое):

Sub Procedure_2()
    
    'Обновление всех полей в документе без выделения всего документа.
    ActiveDocument.Fields.Update

End Sub

[viter.alex]

Макрос, обновляющий поля везде: в основном тексте, в колонтитулах, надписях и т.д. Используется факт, что поля обновляются всегда при предварительном просмотре.

Sub UpdateAllFields()
  Application.ScreenUpdating = False 'Отключение обновления экрана
  ActiveDocument.PrintPreview 'Предварительный просмотр
  ActiveDocument.ClosePrintPreview 'Закрыть предварительный просмотр
  Application.ScreenUpdating = True 'Обновить экран
End Sub

[Скрипт]

viter.alex, а в Word 2010 без VBA предусмотрены кнопки для вызова режима "Предварительный просмотр"?

С помощью VBA да, в Word 2010 отображается режим "Предварительный просмотр".

[viter.alex]

Есть такая кнопка, можно вывести на панель быстрого доступа

Но я предпочитаю сочетание клавиш Ctrl+F3. По умолчанию оно не работает, но легко вешается на команду PrintPreviewEditMode

[Sasha_Smirnov]

По умолчанию Ctrl+F2.

Сообщение от viter.alex

...поля обновляются всегда при предварительном просмотре.

Так, значит, получается, что Word и так управляется с обновлением всех полей, без лишних кодов?

[viter.alex]

Именно! Сам и справляется. Код нужен просто, чтобы съэкономить пару кликов мышкой

[cw_o]

viter.alex,
спасибо за решение, быстро работает, только содержание не обновляет.
ActiveDocument.TablesOfContents(1). Update обновляет.

[Скрипт]

Да, начиная с "Word 2007" появился новый вид оглавления. В этом оглавлении в программе "Word 2010" не происходит обновление полей при использовании режима "Предварительный просмотр" (который использовался в предыдущих версиях программы Word).


Примечание

Режим "Предварительный просмотр" был в программах Word до программы "Word 2010".