Sub AlleVerzeichnisseAktualisieren()
Dim oTOC As TableOfContents
Dim oTOF As TableOfFigures
Dim oTOA As TableOfAuthorities

' Alle vorhandenen Verzeichnisse aktualisieren

   ' Inhaltsverzeichnis
   For Each oTOC In ActiveDocument.TablesOfContents
      oTOC.Update
   Next oTOC
   
   ' Abbildungsverzeichnis
   For Each oTOF In ActiveDocument.TablesOfFigures
      oTOF.Update
   Next oTOF
   
   ' Rechtsgrundlagenverzeichnisse
   For Each oTOA In ActiveDocument.TablesOfFigures
      oTOA.Update
   Next oTOA
End Sub