multiple recipient labels in mail merge

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

Wendy - 09 Oct 2007 02:22 GMT

I'm doing fine with the mail merge pulling data from an Access 2003 database.
Envelopes work just great. I love being able to request 10 envelopes of nn
of recipients to replenish my drawer with "ready to go envelopes" for
suppliers, etc. What I want to be able to do is select more than 1 recipient
and create a whole sheet of labels for the same recipient mailing address.
If I select, say 3 recipients, the goal is to print 3 pages of address
labels, one unique addressee per sheet. The only thing which has worked
thus far, is to get the merge done, then use the Edit Labels, and copy/paste
the first address into the remaining empty gridboxes, and repeat for the
other selected recipients. This defeats the purpose, to me, of merging data
on demand. I might as well just type up and save a document which is just a
single address and then choose "Labels" function where the Print from that
function does let me choose a full page of the same address, or single
address in a chosen row/column.

Advice or instructions are appreciated!

Reply to this Message

Graham Mayor - 09 Oct 2007 06:55 GMT

Create a normal mailmerge to labels -
http://www.gmayor.com/mail_merge_labels_with_word_xp.htm - and then change
the merge document type to Letters and remove all the NEXT record fields
from the table before merging. With the fields toggled (ALT+F9) to show {
NEXT } you can use replace to replace
^d NEXT
with nothing which will get rid of them. (or use the following macro to
remove them

Sub RemoveNextField()
Dim bDisplay As Boolean
dDisplay = ActiveWindow.View.ShowFieldCodes
ActiveWindow.View.ShowFieldCodes = True
With Selection.Find
.ClearFormatting
.Replacement.ClearFormatting
.Text = "^d NEXT"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
.Execute replace:=wdReplaceAll
End With
ActiveWindow.View.ShowFieldCodes = bDisplay
End Sub

http://www.gmayor.com/installing_macro.htm

Signature

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

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

> I'm doing fine with the mail merge pulling data from an Access 2003
> database. Envelopes work just great. I love being able to request 10
[quoted text clipped - 13 lines]
>
> Advice or instructions are appreciated!

Reply to this Message