Microsoft Office Forums - View Single Post - [Solved] change One highlight Color to Another

Redbarn · 03-15-2013, 10:04 AM

A have many documents that use several highlight colors to denote option. When the selection is made I want to remove the highlight color.

I have found a macro that nearly does what I want but it changed all highlight colours.

The macro I found is below:

Code:

Sub ChangeColor()
Options.DefaultHighlightColorIndex = wdBrightGreen
Selection.Find.ClearFormatting
Selection.Find.Highlight = True
Selection.Find.Replacement.ClearFormatting
Selection.Find.Replacement.Highlight = True
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.ClearFormatting
Selection.Find.Font.Color = wdColorBrightGreen
Selection.Find.Replacement.ClearFormatting
Selection.Find.Replacement.Font.Color = wdColorRed
With Selection.Find
  .Text = ""
  .Replacement.Text = ""
  .Forward = True
  .Wrap = wdFindContinue
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub

Any suggestions of modifying it to allow for selection of a specific color and changing it to NoColor.

My apologies for a very basic understanding of VBA!