Mail Merged records need to go to SEPARATE documents

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

Andrew Goodman - 01 Dec 2004 16:25 GMT

I have a mail merge to do that creates form letters for everyone at my
company. However, I need each person's form letter to be saved in a separate
file. Is there a way to have a mail merge take each merged record into a
separate document, rather than merge everything into one new document? As it
stands right now, I'm looking at merging the list one record at a time and
then saving each individual file, which needless to say would be quite
tedious. ANY help on this would be greatly appreciated.

Reply to this Message

Graham Mayor - 01 Dec 2004 16:40 GMT

See http://www.gmayor.com/individual_merge_letters.htm

Signature

<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
Graham Mayor - Word MVP

My web site www.gmayor.com
Word MVP web site http://word.mvps.org
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>

> I have a mail merge to do that creates form letters for everyone at my
> company. However, I need each person's form letter to be saved in a
[quoted text clipped - 4 lines]
> needless to say would be quite tedious. ANY help on this would be
> greatly appreciated.

Reply to this Message

NedF - 08 Dec 2004 17:51 GMT

Hi Graham,

I just posted a question regarding something similar to this, except I
need to print the individual letters in the merge separately in order to take
advantage of the folder option on our copier. Could this Macro be tweaked to
handle that. I'm not so hot with VB, but I can't figure out how to write
usuable macros in COBOL! Any help would be appreciated and probably save my
job.

Ned Forster

> See http://www.gmayor.com/individual_merge_letters.htm
>
[quoted text clipped - 6 lines]
> > needless to say would be quite tedious. ANY help on this would be
> > greatly appreciated.

Reply to this Message

Graham Mayor - 08 Dec 2004 18:05 GMT

Another of fellow MVP Doug Robbins handy macros will do this

Letters = ActiveDocument.Sections.Count
Selection.HomeKey Unit:=wdStory
Counter = 1
While Counter < Letters
ActiveDocument.Sections.First.Range.Cut
Documents.Add
Selection.Paste
ActiveDocument.PrintOut
ActiveDocument.Close
SaveChanges:=wdDoNotSaveChanges:=False,
Counter = Counter + 1
Wend

Signature

<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
Graham Mayor - Word MVP

My web site www.gmayor.com
Word MVP web site http://word.mvps.org
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>

> Hi Graham,
>
[quoted text clipped - 26 lines]
>>> which needless to say would be quite tedious. ANY help on this
>>> would be greatly appreciated.

Reply to this Message

Doug Robbins - 09 Dec 2004 00:52 GMT

I think that Graham meant to give you this one:

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

But wait a minute, I just answered the same question in a later post from
you.

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

> Hi Graham,
>
[quoted text clipped - 20 lines]
>> > needless to say would be quite tedious. ANY help on this would be
>> > greatly appreciated.

Reply to this Message