Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.word.mailmerge.fields
|
|||
|
|||
How to Intercept the "Update All Labels" Button
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 |
Thread Tools | |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Mail Merge Labels "Update Labels" greyed out | Microsoft Word Help | |||
I want idMso for "Mailing" Tab button to add this button in custom ribbon tab | Mailmerge | |||
I want idMso for "Mailing" Tab button to add this button in custom ribbon tab | Microsoft Word Help | |||
I want idMso for "Mailing" Tab button to add this button in custom ribbon tab | New Users | |||
Mail Merge "Update all labels"...doesn't | Mailmerge |