Microsoft Office Forums - View Single Post - Change superscripts to regular text except footnote marks without using 'Selection.'

vivka · 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.