Microsoft Office Forums - View Single Post - [Solved] VBA Code to remove specific highlight

syl3786 · 03-27-2023, 08:21 AM

Quote:

Originally Posted by gmaxey

Code:

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

Thank you gmaxey! It is very useful. MayI ask if this macro can just remove the one of the selected highlight colours but not remove all of them? Now it just remove texts with two highlighted colors combined and remove those combination.