Merge Into Separate Documents?

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

Tom - 04 Mar 2004 23:52 GMT

Hi - Instead of merging into e-mail, printer, or fax. I
would like to merge into individual documents. In other
words, I would like record 1 of my data to be saved into
a doc1, etc. Currently, if I merge 65 records using
the "merge into new document" function, it gives me one
document with 65 pages.

I need 65 documents with 1 page each.

Thanks in advance.

Reply to this Message

Doug Robbins - Word MVP - DELETE UPPERCASE CHARACTERS FROM EMAIL ADDRESS - 05 Mar 2004 03:24 GMT

Execute the merge to a new document and then run the following macro over
that document.

Sub splitter()

' splitter Macro

' Macro created by Doug Robbins to save each letter created by a mailmerge
as a separate file.

Dim Letters As Integer, Counter As Integer
Letters = ActiveDocument.Sections.Count
Selection.HomeKey Unit:=wdStory
Counter = 1
While Counter < Letters
DocName = "Myletter" & LTrim$(Str$(Counter))
ActiveDocument.Sections.First.Range.Cut
Documents.Add
Selection.Paste
ActiveDocument.Sections(2).PageSetup.SectionStart = wdSectionContinuous
ActiveDocument.SaveAs FileName:=DocName, FileFormat:= _
wdFormatDocument, LockComments:=False, Password:="",
AddToRecentFiles:= _
True, WritePassword:="", ReadOnlyRecommended:=False,
EmbedTrueTypeFonts:= _
False, SaveNativePictureFormat:=False, SaveFormsData:=False, _
SaveAsAOCELetter:=False
ActiveWindow.Close
Counter = Counter + 1
Wend

End Sub

Signature

Please post any further questions or followup to the newsgroups for the
benefit of others who may be interested. Unsolicited questions forwarded
directly to me will only be answered on a paid consulting basis.

Hope this helps
Doug Robbins - Word MVP

> Hi - Instead of merging into e-mail, printer, or fax. I
> would like to merge into individual documents. In other
[quoted text clipped - 6 lines]
>
> Thanks in advance.

Reply to this Message