Nelson -
You don't mention which version of Word you are using, but this
macro
code has been tested with Word 2003.
You can use the Find and Replace dialog to find Highlighting in
general - however not to find a specific color of highlighting.
To find highlighting in General:
1. Open the Find and Replace dialog box. (CTRL+F)
2. Click the More button to expand the dialog box. (ALT+M)
3. Make sure your cursor is still in the Find What text box.
4. Click the Format button. (ALT+O)
5. Select Highlight from the list. Notice that below the Find
What
box, it now shows Highlight.
6. Click into the Replace box.
7. Click the Format button (ALT+O)
8. Select Font from the list.
9. Adjust the Font Color as appropriate.
10. Close out of the Font dialog box.
11. Find and Replace as usual.
However, if you want to do something special to certain colors of
highlight as given in your example, then you will want to use a
macro.
The difficulty that you will have is that you will have to know
the
word constants for the colors you are looking for and edit the
code as
appropriate. Here is the listing of Word Color Constants From
Help:
HighlightColorIndex Property
Returns or sets the highlight color for the specified range.
Read/write WdColorIndex.
Applies to one of the following WdColorIndex constants.
wdByAuthor
wdAuto
wdNoHighlight
wdBlack
wdBlue
wdBrightGreen
wdDarkBlue
wdDarkRed
wdDarkYellow
wdGray25
wdGray50
wdGreen
wdPink
wdRed
wdTeal
wdTurquoise
wdViolet
wdWhite
wdYellow
I developed this code module with the assistance of fellow MVP
Dian
Chapman.
Sub ChangeHighlight()
'(e-mail address removed) & (e-mail address removed)
'Purpose: Changes highlight colors in a doc...need to change
'WD color index
'Changes the font color based on selected highlight color
'***********************
'go to top of doc
Selection.HomeKey Unit:=wdStory
'clear previous find
Selection.Find.ClearFormatting
'set search for highlight on
Selection.Find.Highlight = True
'run search
Selection.Find.Execute
'while highlights are still found
While Selection.Find.Found = True
'if highlight is "wdBrightGreen" (color to find) then
'change the wdBrightGreen in the line below to match
the color
'of highlight you desire. Use the
wdColorIndexConstant List
'as inspiration
If Selection.Range.HighlightColorIndex = wdBrightGreen
Then
'change Selected Text Font to White
'Use the wdColorIndexConstant List to change to
the
'appropriate font color
Selection.Range.Font.Color = wdColorWhite
End If
'continue same search
Selection.Find.ClearFormatting
Selection.Find.Highlight = True
Selection.Find.Execute
'end loop when no more found
Wend
'move back to top of doc when done
Selection.HomeKey Unit:=wdStory
End Sub
If you need assistance with implementing the above code, please
see
http://word.mvps.org/faqs/macrosvba/CreateAMacro.htm .
Let me know how it goes.
--
Dawn Crosier
Microsoft MVP
"Education Lasts a Lifetime"
This message is posted to a newsgroup. Please post replies and
questions to the newsgroup so that others can learn as well.
Peter said:
Hello guys:
Let's say I have a doc with text highlighted in 3 different
colors:
yellow,
red, and green. I have to replace the font of the text
higlighted in
green
(from auto[black] color to white).
How can I find those green highlights (using the Find and
Replace
box OR a
macro; or better yet, both ways)?
Thank you for your ideas,
Nelson
