VBA Word Macro - remove superscript footnote ref

gcp · #16 04-02-2025, 06:11 PM

Hi Paul
I got that code from creating the macro to remove hyperlinks. I will investigate the different code you suggest.
The macro now does what I wanted so long as the hyperlinks to the footnotes are removed. However, if there are hyperlinks in the document other than the footnotes, those hyperlinks would also be removed. How could only the hyperlinks to the superscripted footnotes be removed and leave all other hyperlinks?

macropod · #17 04-02-2025, 10:28 PM

Your

Code:

Selection.WholeStory
Selection.Fields.Unlink

gives the same result as

Code:

ActiveDocument.Fields.Unlink

The differences are that the latter code doesn't employ the inefficient selection method or change your current selection.

If you only want to unlink superscripted hyperlinks, you could use:

Code:

Sub DemoC()
Application.ScreenUpdating = False
Dim h As Long
With ActiveDocument.Range
  For h = .Hyperlinks.Count To 1 Step -1
    With .Hyperlinks(h).Range
      If .Font.Superscript = True Then .Fields(1).Unlink
    End With
  Next
  With .Find
    .ClearFormatting
    .Replacement.ClearFormatting
    .Font.Superscript = True
    .Execute FindText:="[\(\[]*[\)\]]", ReplaceWith:="", MatchWildcards:=True, Format:=False, Forward:=True, Wrap:=wdFindContinue, Replace:=wdReplaceAll
  End With
End With
Application.ScreenUpdating = True
End Sub

gcp · #18 06-09-2025, 11:39 PM

The macro also removes brackets and contents that are not superscripted. What have I done wrong?

Code:

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

macropod · #19 06-10-2025, 12:10 AM

That F/R code only affects superscripted content.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Word Macro for removing parentheses around footnote numbers	LLLCa947	Word VBA	6	11-21-2024 01:44 AM
Convert superscript numbers to auto-footnote markers	ra_beale	Word VBA	4	09-05-2022 07:09 AM
How to remove extra space between footnote separator and 1st footnote. No para breaks present.	Swarup	Word	2	07-09-2022 07:42 PM
Macro to change font size of Footnote Reference in Footnote Text	TheBigBoss	Word VBA	5	06-10-2022 06:14 AM
Footnote reference numbers precede by superscript '(' and follow w/ superscript ')'	Swarup	Word	4	07-18-2019 05:51 PM