A family of Microsoft word processing software products for creating web, email, and print documents.
This code will update the entire TOC:
Sub UpdateAll()
Dim oStory As Range
Dim oTOC As TableOfContents
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
Set oStory = Nothing
End Sub
In addition to TableOfContents, you can use TableOfAuthorities and TableOfFigures, just add similar loops for them.