Sub RemoveFootnotes()
Application.ScreenUpdating = False
    ActiveDocument.Fields.Unlink ' I think this removes hyperlinks
With ActiveDocument.Range.Find
  .ClearFormatting
  .Replacement.ClearFormatting
  .Font.Superscript = True
  .Execute FindText:="[\(\[]*[\)\]]", ReplaceWith:="", MatchWildcards:=True, Format:=False, Forward:=True, Wrap:=wdFindContinue, Replace:=wdReplaceAll
End With

Application.ScreenUpdating = True
End Sub