microsoft.public.word.vba.general

or do you want to delete several spaces after
the footnote character and have only one space instead?

If so:

Sub ScratchmacroC()
Dim objFtn As Footnote
For Each objFtn In ActiveDocument.Footnotes
While objFtn.Range.Characters.First = " "
objFtn.Range.Characters.First = ""
Wend
Next
End Sub

--

Greetings from Bavaria, Germany

Helmut Weber, MVP WordVBA

Vista Small Business, Office XP