microsoft.public.word.vba.general

Hi Jen,

>Below is my 1 space after macro, but I need to add 1 space after footnote -
>I keep getting errors in my attempts:

at the end of your code,
run that macro.

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

--

Greetings from Bavaria, Germany

Helmut Weber, MVP WordVBA

Vista Small Business, Office XP