A family of Microsoft word processing software products for creating web, email, and print documents.
Try the following macro:
Sub Demo()
Application.ScreenUpdating = False
Dim FtNt As Footnote, Rng As Range
For Each FtNt In ActiveDocument.Footnotes
With FtNt
Set Rng = .Range
With Rng
.Start = .Paragraphs.First.Range.Start
.Collapse wdCollapseStart
.End = .End + 1
If .Text = " " Then
.Collapse wdCollapseStart
Else
.MoveEndUntil " ", wdForward
End If
End With
Rng.FormattedText = .Reference.FormattedText
End With
Next
Application.ScreenUpdating = True
End Sub
For PC macro installation & usage instructions, see: http://www.gmayor.com/installing_macro.htm
For Mac macro installation & usage instructions, see: https://wordmvp.com/Mac/InstallMacro.html