How to find ordinals (1st, 2nd, 3rd, ...)

[AlexandarR]

Hi!

I have to find ordinals like 1st, 2nd, 3rd, 4th, ..., in which the text part "st", "nd", "rd", "th" is in superscript.
And a comment has to be inserted like below:
"ordinals" should be online [EX: 10th, 1st, 3rd]

Please help!

Thanks in advance!

Alex

[gmaxey]

Sub ScratchMacro()
'A basic Word macro coded by Greg Maxey
Dim oRng As Word.Range
Set oRng = ActiveDocument.Range
With oRng.Find
.Font.Superscript = True
While .Execute
Select Case oRng.Text
Case "st", "nd", "rd", "th"
oRng.Comments.Add oRng, "Ordinals should be regular text"
End Select
oRng.Collapse wdCollapseEnd
Wend
End With
lbl_Exit:
Exit Sub
End Sub

[AlexandarR]

Thank you very much! It works fine.

Regards
Alex

[gmaxey]

Glad to help.