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 / May 2007

Tip: Looking for answers? Try searching our database.

Word 2000 - Mail Merge/labels

Thread view: 
Enable EMail Alerts  Start New Thread
Thread rating: 
Abay - 28 May 2007 02:30 GMT
Hello   ... I am creating mailing labels using the Mail Merge feature of
Word.  All works fine except when I don't have a full page of labels i.e.
some are already used.  I know when you do a single label (Not through Mail
merge) you can specify where you want to print it on the page, (row and
column) but cannot see that option when doing a merge with the source coming
from an external file.

Any help on this would be much appreciated.

Abay
Doug Robbins - Word MVP - 28 May 2007 06:15 GMT
The only way to do that is to insert the necessary number of blank records
at the beginning of the data source.  If your data source is a Word
document, the following macro will do that for you:

'Macro created by Doug Robbins 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 needs to be run when you have the mailmerge main document already
set up and it will send the merge to a new document that you can then print
out onto your labels.

If your data source is not a Word document, you can create a Word document
as the data source by creating a Catalog or Directory type mail merge that
uses your original data source in the main document of which, you insert a
one row table with as many columns as there are fields in your data source
and then you insert the merge fields into the cells of that table.  Then you
execute that merge to a new document and then insert a new row at the top of
the table that will be in that document and into the cells of that new row,
you enter the names of the merge fields.  Then save that document and use it
as the data source.

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

> Hello   ... I am creating mailing labels using the Mail Merge feature of
> Word.  All works fine except when I don't have a full page of labels i.e.
[quoted text clipped - 6 lines]
>
> Abay
Abay - 29 May 2007 05:25 GMT
Many thanks for your suggestions .. will insert blank lines at the beginning
of the data source (a .csv file generated by Excel)

Really appreciate your help ..

Abay
> The only way to do that is to insert the necessary number of blank records
> at the beginning of the data source.  If your data source is a Word
[quoted text clipped - 52 lines]
>>
>> Abay

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.