VBA访问word菜单

 

Sub SetCommandbar()
            '
        ' SetCommandbar Macro
        ' 宏在 2007-2-1 由 创建
        '
        '菜单
        '菜单
        Dim cbar  As CommandBarButton

                      '菜单>新建
        Set cbar = CommandBars("File").Controls("新建(&N)")
            cbar.Enabled = False
                               cbar.OnAction = "NullMethod"
        cbar.ShortcutText = ""
        'cbar.Reset
        '菜单>打开
        Set cbar = CommandBars("File").Controls("打开(&O)")
            cbar.Enabled = False '
        cbar.OnAction = "NullMethod"
        cbar.ShortcutText = ""
        'cbar.Reset
        '菜单>保存
        Set cbar = CommandBars("File").Controls("保存(&S)")
            cbar.Enabled = False '
        cbar.OnAction = "NullMethod"
        cbar.ShortcutText = ""
        'cbar.Reset
        '菜单>另存为
        Set cbar = CommandBars("File").Controls("另存为(&A)")
            cbar.Enabled = False '
        cbar.OnAction = "NullMethod"
        cbar.ShortcutText = ""
        'cbar.Reset
        '命令>新建
        Set cbar = CommandBars("Standard").Controls(1)
            cbar.Visible = True
                               cbar.Enabled = False '
        cbar.OnAction = "NullMethod"
        cbar.ShortcutText = ""
        'cbar.Reset
        '命令>打开
        Set cbar = CommandBars("Standard").Controls("打开(&O)")
            cbar.Visible = True
                               cbar.Enabled = False '
        cbar.OnAction = "NullMethod"
        cbar.ShortcutText = ""
        'cbar.Reset
        '命令>保存
        Set cbar = CommandBars("Standard").Controls("保存(&S)")
            cbar.Visible = True
                               cbar.Enabled = False '
        cbar.OnAction = "NullMethod"
        cbar.ShortcutText = ""
        'cbar.Reset


        'CommandBars("Standard").Controls(1).ShortcutText = ""



        '快捷键Ctrl+N 和Ctrl+O
        'Set cbar = CommandBars.ActionControl
        Set myControl = Application.CommandBars.FindControl _
                                                                (Type:=msoControlPopup, Visible:=True)



        End Sub

            Private Sub NullMethod()

                            End Sub

                                Sub myreset()
                                    '菜单
        Dim cbar  As CommandBarButton

                      '菜单>新建
        Set cbar = CommandBars("File").Controls("新建(&N)")
            cbar.Reset
                '菜单>打开
        Set cbar = CommandBars("File").Controls("打开(&O)")
            cbar.Reset
                '菜单>保存
        Set cbar = CommandBars("File").Controls("保存(&S)")
            cbar.Reset
                '菜单>另存为
        Set cbar = CommandBars("File").Controls("另存为(&A)")
            cbar.Reset
                '命令>新建
        Set cbar = CommandBars("Standard").Controls(1)
            cbar.Reset
                '命令>打开
        Set cbar = CommandBars("Standard").Controls("打开(&O)")
            cbar.Reset
                '命令>保存
        Set cbar = CommandBars("Standard").Controls("保存(&S)")
            cbar.Reset
                End Sub
                        Sub aaa()

                                ' aaa Macro
        ' 宏在 2007-2-2 由 张文璋 创建
        '

        End Sub