change One highlight Color to Another

Redbarn · #1 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!

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
color change for same shape	ajkiran	PowerPoint	1	11-10-2012 07:41 AM
Change standard highlight text color to user defined	Scott Duffens	Word	2	06-18-2012 03:53 PM
how to change page color	gezz7louise	Word	2	11-06-2011 07:51 AM
Change skin color of applications?	Jack R	Office	0	07-04-2010 04:25 AM
find - reading highlight - highlight all / highlight doesn't stick when saved	bobk544	Word	3	04-15-2009 03:31 PM