Mise à jour de la table des matières dans Word

Question

J'ai une macro pour mon document Word qui est censée mettre à jour tous les champs et toute la table des matières.

Sub UpdateFields()
    Dim oStory As Range
    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
    Set oStory = Nothing

    Dim TOC As TableOfContents
    For Each TOC In ActiveDocument.TablesOfContents
        TOC.Update
    Next
End Sub

Cependant, lorsqu'il est exécuté, j'obtiens cette erreur.

Erreur et ensuite déboguer ci-dessous
J'apprécierais toute aide pour résoudre ce problème.

Answer 1

Le problème est causé par le fait de nommer le sous UpdateFields . Pour des raisons inconnues, ce nom est réservé dans Word VBA. Renommez le sub en un nom autorisé (par exemple, FieldUpdates ) et le code fonctionnera bien.

Answer 2

L'erreur signalée indique que la Table des matières spécifiée pour la mise à jour n'existe pas. Word produit des erreurs de ce type lorsqu'il utilise For ... Each pour accéder à certaines de ses collections. Le nombre de tables des matières dont Word a connaissance peut avoir changé pendant l'édition du document. Pour éviter cette erreur, évitez For ... Each énumérations. Utilisez plutôt un code comme le suivant.

Dim i As Integer

With ActiveDocument
    For i = 1 To .TablesOfContents.Count
        .TableOfContents(i).Update
    Next i
End With