Microsoft Office Forums - View Single Post - [Solved] How to check for the higest superScript number, that is NOT red?

macropod · 07-31-2022, 04:10 PM

For example:

Code:

Sub Demo()
Application.ScreenUpdating = False
Dim i As Long
With ActiveDocument.Range
  With .Find
    .ClearFormatting
    .Replacement.ClearFormatting
    .Format = False
    .Forward = True
    .Font.Superscript = True
    .Wrap = wdFindStop
    .MatchWildcards = True
    .Text = "<[0-9]@>"
    .Replacement.Text = ""
  End With
  Do While .Find.Execute = True
    If .Font.ColorIndex <> wdClassicRed Then
      If .Text > i Then i = .Text
    End If
   .Collapse wdCollapseEnd
  Loop
End With
MsgBox i
Application.ScreenUpdating = True
End Sub

Of course, since Word has different versions of 'red' (e.g. wdRed, wdClassicRed, wdDarkRed), you'll need to choose the correct one for testing. And, if it's not one of those 'standard' reds, you'll need to use .Font.Color with the appropriate RGB value.