Hier ein kleines Makro, um alle Fussnoten innerhalb des Dokuments mit einem Wimpernschlag zu entfernen. Sub Fussnoten_loeschen() Dim objfussnote As Footnote For Each objfussnote In ActiveDocument.Footnotes objfussnote.Delete Next End Sub