Highlighting all numbers in a word document

[Cinema]

Hello,

I want to highlight all numbers in a word document (for which I have written a macro) but I don't want to highlight the number(s) if there is a M or MC before the number(s).
This is my current code:

Sub Highlight()


Selection.Find.ClearFormatting
Selection.Find.Highlight = False
Selection.Find.Replacement.ClearFormatting
Selection.Find.Replacement.Highlight = True
With Selection.Find
.Text = "([0-9])"
.Replacement.Text = "\1"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = True
End With
Selection.Find.Execute
Selection.Find.Execute Replace:=wdReplaceAll



End Sub

How I can ignore the M[0-9] and MC[0-9]?

[gmaxey]

I'm sorry, but your macro doesn't highlight anything.

Sub Highlight()
  Dim oRng As Word.Range
  Set oRng = ActiveDocument.Range
  With oRng.Find
    .Text = "[0-9]{1,}"
    .MatchWildcards = True
    While .Execute
      Select Case oRng.Start
        Case 0
          oRng.HighlightColorIndex = wdBrightGreen
        Case 1
          If Not oRng.Characters.First.Previous.Text Like "M" Then
            oRng.HighlightColorIndex = wdBrightGreen
          End If
        Case Else
          If Not oRng.Characters.First.Previous.Text & oRng.Characters.First.Previous.Previous.Text Like "MC" Then
            If Not oRng.Characters.First.Previous.Text Like "M" Then
              oRng.HighlightColorIndex = wdBrightGreen
            End If
          End If
      End Select
    Wend
  End With
lbl_Exit:
  Exit Sub
End Sub

[Cinema]

Hello,

thank you so much for your help. My macro actually finds and replaces the numbers. While replacing the numbers, it highlights them.
This works but I cannot exclude the M"numbers" and "MC"numbers. Your macro seems to be perfect but I have a runtime error 4641 in the last oRng.HighlightColorIndex = wdBrightGreen line. It says that the Highlight Color order is deactivated. I don't know what this means.

[Cinema]

Ok, I solved the Problem. But there is another Problem. It still highlights the MC numbers. The M numbers are not highlighted but the MC numbers.

[gmaxey]

Sub Highlight()
    Dim oRng As Word.Range
    Set oRng = ActiveDocument.Range
    With oRng.Find
        .Text = "[0-9]{1,}"
        .MatchWildcards = True
        While .Execute
            Select Case oRng.Start
            Case 0
                oRng.HighlightColorIndex = wdBrightGreen
            Case 1
                If Not oRng.Characters.First.Previous.Text Like "M" Then
                    oRng.HighlightColorIndex = wdBrightGreen
                End If
            Case Else
                If Not oRng.Characters.First.Previous.Text & oRng.Characters.First.Previous.Previous.Text Like "MC" Then
                    If Not oRng.Characters.First.Previous.Text Like "[C,M]" Then
                        oRng.HighlightColorIndex = wdBrightGreen
                    End If
                End If
            End Select
        Wend
    End With
lbl_Exit:
    Exit Sub
End Sub

[Cinema]

This is great, thank you

[MacroWizard]

Don't forget to mark your thread as solved This was an interesting post.