Каждый раз, когда я сохраняю свой документ в формате PDF, я получаю это диалоговое окно (несколько раз, поскольку у меня есть оглавление для каждого раздела). Есть ли настройка для автоматического обновления всех оглавлений и исключения этих сообщений?
1 ответ
1
Макрос, кажется, единственный способ обновить все оглавления и избежать этих раздражающих сообщений. Полезно, что кто-то написал один, чтобы сделать это уже, что можно найти на форумах Microsoft. Я скопировал это здесь в случае, если ссылка когда-либо выйдет из строя.
Sub UpdateDocument()
Dim oStory As Range
Dim oTOC As TableOfContents
Dim oTOF As TableOfFigures
For Each oStory In ActiveDocument.StoryRanges
oStory.Fields.Update
If oStory.StoryType wdMainTextStory Then
While Not (oStory.NextStoryRange Is Nothing)
Set oStory = oStory.NextStoryRange
oStory.Fields.Update
Wend
End If
Next oStory
For Each oTOC In ActiveDocument.TablesOfContents
oTOC.Update
Next oTOC
For Each oTOF In ActiveDocument.TablesOfFigures
oTOF.Update
Next oTOF
ActiveDocument.Save
End Sub