Using VBA Code to Export Highlighted Text of a Particular Color
Search

Using VBA Code to Export Highlighted Text of a Particular Color


You can make use of a macro to select all of the text highlighted in a specific color in a Word document. The macro itself turns text highlighted in a selected color to a different font color - in this example red. This will help you export out (or copy just the text highlighted in one color) because you can search for text with in a particular font color, but not text highlighted in a particular color.

Press ALT + F11 to enter Visual Basic and enter the code below (posted to Word Banter by Dawn Crosler) in a new module

On the line reading:

If Selection.Range.HighlightColorIndex = wdYellow Then

. . . you can designate the color highlighting you want to process. See a list of different highlighting colors in Crosler's post.

Once the color of the text has been changed you can run a search in Word for just text with the font color red. Use the option for Find In . . . Main Document.

All of the search results will be selected. You can then copy them out for analysis.

Sub ChangeHighlight()

'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 = wdYellow Then

'change Selected Text Font to White

'Use the wdColorIndexConstant List to change to the

'appropriate font color

Selection.Range.Font.Color = wdColorRed

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


0 views

Contact Me With Your Litigation Support Questions:

seankevinoshea@hotmail.com

  • Twitter Long Shadow

© 2015 by Sean O'Shea . Proudly created with Wix.com