Re: Saving Mail Merge Records & also printing them.

First off, you need to consider whether they really do need to have more
than one section. Maybe a Different First Page header and footer will
accomplish what you are now doing with separate sections.

If however you cannot avoid having a multi section mailmerge main document,
you would need to modify the macro as follows, where n is the number of
section in the mailmerge main document
Dim i As Long
With ActiveDocument
For i = 1 To .Sections.Count, Step n
.PrintOut Range:=wdPrintFromTo, From:="s" & i, To:="s" & i + n - 1
Next i
End With


--
Hope this helps.

Please reply to the newsgroup unless you wish to avail yourself of my
services on a paid consulting basis.

Doug Robbins - Word MVP
"Glenn" <nospam@xxxxxxxxx> wrote in message
news:eb3L34apFHA.1484@xxxxxxxxxxxxxxxxxxxxxxx
> Thanks, again.
>
> I haven't tried the first part (saving), but I have tried the second part
> (printing).
>
> I tried it for two different documents. The first one worked great.
>
> The second one didn't work so great. It seemed to be printing the
> document
> in pieces. After some investigating, I noticed that my original document
> had different sections in it. What happened is that when I ran the macro
> it
> was printing each section for each merge recipient. I'm guessing the "s"
> in
> your code stands for section.
>
> Is there anyway around this? Some of my documents need to have various
> sections in them due to headers & footers, etc.
>
> Thanks.
>
>
> "Doug Robbins" <dkr@xxxxxxxxxxxxxx> wrote in message
> news:O7qG$%23ZpFHA.2952@xxxxxxxxxxxxxxxxxxxxxxx
>> With the following method, the path plus the name could be taken from the
>> datasource:
>>
>> If you want each file to be named based on one of the fields in the data
>> source,
>> here's a method that I have used that involves creating a separate
>> catalog type mailmerge maindocument which creates a word document
> containing
>> a table in each row of which would be your data from the database that
>> you
>> want to use as the filename.
>>
>> You first execute that mailmerge, then save that file and close it. Then
>> execute the mailmerge that you want to create the separate files from and
>> with the
>> result of that on the screen, run a macro containing the following code
>> and when the File open dialog appears, select the file containing the
> table
>> created by the first mailmerge
>>
>> ' Throw Away Macro created by Doug Robbins
>> '
>> Dim Source As Document, oblist As Document, DocName As Range,
>> DocumentName
>> As String
>> Dim i As Long, doctext As Range, target As Document
>> Set Source = ActiveDocument
>> With Dialogs(wdDialogFileOpen)
>> .Show
>> End With
>> Set oblist = ActiveDocument
>> Counter = 1
>> For i = 1 To oblist.Tables(1).Rows.Count
>> Set DocName = oblist.Tables(1).Cell(i, 1).Range
>> DocName.End = DocName.End - 1
>>
>> 'Change the path in the following command to suit where you want to
> save
>> the documents.
>> DocumentName = "I:\WorkArea\Documentum\" & DocName.Text
>> Set doctext = Source.Sections(i).Range
>> doctext.End = doctext.End - 1
>> Set target = Documents.Add
>> target.Range.FormattedText = doctext
>> target.SaveAs FileName:=DocumentName
>> target.Close
>> Next i
>>
>> To print each record separately, execute the merge to a new document and
>> then run the following macro on that document
>>
>> Dim i As Long
>> With ActiveDocument
>> For i = 1 To .Sections.Count
>> .PrintOut Range:=wdPrintFromTo, From:="s" & i, To:="s" & i
>> Next i
>> End With
>>
>>
>>
>>
>>
>> --
>> Hope this helps.
>>
>> Please reply to the newsgroup unless you wish to avail yourself of my
>> services on a paid consulting basis.
>>
>> Doug Robbins - Word MVP
>> "Glenn" <nospam@xxxxxxxxx> wrote in message
>> news:%23kHUsrXpFHA.2444@xxxxxxxxxxxxxxxxxxxxxxx
>> > I've read the info Doug Robbins has posted on how to save individual
> mail
>> > merge records.
>> >
>> > I have two questions:
>> >
>> > 1) Is there a way to specify a specific folder you want the document
>> > saved into based on one of the merge fields?
>> >
>> > and
>> >
>> > 2) Is there a way to print the individual documents instead of saving
>> > them. This might seem like an odd question. I know that you can merge
> to
>> > printer. However, I have a printer that does things such as back to
> back,
>> > folding, stapling, etc. Whenever I try to send a mail merge document
>> > through to it, it considers all of the individual documents to be one
> big
>> > job. So, if I have five people in my database who are each receiving a
>> > two page letter from me, and I want the first page to come from tray
>> > one
>> > because it is special paper, what happens is that the very first page
>> > of
>> > the merge will come from tray one and the rest of the pages will come
> from
>> > the default tray. I've tried numerous ways of doing this and nothing
>> > works.
>> >
>> > I suppose that I could save them all as individual files and then
>> > select
>> > all and print, but that seems like extra work that could be avoided.
>> >
>> > Thanks,
>> > Glenn
>> >
>>
>>
>
>


.

Relevant Pages
Loading