[Wendy]

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!

[Graham Mayor]

Create a normal mailmerge to labels -
http://www.gmayor.com/mail_merge_lab...th_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

--

Graham Mayor - Word MVP

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



Wendy wrote:
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!