Mail merge to subsequent new documents.

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

sdbrennan - 02 Apr 2004 19:39 GMT

mail merging data from Access to word master document. 35
records, hence 35 seperate sheets in ONE word document.

How can I get each record to merge to a new document, thus
having 35 seperate files of the merged data.

Reply to this Message

Doug Robbins - Word MVP - 03 Apr 2004 02:39 GMT

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

> mail merging data from Access to word master document. 35
> records, hence 35 seperate sheets in ONE word document.
>
> How can I get each record to merge to a new document, thus
> having 35 seperate files of the merged data.

Reply to this Message

- 03 Apr 2004 17:56 GMT

many thanks

>-----Original Message-----
>Sub splitter()
[quoted text clipped - 34 lines]
>
>.

Reply to this Message

Rate this thread: