
Signature
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
I feel another macro coming on ;)

Signature
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
Graham Mayor - Word MVP
My web site www.gmayor.com
Word MVP web site http://word.mvps.org
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
> The only way to do it is to insert the necessary number of blank
> records into the datasource to force the first record with data to be
[quoted text clipped - 13 lines]
>> continue for the rest of the sheet and flow to R1 C1 if it flows
>> over!
RolandB - 15 Mar 2007 13:10 GMT
I probably will not be the one to do the macro bit but certainly I could
build a case for cost efficiency. Some software I'm dealing with does it and
it really is cost effective! Thank you Doug and Graham for your time!
Roland
> I feel another macro coming on ;)
>
[quoted text clipped - 15 lines]
> >> continue for the rest of the sheet and flow to R1 C1 if it flows
> >> over!
Doug Robbins - Word MVP - 15 Mar 2007 13:23 GMT
Here it is:
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
It is intended to be run after the main document is set up and ready to be
run. For XP and later, it could be incorporated into the add-in used for
mailmerging to separate documents and modified slightly so that it first
asked if you wanted to start from the first label on the sheet. The one
add-in could then be used for both purposes.
I'll get around to making that modification later.

Signature
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
>I feel another macro coming on ;)
>
[quoted text clipped - 15 lines]
>>> continue for the rest of the sheet and flow to R1 C1 if it flows
>>> over!