highlight text in array

gmayor · #4 01-28-2022, 10:32 PM

Documents are created from an assortment of story ranges of which the ActiveDocument range is only one. Greg's macro addresses only that document range. The following will also address text boxes in that range. It will not however address text boxes within another range, such as the header range. If that is an issue, you will need a belt and braces approach to look through all the story ranges in the document.

Code:

Sub PrintSpecificWordsII()
Dim myWords()
Dim lngIndex As Long
Dim oStory As Range
    myWords = Array("Word1", "Word2", "Word3", "Word4", "Word5")
    For lngIndex = 0 To UBound(myWords)
        For Each oStory In ActiveDocument.StoryRanges
            With oStory.Find
                .ClearFormatting
                .Text = myWords(lngIndex)
                .Forward = True
                While .Execute
                    oStory.HighlightColorIndex = wdBrightGreen
                    Application.PrintOut Range:=wdPrintCurrentPage
                    oStory.Collapse wdCollapseEnd
                Wend
            End With
            If oStory.StoryType <> wdMainTextStory Then
                While Not (oStory.NextStoryRange Is Nothing)
                    Set oStory = oStory.NextStoryRange
                    With oStory.Find
                        .ClearFormatting
                        .Text = myWords(lngIndex)
                        .Forward = True
                        While .Execute
                            oStory.HighlightColorIndex = wdBrightGreen
                            Application.PrintOut Range:=wdPrintCurrentPage
                            oStory.Collapse wdCollapseEnd
                        Wend
                    End With
                Wend
            End If
        Next oStory
    Next lngIndex
lbl_Exit:
    Set oStory = Nothing
    Exit Sub
End Sub

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
like to highlight web text, enter cntl key, have text appended to same onenote pate	bobk544	OneNote	0	12-10-2017 11:49 AM
Create an array or list of highlighted text in selection	rjrichar40	Word VBA	1	09-03-2014 01:02 PM
Convert String Array to Integer Array from a User Input?	tinfanide	Excel Programming	4	12-26-2012 08:56 PM
Array into ComboBox + Macro-Text into ActiveDocument	Vivi	Word VBA	1	01-27-2010 07:03 AM
find - reading highlight - highlight all / highlight doesn't stick when saved	bobk544	Word	3	04-15-2009 03:31 PM