Delete footnotes in a Word document with VBA
Posted on 2012-08-22
There must be some easy way to delete all the footnotes in Word document.
The following code works if one knows that there are 44 footnotes are in a document, but there must be a better way.
Dim i as Integer
Selection.GoTo What:=wdGoToFootnote, Which:=wdGoToNext, Count:=1, Name:=""
Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend
Selection.Delete Unit:=wdCharacter, Count:=1
i = i + 1
If i = 44 Then End
Thanks for any help possible.