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 |
#2
Posted to microsoft.public.word.mailmerge.fields
|
|||
|
|||
How to Intercept the "Update All Labels" Button
If you put that 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 "sjamie" wrote in message ... 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 |
#3
Posted to microsoft.public.word.mailmerge.fields
|
|||
|
|||
How to Intercept the "Update All Labels" Button
Doug, I did put the code into a template that I saved in the Word Startup
folder so it becomes an add-in. The Update All Labels button still calls the original, broken command resulting in only a few labels getting populated. But if I manually run the code as a macro via a keyboard shortcut, it works perfectly. I would prefer for the Update All Labels button to run the corrected code. Any more ideas? "Doug Robbins - Word MVP" wrote: If you put that 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 "sjamie" wrote in message ... 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 |
#4
Posted to microsoft.public.word.mailmerge.fields
|
|||
|
|||
How to Intercept the "Update All Labels" Button
Are you sure that the add-in is loaded? In Word 2007, from the Developer
tab, select Document Template and make sure that the template that you created is there and has a check mark against it. In earlier versions, from the Tools menu, select Templates and Add-ins and make sure that the template that you created is there and has a check mark against it. -- 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 "sjamie" wrote in message ... Doug, I did put the code into a template that I saved in the Word Startup folder so it becomes an add-in. The Update All Labels button still calls the original, broken command resulting in only a few labels getting populated. But if I manually run the code as a macro via a keyboard shortcut, it works perfectly. I would prefer for the Update All Labels button to run the corrected code. Any more ideas? "Doug Robbins - Word MVP" wrote: If you put that 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 "sjamie" wrote in message ... 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 |
#5
Posted to microsoft.public.word.mailmerge.fields
|
|||
|
|||
How to Intercept the "Update All Labels" Button
Yes, I am using Word 2003 and under Tools Templates and Add-ins, the
template is listed and IS checked. What else do I need to do? "Doug Robbins - Word MVP" wrote: Are you sure that the add-in is loaded? In Word 2007, from the Developer tab, select Document Template and make sure that the template that you created is there and has a check mark against it. In earlier versions, from the Tools menu, select Templates and Add-ins and make sure that the template that you created is there and has a check mark against it. -- 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 "sjamie" wrote in message ... Doug, I did put the code into a template that I saved in the Word Startup folder so it becomes an add-in. The Update All Labels button still calls the original, broken command resulting in only a few labels getting populated. But if I manually run the code as a macro via a keyboard shortcut, it works perfectly. I would prefer for the Update All Labels button to run the corrected code. Any more ideas? "Doug Robbins - Word MVP" wrote: If you put that 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 "sjamie" wrote in message ... 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 |
#6
Posted to microsoft.public.word.mailmerge.fields
|
|||
|
|||
How to Intercept the "Update All Labels" Button
With a macro that has the same name as a Word command, that macro should
take precedence over the Word command. Try opening the template at at the beginning of the code insert a command at the beginning of the code in the macro MsgBox "Macro running" and then try and update the labels and see if that message appears. -- 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 "sjamie" wrote in message ... Yes, I am using Word 2003 and under Tools Templates and Add-ins, the template is listed and IS checked. What else do I need to do? "Doug Robbins - Word MVP" wrote: Are you sure that the add-in is loaded? In Word 2007, from the Developer tab, select Document Template and make sure that the template that you created is there and has a check mark against it. In earlier versions, from the Tools menu, select Templates and Add-ins and make sure that the template that you created is there and has a check mark against it. -- 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 "sjamie" wrote in message ... Doug, I did put the code into a template that I saved in the Word Startup folder so it becomes an add-in. The Update All Labels button still calls the original, broken command resulting in only a few labels getting populated. But if I manually run the code as a macro via a keyboard shortcut, it works perfectly. I would prefer for the Update All Labels button to run the corrected code. Any more ideas? "Doug Robbins - Word MVP" wrote: If you put that 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 "sjamie" wrote in message ... 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 |
Reply |
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 |