word vba获取工具栏命令按钮代码

您可以使用以下代码获取工具栏命令按钮的代码：

Sub GetToolbarButtonCode()
    Dim tb As CommandBar
    Dim btn As CommandBarControl
    
    '获取“标准”工具栏
    Set tb = Application.CommandBars("Standard")
    
    '获取“新建”按钮
    Set btn = tb.Controls("New")
    
    '输出按钮的代码
    Debug.Print btn.accName & " - " & btn.accDefaultAction
End Sub

在上面的代码中，我们首先使用 `Application.CommandBars` 方法获取了“标准”工具栏。然后，我们使用 `tb.Controls` 方法获取了“新建”按钮的引用。最后，我们使用 `btn.accName` 和 `btn.accDefaultAction` 属性获取了按钮的代码，并使用 `Debug.Print` 输出到控制台。您可以根据需要更改工具栏和按钮的名称。

相关问题

word vba获取工具栏命令按钮名称

你可以使用下面的VBA代码获取Word工具栏命令按钮的名称：

Sub GetToolbarButtonNames()
    Dim tb As CommandBar
    Dim btn As CommandBarButton
    
    For Each tb In Application.CommandBars
        If tb.Type = msoBarTypeNormal Then '只获取普通工具栏
            Debug.Print "Toolbar: " & tb.Name
            For Each btn In tb.Controls
                Debug.Print "  Button: " & btn.Caption
            Next btn
        End If
    Next tb
End Sub

这个代码会逐个遍历Word中的所有普通工具栏，并输出每个工具栏中所有命令按钮的名称。你可以根据需要对代码进行修改，以满足你的具体需求。

word vba创建工具栏和菜单

要在 Word VBA 中创建工具栏和菜单，可以按照以下步骤进行操作：

1. 打开 Word 文档并按下 Alt + F11 键盘快捷键打开 VBA 编辑器。
2. 在 VBA 编辑器中，选择“插入” -> “模块”，打开新的代码模块。
3. 在模块中编写 VBA 代码来创建工具栏和菜单。例如，以下代码将创建一个名为“Custom Toolbar”的工具栏，并在其上添加一个名为“Custom Menu”的菜单：

Sub CreateToolbarAndMenu()
    Dim cb As CommandBar
    Dim cbc As CommandBarControl
    Dim cbp As CommandBarPopup
    
    ' Create custom toolbar
    Set cb = Application.CommandBars.Add(Name:="Custom Toolbar", _
        Position:=msoBarTop, Temporary:=True)
        
    ' Add custom menu to toolbar
    Set cbc = cb.Controls.Add(Type:=msoControlPopup)
    cbc.Caption = "Custom Menu"
    
    ' Add commands to custom menu
    Set cbp = cbc.Controls.Add(Type:=msoControlButton)
    cbp.Caption = "Say Hello"
    cbp.OnAction = "SayHello"
End Sub

4. 在代码模块中添加一个名为“SayHello”的 VBA 子过程，在该子过程中添加要执行的操作。例如，以下代码将在单击“Say Hello”按钮时在 Word 中显示一个消息框：

Sub SayHello()
    MsgBox "Hello, world!"
End Sub

5. 在 VBA 编辑器中，按下 F5 键运行 CreateToolbarAndMenu 子过程。这将创建自定义工具栏和菜单，并将“Say Hello”按钮添加到菜单中。

完成以上步骤后，您可以在 Word 中看到新创建的自定义工具栏和菜单。单击“Custom Menu”将显示“Say Hello”按钮，单击该按钮将显示一个消息框。