View Single Post
  #6   Report Post  
Posted to microsoft.public.word.mailmerge.fields
Doug Robbins - Word MVP Doug Robbins - Word MVP is offline
external usenet poster
 
Posts: 8,832
Default Creating Labels with Mail Merge

Use the following macro

Macro to set the first label on a part sheet of labels for a label type
mailmerge.

Dim MMMDoc As Document

Dim dsource As Document

Dim dtable As Table

Dim i As Long, j As Long

Set MMMDoc = ActiveDocument

With MMMDoc.MailMerge

If .MainDocumentType = wdMailingLabels Then

If .State = wdMainAndDataSource Then

Set dsource = Documents.Open(.DataSource.Name)

Set dtable = dsource.Tables(1)

i = InputBox("Enter the number of labels that have already been
used on the sheet.", "Set Starting Label")

If IsNumeric(i) Then

With dtable

For j = 1 To i

.Rows.Add BeforeRow:=.Rows(2)

Next j

End With

End If

.Destination = wdSendToNewDocument

.Execute

End If

End If

End With

dsource.Close wdDoNotSaveChanges


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

"KM" wrote in message
...
Thanks for the help - I ran the msconfig and just turned off pen flicks
and
the labels updated fine. But is there a way to determine where they are
printed on the sheet? Publisher made this so easy compared to Word.

Thanks again

"Peter Jamieson" wrote:

It sounds as if you may have a Tablet PC or perhaps a Vista PC with a
device
that has enabled tablet input, in which case see

http://tips.pjmsn.me.uk/t0005.htm

--
Peter Jamieson
http://tips.pjmsn.me.uk

"KM" wrote in message
...
In Word 2007, how do you create a sheet of different mailing labels
using
excel as the data source to merge.

I was able to create the labels and used the Replicate Option and
clicked
on
UPDATE all labels - but it update the top and bottom row but skips the
middle
labels. Then it takes the second person and puts the second person
first
on
the next page and repeats them again and so on...

I can do this very easily in Publisher - but I wanted to see if there
was
the same options in Word.

Thanks