WordVBA怎么执行自带菜单功能？

loquat

貌似看到两种方法：

1. Application.CommandBars("Picture").Controls("压缩图片(&C)...").Execute

复制代码

1. Application.CommandBars("Picture").Controls.Items(index).Execute

复制代码

现在的问题是，怎么才能找到CommandBars的ID，除了"Pictures"还有哪些？

Controls里面的ID又要怎么找。

loquat

word 2007 我想屏蔽，右键菜单中的一些按钮。

1. '7685   查阅(&K)...
   
2. '30475  同义词(&Y)
   
3. '31432  翻译(&A)
   
4. '14453  英语助手(&E)

复制代码

不知道怎么写代码

zhanglei1371

在03中可以这样做：
Sub 打印出所有菜单名称()
    For i = 1 To Application.CommandBars.Count
        Selection.InsertAfter Application.CommandBars(i).Name & Chr(13)
        For j = 1 To Application.CommandBars(i).Controls.Count
            Selection.InsertAfter vbTab & Application.CommandBars(i).Controls(j).ID & Application.CommandBars(i).Controls(j).Caption & Chr(13)
        Next
    Next
End Sub
以删除查阅为例：
Sub 删查阅()
Application.CommandBars("text").Controls("查阅(&K)...").Delete
End Sub
你可以试试07版的是否通用。

loquat

zhanglei1371 发表于 2013-5-27 23:08
在03中可以这样做：
Sub 打印出所有菜单名称()
    For i = 1 To Application.CommandBars.Count

谢谢你，测试了是通用的。
1.我屏蔽了以上4个菜单项之后，“翻译(&A)”的下一级菜单“翻译(&A)...”还是留下来了。
2.怎么恢复菜单呢？
3.怎么执行这些菜单项呢？

loquat

zhanglei1371 发表于 2013-5-27 23:08
在03中可以这样做：
Sub 打印出所有菜单名称()
    For i = 1 To Application.CommandBars.Count

我想执行 插入-表格-插入表格(&I)...   TableInsertDialogWord
和 插入-链接-交叉引用                    InsertCrossReference或者CrossReferenceInsert

zhanglei1371

恢复菜单：
Application.CommandBars("text").Reset

loquat

zhanglei1371 发表于 2013-5-28 10:05
恢复菜单：
Application.CommandBars("text").Reset

插入表格和交叉引用找到方法了
Dialogs.Show方法
'wdDialogTableInsertTable        129 插入表格(&I)...
'wdDialogInsertCrossReference 367 插入交叉引用
不过对其他方法仍然有兴趣

dafanshu1

zhanglei1371 发表于 2013-5-27 23:08
在03中可以这样做：
Sub 打印出所有菜单名称()
    For i = 1 To Application.CommandBars.Count

请教一下，代码所生成的某些控件名称中含有两个像“回”字的符号，如Selection.InsertAfter Application.CommandBars("Tables and Borders").Controls(1).Caption，显示结果是“绘制表格回回(&W)”，把此结果直接拷进VBA中两个回字就会消失，但执行Application.CommandBars("Tables and Borders").Controls("绘制表格(&W)").Execute却是出错了，如何解决呢？

zhang139

Application.CommandBars.FindControl(ID:=15675).Execute '加密文档
Application.CommandBars.FindControl(ID:=21974).Execute '加密文档
Application.CommandBars.FindControl(ID:=22586).Execute '打印预览和??打印
Application.CommandBars.FindControl(ID:=364).Execute '设置??打印区域
Application.CommandBars.FindControl(ID:=247).Execute '页面设置
Application.CommandBars.FindControl(ID:=748).Execute '另存为
Application.CommandBars.FindControl(ID:=108).Execute '.. 格式刷
Application.CommandBars.FindControl(ID:=178).Execute '全屏显示
Application.CommandBars.FindControl(ID:=893).Execute '.. 保护??工作表
Application.CommandBars.FindControl(ID:=894).Execute '.. 保护​​工作簿
Application.CommandBars.FindControl(ID:=485).Execute '切换网格
Application.CommandBars.FindControl(ID:=22398).Execute '全屏打印预览
Application.CommandBars.FindControl(ID:=128).Execute '撤消
Application.CommandBars.FindControl(ID:=20862).Execute '升序
Application.CommandBars.FindControl(ID:=20863).Execute '降序

appleftg

过来学习一下 ，好东西