Sequentially number superscripts

[SamG]

Hello,

is there a way to sequentially number superscripts in a document example

the first superscript it finds it adds before the Range the number 1, the next superscript it finds it adds a 2 and so on and so forth.

I have loads of superscripts but I would like them to be numbered so its easy to later reference.

I have bits and peices




Sub NumberSuperscripts(0


Dim oRng As Range
Dim oSuperscript as Range
dim lngIndex as Long

Set oRng = ActiveDocument.Range
With oRng.Find
.ClearFormatting
.Replacement.ClearFormatting
.Font.Superscript = True

Do While .Execute(Forward:=True) = True

For Each oSuperscript
Set oRng = .Range

oSuperscript.Insertbefore lngIndex
lngIndex = lngIndex + 1

End If
oRng.Collapse wdCollapseEnd
Loop
End With



thank you for any tips

sam

[gmayor]

You are overthinking the problem. Try

Dim oRng As Range
Dim lngIndex As Long: lngIndex = 1

Set oRng = ActiveDocument.Range
With oRng.Find
.Font.Superscript = True
Do While .Execute(Forward:=True) = True
oRng.InsertBefore lngIndex
lngIndex = lngIndex + 1
oRng.Collapse wdCollapseEnd
Loop
End With

[SamG]

Thank you Graham,

that worked a treat!

:grinhalo: