Office VBA教程:Add方法 (Microsoft Word)

在 Microsoft Word 中,通常忽略 Add方法的 Temporary参数(CommandBarControls对象)。因此,在向命令栏上的菜单栏添加控件按钮时,它将保留在 Normal.dot 模板中,无论是否将 Temporary参数设置为 True。要从 Normal.dot 模板中删除不需要的菜单项,可以使用下列方法之一。

  1. 删除 Normal.dot。该方法要求 Word 重新创建 Normal 默认模板,这还将删除对 Normal 模板所进行的任何其他更改,例如工具栏。由于所有 Word 文档均依赖于 Normal 模板,因此需要手动而不是自动删除模板。
  2. 重置命令栏。可以创建一个过程重置所有命令栏或指定命令栏。本示例重置所有命令栏,包括菜单栏和工具栏。
    
    Sub ResetAllCommandBars()
        Dim mnu As CommandBar
        'Error handler skips over custom toolbars,
        'which can't be reset
        On Error Resume Next
        For Each mnu In Application.CommandBars
            mnu.Reset
        Next mnu
    End Sub
    
    本示例仅重置 Word 中菜单栏上的项而不是所有工具栏。
    
    Sub ResetMenuBar()
        Dim mnu As CommandBar
        For Each mnu In Application.CommandBars
            If mnu.Name = "Menu Bar" Then
                mnu.Reset
            End If
        Next mnu
    End Sub
    

上页:Office VBA教程:不支持的语言元素 下页:Office VBA教程:Context属性

Office VBA教程:Add方法 (Microsoft Word)

Office VBA教程:Context属性 Office VBA教程
Office VBA参考教程:目录2 Office VBA参考教程:目录3
Office VBA参考教程:目录4 Office VBA参考教程:目录5
Office VBA教程:为 Microsoft Office 开发人员提供的新增功能 Office VBA教程:Change事件
Office VBA教程:Click事件 Office VBA教程:EnvelopeHide事件
Office VBA教程:EnvelopeShow事件 Office VBA教程:OnUpdate事件
Office VBA教程:新增事件 Office VBA教程:隐藏语言元素
Office VBA教程:创建和修改气球 Office VBA教程:获得有关 Macintosh 关键词的帮助
Office VBA教程:添加和管理菜单栏和菜单项 Office VBA教程:在运行时间修改气球
Office VBA教程:“Office 助手”概述 Office VBA教程:命令栏概述
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号