Sub KillAllFootnotes() Do While ActiveDocument.Footnotes.Count > 0 ActiveDocument.Footnotes(1).Delete Loop End Sub