[Trina]

When I am doing a large batch of letters and I want to create envelopes, can
I do them at the same time?

My data source is very large and I don't send letters to everyone in the
data source each time. So I open the source and pick the ones I want and
print the letters. Then I have to open my data source again and re-select
the names so I can do envelopes. I am doing 60 or so letters at a time.

I am sure there is a better way.

[Doug Robbins - Word MVP]

You could add an envelope to the mail merge main document (ToolsLetters and
MailingsEnvelopes and LabelsEnvelopesAdd to Document) and set up the
merge fields for the address in the envelope that will be added at the
beginning of your document.

If your printer cannot handle the mixture of envelopes and letters, execute
the merge to a new document and then use the following macros to print the
envelopes and the letters separately.

Sub PrintEnvelopes()
Dim i as Long
With ActiveDocument
For i = 1 to .Sections.Count - 1 Step 2
.PrintOut Range: = wdPrintFromTo, From: = "s" & i", To: = "s" & i
Next i
End With
End Sub

Sub PrintLetters()
Dim i as Long
With ActiveDocument
For i = 2 to .Sections.Count Step 2
.PrintOut Range: = wdPrintFromTo, From: = "s" & i", To: = "s" & i
Next i
End With
End Sub


--
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

"Trina" wrote in message
...
When I am doing a large batch of letters and I want to create envelopes,
can
I do them at the same time?

My data source is very large and I don't send letters to everyone in the
data source each time. So I open the source and pick the ones I want and
print the letters. Then I have to open my data source again and re-select
the names so I can do envelopes. I am doing 60 or so letters at a time.

I am sure there is a better way.