Try this:
Code:
Sub Test()
Dim oRng As Range
ActiveDocument.Styles(wdStyleFootnoteReference).Font.Hidden = False
Set oRng = ActiveDocument.StoryRanges(wdFootnotesStory)
With oRng.Find
.Style = "Footnote Reference"
While .Execute
oRng.Characters.Last.Next.Delete
oRng.Text = vbNullString
Wend
End With
ActiveDocument.Styles(wdStyleFootnoteReference).Font.Hidden = True
ActiveDocument.ActiveWindow.View.ShowHiddenText = False
End Sub