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

vivka · #2 09-30-2023, 08:00 AM

Hi, RobiNew! Just replace selection with ActiveDocument.range:

Code:

Sub Macro()

Dim oRng As range
Set oRng = ActiveDocument.range
    oRng.Find.ClearFormatting
    With oRng.Find.Font
        .Superscript = True
    End With
    oRng.Find.Replacement.ClearFormatting
    With oRng.Find.Replacement.Font
        .Superscript = False
    End With
    oRng.Find.Execute Replace:=wdReplaceAll
End Sub

Note that this is the fastest replacement.

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