Correct footnore references

[WJSwanepoel]

I have a document where the original author added a close bracket after every footnote reference, eg. 1), the 1 Superscript, the ) non-superscript.



I want to remove the close bracket, but none of my replace statements want to work.
([0-9])\) (wildcards) does not pick it up, only picks up non-superscript occurrences.

How can this be done?

[Guessed]

I tried searching for "^f" which is a footnote reference but that won't work with wildcards so it may require some lateral thinking to do as a simple find and replace.

Since you are using VBA you might as well do the non-wildcard search and then work on that.

Sub FootnoteBracketsBegone()
  Dim aRng As Range
  Set aRng = ActiveDocument.Range
  With aRng.Find
    .ClearFormatting
    .Replacement.ClearFormatting
    .Text = "^f)"
    .Replacement.Text = ""
    .Forward = True
    .Wrap = wdFindContinue
    .Format = False
    .MatchCase = False
    .MatchWholeWord = False
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
    Do While .Execute = True
      If aRng.Characters.Last = ")" Then aRng.Characters.Last.Delete
      aRng.End = ActiveDocument.Range.End
    Loop
  End With
End Sub

[WJSwanepoel]

Good day Andrew,
Thank you for your response. I tried the VBA you suggested but it is extremely slow.
Also it removes the bracket in the text but not in the footnote itself.