What are the exact steps to make this a template?
You say the template goes in the startup folder. Which is the Word startup
folder? Is it C:\Program Files (x86)\Microsoft Office\Office12, or in
C:\Program Files (x86)\Microsoft Office\Templates, or somewhere else?
Does the name of the template file matter? Or does the first line "Sub
MailMergePropagateLabel()" do the mapping over the bad default command
regardless of the template name?
I've tried several incatations of the template file, but I am still not
getting the Address Block propogating properly across the label document
after hitting "Update Labels".
By the way, I'm not on a tablet PC, but on a touch enabled desktop. You are
going to see many more people run across this bug as Win7 drives more touch
PC volume into the market.
Thanks,
Bob
"Doug Robbins - Word MVP on news.microsof" wrote:
Sounds like you might be using a Tablet PC or a PC with some form of Tablet
functionality.
Use the following 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 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
"BK" wrote in message
news
I'm using mswordxp. I've inserted my merge field in the first column/row
of
the label template and clicked on the update icon in the tool bar and have
no
response. Shouldn't it update and insert "next record" in every cell?