Home | Contact Us | FAQ | Search & Site Map | Link to Us
Sign In | Join | Other 45 Sites in Network
Home
DiscussionsAccessExcelInfoPathOutlookPowerPointPublisherWord
DirectoryUser Groups
Related Topics
Outlook ExpressInternet ExplorerWindowsMS Server ProductsMore Topics ...

MS Office Forum / Word / Mailmerge and Fax / June 2007

Tip: Looking for answers? Try searching our database.

Mail merge labels

Thread view: 
Enable EMail Alerts  Start New Thread
Thread rating: 
eaglesgirl - 13 Jun 2007 18:50 GMT
If I have already done mail merge labels, but only used the first few on the
page how can I get the program to begin on another label other than the first
one so that I can use the other unused labels?
Graham Mayor - 14 Jun 2007 07:03 GMT
Insert sufficient blank records at the start of your data file to
accommodate the missing labels.

Signature

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

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

> If I have already done mail merge labels, but only used the first few
> on the page how can I get the program to begin on another label other
> than the first one so that I can use the other unused labels?
Doug Robbins - Word MVP - 14 Jun 2007 11:13 GMT
The following macro will enter the necessary number of blank records at the
start of the data source:

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

The macro should be run when the mail merge main document has been set up,
and the merge is ready to be executed.  It will execute the merge to a new
document which can then be printed out onto label stock.  The modified data
source is not saved, so that if necessary, it can be used again, commencing
with a full sheet of labels or with a part sheet of which a different number
of labels have been used.
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

> If I have already done mail merge labels, but only used the first few on
> the
> page how can I get the program to begin on another label other than the
> first
> one so that I can use the other unused labels?

Rate this thread:






 
Sign In
Join
My Latest Posts
My Monitored Threads
My Blog
My Photo Gallery
My Profile
My Homepage

Start New Thread
Enable EMail Alerts
Rate this Thread



©2008 Advenet LLC   Privacy Policy - Terms of Use
This website includes both content owned or controlled by Advenet as well as content owned or controlled by third parties.