Private Sub Document_Open()
Application.ScreenUpdating = False
Dim TOC As TableOfContents    ' Table of Contents Object
Dim TOA As TableOfAuthorities ' Table of Authorities Object
Dim TOF As TableOfFigures     ' Table of Figures Object
Dim Rng As Range              ' Word Range Object
With ActiveDocument
  ' Update fields in each Story.
  ' Note that this may trigger the updating of ASK & FILLIN fields
  For Each Rng In .StoryRanges
    .Fields.Update
  Next
  ' The following routines are necessary because the foregoing updates only page numbers
  ' in TOCs, TOAs and TOFs - field updating doesn't update TOC, TOA or TOF contents.
  ' Loop through Tables Of Contents and update
  For Each TOC In .TablesOfContents
    TOC.Update
  Next
  ' Loop through Tables Of Authorities and update
  For Each TOA In .TablesOfAuthorities
    TOA.Update
  Next
  ' Loop through Tables Of Figures and update
  For Each TOF In .TablesOfFigures
    TOF.Update
  Next
End With
Application.ScreenUpdating = True
End Sub