Microsoft KB Archive/220181

= WD2000: Adding Built-in List Box to Toolbar Displays Empty List =

Article ID: 220181

Article Last Modified on 6/17/2005

-

APPLIES TO


 * Microsoft Word 2000 Standard Edition

-



This article was previously published under Q220181



SYMPTOMS
When you record a macro to duplicate the action of adding a built-in drop-down list box to a custom toolbar, replaying the macro adds the drop-down list box to the toolbar but the list is empty.

For example, you record adding the Insert Merge Field command to a custom toolbar in a mail merge document containing a data source. When you play back the recorded macro and then click the Insert Merge Field drop-down list box to display the list of merge fields, the list is empty.



WORKAROUND
To work around this problem, you can create a Visual Basic for Applications procedure to "copy" a built-in command to a custom toolbar.

Microsoft provides programming examples for illustration only, without warranty either expressed or implied. This includes, but is not limited to, the implied warranties of merchantability or fitness for a particular purpose. This article assumes that you are familiar with the programming language that is being demonstrated and with the tools that are used to create and to debug procedures. Microsoft support engineers can help explain the functionality of a particular procedure, but they will not modify these examples to provide added functionality or construct procedures to meet your specific requirements.

The following sample Visual Basic for Applications procedure demonstrates:


 * 1) Creating a new custom toolbar.
 * 2) Copying a built-in command to the new custom toolbar.

Sub CopyBuiltInDropDown

Dim CopyTo As String    ' Toolbar to copy the control To. Dim CopyFrom As string  ' Toolbar to copy the control From. Dim CtrlToCopy As String ' The name of the control to Copy.

CopyTo = "My Merge"        ' Toolbar to copy the control To. CopyFrom = "Mail Merge"    ' Built-in toolbar to copy the control From. CtrlToCopy = "Insert Merge Field" ' The name of the control to Copy.

CommandBars.Add(Name:=CopyTo).Visible = True     ' Create new toolbar. CommandBars(CopyFrom).Controls(CtrlToCopy).Copy _ ' Copy control. Bar:=CommandBars(CopyTo)

End Sub

To obtain the name of a built-in control, use the following steps:
 * 1) In Word, display the toolbar containing the control you want to copy.
 * 2) On the View menu, point to Toolbars, and then click Customize.
 * 3) Click to select the toolbar from which you want to obtain the control name.
 * 4) On the Commands tab of the Customize dialog box, click Modify Selection. The name of the control can be found in the Name textbox of the resulting shortcut menu.



STATUS
Microsoft has confirmed that this is a problem in the Microsoft products that are listed at the beginning of this article.



MORE INFORMATION
For more information about how to use the sample code in this article, click the article number below to view the article in the Microsoft Knowledge Base:

212536 OFF2000: How to Run Sample Code from Knowledge Base Articles

Additional query words: vba

Keywords: kbbug kbnofix kbfaq KB220181

-

[mailto:TECHNET@MICROSOFT.COM Send feedback to Microsoft]

© Microsoft Corporation. All rights reserved.