Change superscripts to regular text except footnote marks without using 'Selection.'

RobiNew · #1 09-30-2023, 12:27 AM

I have the macro here below to change superscripts to regular text except for footnote marks. It works OK, but now I need the same result without using 'Selection'. Can someone help? Thanks!

Quote:

Selection.Find.ClearFormatting

With Selection.Find.Font
.Superscript = True
.Subscript = False
End With
Selection.Find.Replacement.ClearFormatting
With Selection.Find.Replacement.Font
.Superscript = False
.Subscript = False
End With
With Selection.Find
.Text = "[!^02]"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = True
End With
Selection.Find.Execute Replace:=wdReplaceAll

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Loop through Footnote Reference Marks	Ramses505	Word VBA	6	09-21-2023 12:10 AM
Macro to change font size of Footnote Reference in Footnote Text	TheBigBoss	Word VBA	5	06-10-2022 06:14 AM
Need to change superscripts to regular text but also add parentheses	DCabby	Word VBA	4	11-13-2019 09:43 AM
Convert endnote/footnote to regular text	Cobb78	Word	5	07-11-2016 06:23 AM
Regular (roman) character style doesn't change text to roman	kcbenson	Word	2	10-16-2014 01:31 PM