Stapling Merged Documents

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

Lee M. - 12 Jul 2004 20:05 GMT

We print to a digital copier that can staple documents. When performing a
multi-page mail merge, I want the three pages of the letter and forms to be
stapled together separately for each recipient. However, once the document
is merged, Word considers it to be a single 90 page document so the printer
puts one staple through it all rather than giving me 30 three-page documents
individually stapled.

Anyone have any suggestions how to get around this? How can I get Word to
merge into a separate document for each recipient?

Thanks,

Lee

Reply to this Message

Walter - 12 Jul 2004 22:24 GMT

Hi Lee,
I had a similar problem and found this solution: http://www.gmayor.com/individual_merge_letters.htm

After setting this up, it's fairly simple to add a macro to automatically print all the documents in the folder where they've been saved. The following is an excerpt from Word's Visual Basic help file (subject=PrintOut Method):

This example prints all the documents in the current folder. The Dir function is used to return all file names that have the file name extension ".doc".

adoc = Dir("*.DOC")
Do While adoc <> ""
Application.PrintOut FileName:=adoc
adoc = Dir()
Loop

Just change the "*.DOC" to a wildcard name using the naming convention you used to save the different files.

Hope that's helpful. It's a little bit of work to set up, but much better than hand-stapling all those packets by hand!

Walt

> We print to a digital copier that can staple documents. When performing a
> multi-page mail merge, I want the three pages of the letter and forms to be
[quoted text clipped - 9 lines]
>
> Lee

Reply to this Message

Doug Robbins - 13 Jul 2004 01:59 GMT

Execute the merge to a new document and with that document as the active
document, run the following macro:

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

It will print the letter for each record as a separate print job.

Signature

Please respond to the Newsgroup for the benefit of others who may be
interested. Questions sent directly to me will only be answered on a paid
consulting basis.

Hope this helps,
Doug Robbins - Word MVP

> We print to a digital copier that can staple documents. When performing a
> multi-page mail merge, I want the three pages of the letter and forms to be
[quoted text clipped - 9 lines]
>
> Lee

Reply to this Message

Jason Krug - 22 Jul 2004 18:39 GMT

Hello-

This email discusses create separate PRINT JOBS for each
mail merged document.

I would like to create separate files for the mail merge?
I may be creating up to 6000 files, so I would like to
make it automatic naming.

Name Project
Bob ProjA
Bob ProjB
SteveProj1
Tim ProjC

Files: bob01, bob02, steve01, time01
?

I am trying a complex mailmerge and still have not been
able to combine MULTIPLE records in one file.
I thought I could try the Mail Merge in 2 phases:
1, create files,
2, Marge per name and Include TEXT fields?

--Jason

>-----Original Message-----
>Execute the merge to a new document and with that document as the active
[quoted text clipped - 27 lines]
>
>.

Reply to this Message

Graham Mayor - 23 Jul 2004 10:46 GMT

You cannot merge to separate documents, you must merge to a new document
then split it. See http://www.gmayor.com/individual_merge_letters.htm
The following code may be better suited to your requirements, or you could
adapt the techniques used in both to produce a result closer to your
requirements.

Sub SplitMerge()
' splitter Macro
' Macro created 16-08-98 by Doug Robbins to save each letter created by a
' mailmerge as a separate file.
' with modifications by Graham Mayor 16-06-03

Dim Title As String
Dim Default As String
Dim MyText As String
Dim MyName As Variant
Dim MyPath As String

Selection.EndKey Unit:=wdStory
Letters = Selection.Information(wdActiveEndSectionNumber)
Selection.HomeKey Unit:=wdStory
Counter = 1
MyPath = "D:\My Documents\Tests\"
Default = "Merged"
MyText = "Enter a filename. Long filenames may be used."
Title = "File Name"

MyName = InputBox(MyText, Title, Default)
If MyName = "" Then
End
End If

While Counter < Letters
Application.ScreenUpdating = False
Docname = MyPath & LTrim$(Str$(Counter)) & " " & MyName

ActiveDocument.Sections.First.Range.Cut
Documents.Add
Selection.Paste
ActiveDocument.SaveAs FileName:=Docname
ActiveWindow.Close
Counter = Counter + 1
Application.ScreenUpdating = True
Wend

End Sub

> Hello-
>
[quoted text clipped - 57 lines]
>>
>> .

Reply to this Message