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.

Choosing starting label

Thread view: 
Enable EMail Alerts  Start New Thread
Thread rating: 
RolandB - 14 Mar 2007 20:21 GMT
I can have a single address label printed from Word (manual address entry or
select from Contacts) and be able to specify the 'starting' row and column.  
The nice thing of this feature is that I can use the same sheet over and over
until all the labels are used up.  I can start at the top or bottom also!  
Does anyone know how to specify the starting point for a 'label' mailmerge
with multiple labels.  I know I can edit my Excel database and put in
'blanks' to move down the page but would rather be able to say to start on
Row n and Column m and then have it continue for the rest of the sheet and
flow to R1 C1 if it flows over!
Doug Robbins - Word MVP - 15 Mar 2007 05:22 GMT
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 printed on the
first available label.

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 can have a single address label printed from Word (manual address entry
>or
[quoted text clipped - 8 lines]
> Row n and Column m and then have it continue for the rest of the sheet and
> flow to R1 C1 if it flows over!
Graham Mayor - 15 Mar 2007 07:09 GMT
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!
Sandie Scrivens - 26 May 2007 00:23 GMT
Maybe you need to think about getting out more!  Use complete sheets for
merging and use your part sheets for youe single labels!
 
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.