Sub LookForHighlight()
'Dawn Crosier & Dian Chapman
' dlc110161@hotmail.com & dian@mousetrax.com
'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
           'From the 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
        '
         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