Multi doc mailmerge Collate+Staple

G

Guest

We have 3 different sets of Word docs.

They all get personalization info and have multiple pages.

We need to merge and staple each set individually, then slip sheet a blank
sheet to complete each package.
 
D

Doug Robbins - Word MVP

Does the personalization info for all three documents come from the one
datasource?, or can you combine the datasources so that all three documents
can be personalized from that source?

If so, you could then combine the three mail merge main documents into one,
including a blank page either before the first page or after the last page,
or in both places if that is where you want them and then if you execute the
merge to a new document, you can run the following macro over that document
to send each set of three documents to the printer as a separate print job
so that they can be stapled by the printer:

Dim i As Long
With ActiveDocument
For i = 1 To .Sections.Count
.PrintOut Range:=wdPrintFromTo, From:="s" & i, To:="s" & i
Next i
End With



--
Hope this helps.

Please reply to the newsgroup unless you wish to avail yourself of my
services on a paid consulting basis.

Doug Robbins - Word MVP
 
G

Guest

Thank you so very much!

Once inserting the section breaks, this flew without a hitch!

---
Doug Robbins - Word MVP said:
Does the personalization info for all three documents come from the one
datasource?, or can you combine the datasources so that all three documents
can be personalized from that source?

If so, you could then combine the three mail merge main documents into one,
including a blank page either before the first page or after the last page,
or in both places if that is where you want them and then if you execute the
merge to a new document, you can run the following macro over that document
to send each set of three documents to the printer as a separate print job
so that they can be stapled by the printer:

Dim i As Long
With ActiveDocument
For i = 1 To .Sections.Count
.PrintOut Range:=wdPrintFromTo, From:="s" & i, To:="s" & i
Next i
End With



--
Hope this helps.

Please reply to the newsgroup unless you wish to avail yourself of my
services on a paid consulting basis.

Doug Robbins - Word MVP
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top