View Single Post
  #3  
Old June 16th, 2009, 10:26 AM posted to microsoft.public.word.mailmerge.fields
Doug Robbins - Word MVP
external usenet poster
 
Posts: 8,239
Default mailmerge to labels using Word 2007

Here is a macro to overcome the problem with propagation of mail merge field
fields with a label type mail merge when using a Tablet PC and some other
Computers that have Tablet PC Functionality available:

Sub MailMergePropagateLabel()
Dim atable As Table
Dim i As Long, j As Long
Dim source As Cell, target As Cell
Dim myrange As Range
Set atable = ActiveDocument.Tables(1)
Set source = atable.Cell(1, 1)
Set myrange = source.Range
myrange.Collapse wdCollapseStart
ActiveDocument.Fields.Add Range:=myrange, Text:="NEXT", _
PreserveFormatting:=False
source.Range.Copy
For j = 2 To atable.Columns.Count
Set target = atable.Cell(1, j)
If target.Range.Fields.Count 0 Then
target.Range.Paste
End If
Next j
For i = 2 To atable.Rows.Count
For j = 1 To atable.Columns.Count
Set target = atable.Cell(i, j)
If target.Range.Fields.Count 0 Then
target.Range.Paste
End If
Next j
Next i
atable.Cell(1, 1).Range.Fields(1).Delete
End Sub

It is suggested that you put this code into a template that you save in the
Word Startup folder (C:\Users\[user
name]\AppData\Roaming\Microsoft\Word\Startup) so that it becomes an add-in
and will be available whenever you need it. As the macro has the same name
as the Word Command that is supposed to do the job, this macro will run when
the Update Labels button is used when setting up the mail merge label main
document.


--
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, originally posted via msnews.microsoft.com
"KAT" wrote in message
...
I'm merging data from an Excel workbook to create labels, which I have
done
hundreds of times in the older versions of Word, however now I cannot get
Word 2007 to propagate all of my labels. When I click on the "update
labels" button it only propagates the first three and the last two labels
on
each page (out of 30 labels). I've already rechecked my data source but
have
found nothing out of the ordinary. Any suggestions?