1

Каждый раз, когда я сохраняю свой документ в формате PDF, я получаю это диалоговое окно (несколько раз, поскольку у меня есть оглавление для каждого раздела). Есть ли настройка для автоматического обновления всех оглавлений и исключения этих сообщений?

1 ответ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

Всё ещё ищете ответ? Посмотрите другие вопросы с метками .