Mise à jour automatique de la table des matières dans Word lors de l'enregistrement en PDF

Une macro semble être le seul moyen de mettre à jour toutes les tables des matières et d'éviter ces messages ennuyeux. Heureusement, quelqu'un en a déjà écrit une pour faire cela, que l'on peut trouver sur le site de l Forums Microsoft . Je l'ai copié ici au cas où le lien ne fonctionnerait plus.

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