I have a touchscreen laptop which causes my "Update All Labels" button
to malfunction during a mail merge according to http://support.microsoft.com/?kbid=898630.

I was able to use MVP Doug Robbins code below as a great workaround.
It runs perfectly as a MACRO that I initiate using a keyboard shortcut
but I would like for it to run whenever I press the "Update All
Labels" button instead. I tried saving it as a template and putting
it in Word's startup folder but that had no effect. What else shall I
do?


Sub MailMergePropagateLabel()
Dim atable As Table
Dim i As Long
Dim j As Long
Dim source As Cell
Dim 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