Hi Katy,

If your document using sections to handle the page numbering, then you can
use something like the following:

Dim iSec As Integer
Dim sPages As String
For iSec = 1 To ActiveDocument.Sections.Count
   sPages = sPages & "p1s" & iSec & ","
Next iSec
ActiveDocument.PrintOut Range:=Left(sPages, Len(sPages) - 1)

However, it doesn't sound like the document is using sections. If you do a
find for "Page 1 of" does "Page 1 of" get selected. If so, you could use
something like the following:

With Selection
   .HomeKey Unit:=wdStory
   With .Find
       .ClearFormatting
       .Text = "Page 1 of"
       Do While .Execute
           ActiveDocument.PrintOut Range:=wdPrintCurrentPage
       Loop
   End With
End With

Hope these ideas get you started,

Dave

Katy,

I just went through the same process as you.  I am putting my VB code below.

The main difference is that I was needing to insert a page break before each
instance of WELTON USA, LTD.  

The code is pretty simple, but it took me a while to figure out the looping.
I hope you can use some of what I have done so you don't have to spend as
much time 'tinkering' as I did.

   Dim iCount As Long
   Dim strSearch As String

     strSearch = "WELTON USA, LTD"
       iCount = 0

   With ActiveDocument.Content.Find
       .Text = "WELTON USA, LTD"
       .Format = False
       .Wrap = wdFindStop
  Do While .Execute
       iCount = iCount + 1
   Loop
   End With

   counter = 0
   Do
       
       With Selection.Find
           .Text = "WELTON USA, LTD"
           .Forward = True
           .Wrap = wdFindContinue
           .Format = False
           .MatchCase = False
           .MatchWholeWord = False
           .MatchWildcards = False
           .MatchSoundsLike = False
           .MatchAllWordForms = False
       'MsgBox (counter)
       Selection.Find.Execute
       If counter <> 0 Then
       
       Selection.HomeKey unit:=wdLine
       Selection.InsertBreak Type:=wdPageBreak
       
       End If
       Selection.EndKey unit:=wdLine
       End With
       counter = counter + 1
   Loop Until counter = iCount
   
Hope this helps,

Gilley
aka Dilbert