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 / January 2008

Tip: Looking for answers? Try searching our database.

Mail Merge Labels using partial label sheets

Thread view: 
Enable EMail Alerts  Start New Thread
Thread rating: 
HelloJD - 31 Jan 2008 18:57 GMT
I need to start my Mail Merge labels halfway down the page because I've
already used part of my label sheet.  How do I get the setup of the page to
shift and begin further down?  Thanks.
Doug Robbins - Word MVP - 31 Jan 2008 19:33 GMT
The way to do this is to insert the necessary number of blank records at the
top of the data source.

If the data source is a Word table, the following macro run after you attach
the data source and set up the mail merge main document, will ask you how
many blank records should be added and will temporarilty add them to the
data source and then execute the merge.

If your data source is not a Word document, you can use a catalog (or in XP)
a directory type mailmerge to create a Word document to use as 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

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 need to start my Mail Merge labels halfway down the page because I've
> already used part of my label sheet.  How do I get the setup of the page
> to
> shift and begin further down?  Thanks.

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.