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" <KM[ at ]discussions.microsoft.com> wrote in message news:32E4C1C6-E24B-4E86-84EB-41F68742F75D[ at ]microsoft.com...
[Quoted Text] > 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" <KM[ at ]discussions.microsoft.com> wrote in message >> news:6A00947C-7222-4141-9E88-0482DF22B488[ at ]microsoft.com... >> > 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 >> >>
|