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