Simple:
Code:
Sub Demo()
Application.ScreenUpdating = False
With ActiveDocument
Do While .Footnotes.Count > 0
With .Footnotes(1)
.Reference.InsertAfter "[!" & .Range.FormattedText & "!]"
.Delete
End With
Loop
End With
Application.ScreenUpdating = True
End Sub