Sub Demo() With ActiveDocument While .TablesOfContents.Count > 0 .TablesOfContents(1).Delete Wend End With End Sub