VBA Remove specific colour highlight

Shelley Lou · #1 11-13-2024, 09:18 AM

I found the code below searching through this forum that Greg Maxey created to remove specific colour highlighting. I'm trying to update the code to remove both BrightGreen and Pink highlighting within a document. It seems to be working ok but just wanted to make sure I've added to the code correctly? Thanks.

Code:

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
            If oChr.HighlightColorIndex = wdBrightGreen Then
              oChr.HighlightColorIndex = wdAuto
            End If
          'Next
          If oChr.HighlightColorIndex = wdPink Then
              oChr.HighlightColorIndex = wdAuto
            End If
          Next
        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

gmaxey · #2 11-13-2024, 12:04 PM

Shelly Lou,

Looks fine. I would do it like this using the Select statement:

Code:

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

Shelley Lou · #3 11-18-2024, 02:13 AM

Thanks so much for looking at the code and making the adjustment, very much appreciated and works a treat.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
VBA Code to remove specific highlight	syl3786	Word VBA	4	03-27-2023 05:01 PM
Remove highlight with specific color	rekent	Word VBA	2	08-01-2020 10:59 AM
MS Project: Network Diag view: Task Cell background colour (Highlight)	stct	Project	0	10-17-2017 07:37 AM
How do I select all text highlighted in a specific colour?	bertietheblue	Word	2	04-15-2016 12:30 PM
changing the colour of text box highlight in PowerPoint v.x	miki	PowerPoint	1	11-16-2010 02:06 AM