Sub ScratchMacro()
'A basic Word macro coded by Greg Maxey
Dim oRng As Word.Range
  Set oRng = ActiveDocument.Range
  With oRng.Find
    .ClearFormatting
    .Text = "[0-9]{1,3}[ .,']{1}[0-9]{3}.[0-9]{2}"
    With .Replacement
      .Text = ""
      With .Font
        .ColorIndex = wdRed
        .Size = 18
      End With
    End With
    .Format = True
    .MatchWildcards = True
    .Execute Replace:=wdReplaceAll
  End With
End Sub