For i = 1 To ActiveDocument.TablesOfContents.Count ActiveDocument.TablesOfContents(i).UpdatePageNumbersNext