Microsoft Office Forums - View Single Post - Perfect macro not working when its code is inserted in larger macro

RobiNew · 10-17-2023, 10:00 AM

I devised the macro here below to apply Superscript to the last character of a five digit string. It works perfectly, but when I insert the code in a larger macro the last character remains intact. Can someone help? Thanks!

Code:

Dim oRng As Range, iType As Integer
  For iType = 1 To 2
    Set oRng = ActiveDocument.StoryRanges(iType)
    With oRng.Find
      .ClearFormatting
      .Text = "^#^#^#^#^#"
      While .Execute
        oRng.Collapse wdCollapseEnd
        oRng.MoveStart Unit:=wdCharacter, Count:=-1
        oRng.Font.Superscript = True
      Wend
    End With
  Next iType