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