Sub ScratchMacro()
'A basic Word Macro coded by Gregory K. Maxey
Dim oRng As Range
Dim oChr As Range
  Set oRng = ActiveDocument.Range
  With oRng.Find
    .Highlight = True
    While .Execute
      Select Case oRng.HighlightColorIndex
        Case Is = 9999999
          For Each oChr In oRng.Characters
            Select Case oChr.HighlightColorIndex
              Case wdBrightGreen, wdPink
              oChr.HighlightColorIndex = wdAuto
            End Select
          Next oChr
        Case Is = wdBrightGreen
          oRng.HighlightColorIndex = wdAuto
        Case Is = wdPink
          oRng.HighlightColorIndex = wdAuto
      End Select
      oRng.Collapse wdCollapseEnd
    Wend
  End With
lbl_Exit:
  Exit Sub
End Sub