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
'
' 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