Find & Print specific pages based on key words

[pstephe1]

I work in very large technical engineering documents (200+ pages). Buried
within these documnets is a slew of technical data I need to extract. Right
now I perform a search of key words, highlight it and write down the specific
page it's on and finally print out those specific pages (to a PDF).

I would like to know if there is an easier way of doing this. Any help would
be greatly appreciated. Thanks in advance.

 

[Graham Mayor]

You could use a simple macro. The following will print the pages that
contain the word or phrase you enter in the dialog box

Sub PrintPageWithWord()
Dim sWord As String
sWord = InputBox("Enter term to find", "Print pages")
With Selection
.HomeKey wdStory
With .Find
.ClearFormatting
.Replacement.ClearFormatting
While .Execute(findText:=sWord)
Application.PrintOut Range:=wdPrintCurrentPage
Wend
End With
End With
End Sub
http://www.gmayor.com/installing_macro.htm
If you want to incorporate the switch to your unnamed PDF printer driver,
then see http://www.gmayor.com/fax_from_word.htm for the extra code
required.

--
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
Graham Mayor - Word MVP

My web site www.gmayor.com

<>>< ><<> ><<> <>>< ><<> <>>< <>><<>

 

[pstephe1]

Outstanding Grahm, thanks for your input. I will try it out.

 

[Snowshoestu]

Is there a way to have this macro print to a .doc or even a .pdf file??