Mail Merge - Creating Separate Documents

Jennifer

unread,

Sep 17, 2003, 5:06:43 PM9/17/03

to

Hello! Does anyone know how to create a mail merge that
will produce separate documents instead of one running
document? Please email me with the answer at
jennife...@mbna.com

THANKS

Kate G.

unread,

Sep 17, 2003, 5:10:58 PM9/17/03

to

The Form Letter Option should do that for you.... from the Mail Merge Menu.

"Jennifer" <jennife...@mbna.com> wrote in message
news:0dc501c37d5f$98a633a0$a001...@phx.gbl...

> Hello! Does anyone know how to create a mail merge that
> will produce separate documents instead of one running
> document? Please email me with the answer at
>
>

> THANKS

Doug Robbins - Word MVP

unread,

Sep 19, 2003, 4:25:33 AM9/19/03

to

Hi Jennifer,

The following macro will split the document into separate documents for each
record in the datasource.

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

"Jennifer" <jennife...@mbna.com> wrote in message
news:0dc501c37d5f$98a633a0$a001...@phx.gbl...

Doug Robbins - Word MVP

unread,

Sep 20, 2003, 5:04:12 PM9/20/03

to

Sorry Jennifer,

Here is the macro now:

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

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
"Jennifer" <jennife...@mbna.com> wrote in message
news:0dc501c37d5f$98a633a0$a001...@phx.gbl...

Jennifer Ready

unread,

Sep 22, 2003, 2:19:19 PM9/22/03

to

I was unable to open this macro. I will try to search for
this splitter macro in word?

THanks

>.
>

Suzanne S. Barnhill

unread,

Sep 22, 2003, 5:53:03 PM9/22/03

to

You have to do a little work to use this macro. See
http://www.gmayor.dsl.pipex.com/installing_macro.htm

--
Suzanne S. Barnhill
Microsoft MVP (Word)
Words into Type
Fairhope, Alabama USA
Word MVP FAQ site: http://www.mvps.org/word
Email cannot be acknowledged; please post all follow-ups to the newsgroup so
all may benefit.

"Jennifer Ready" <jennife...@mbna.com> wrote in message
news:0f2c01c38136$0a4866c0$a001...@phx.gbl...