Sub test()
'视图工具栏中,各种工具对应的英文名称
'worksheet menu bar表示工作表菜单栏
Application.CommandBars("worksheet menu bar").Enabled = false
'formatting表示格式工具栏
Application.CommandBars("Formatting").Visible = False
'standard表示常用工具栏
Application.CommandBars("Standard").Visible = falsae
'drawing表示绘图工具栏
Application.CommandBars("Drawing").Visible = False
'control toolbox表示控件工具箱
Application.CommandBars("Control Toolbox").Visible = False
'reviewing表示审阅工具
Application.CommandBars("Reviewing").Visible = False
Application.CommandBars("金山快译").Visible = False
'dispalyformulabar表示编辑栏
Application.DisplayFormulaBar = False
Application.CommandBars("Visual Basic").Visible = False
Application.CommandBars("Web").Visible = False
Application.CommandBars("Protection").Visible = False
Application.CommandBars("Borders").Visible = False
Application.CommandBars("Forms").Visible = False
Application.CommandBars("Formula Auditing").Visible = False
Application.CommandBars("Watch Window").Visible = False
'pivottable表示数据透视表
Application.CommandBars("PivotTable").Visible = False
'chart表示图表
Application.CommandBars("Chart").Visible = False
'picture表示图片
Application.CommandBars("Picture").Visible = False
Application.CommandBars("Exit Design Mode").Visible = False
'external data表示外部数据
Application.CommandBars("External Data").Visible = False
'ply表示工作表标签
Application.CommandBars("Ply").Enabled = False
For Each cbar In CommandBars
Debug.Print cbar.Name, cbar.NameLocal, cbar.Visible
Next
End Sub
Private Sub Test()
Dim i As Long
Dim wordApp As New Word.Application
Dim CBar As Office.CommandBar
Dim CCtl As Office.CommandBarControl
Set CBar = wordApp.CommandBars(27) 'Bar Index
For Each CCtl In CBar.Controls
If CCtl.Id = 2041 Or CCtl.Id = 2604 Then '2041 Control ID
CCtl.Enabled = False
end if
Next
Set CBar = Nothing
Set CCtl = Nothing
Set wordApp = Nothing
End Sub
这是屏蔽的方法,至于你要屏蔽的 Bar ID 是多少 Control ID 是多少看下面的
Word菜单一览表
CommandBar ID _ Control ID _ Control Caption
Text11_2520_新建空白文档(&B)
1_23_打开(&O)...
1_3_保存(&S)
1_3738_邮件收件人(&M)
1_2521_打印(&P)
1_109_打印预览(&V)
1_4026_中文简繁转换(&R)...
1_2566_拼写和语法(&S)...
1_21_剪切(&T)
1_19_复制(&C)
1_22_粘贴(&P)
1_108_格式刷(&F)
1_128_无法撤消(&U)
1_129_无法恢复(&R)
1_1576_超级链接(&I)...
1_916_“表格和边框”工具栏(&T)
1_333_插入表格(&I)...
1_142_插入 Excel 工作表(&I)
1_2872_更改文字方向(&C)
1_204_绘图(&D)
1_3900_显示/隐藏编辑标记(&S)
1_1733_显示比例(&Z):
1_984_Microsoft Word 帮助(&H)
1_1_金山词霸
2_1732_样式(&S):
2_1728_字体(&F):
2_1731_字号(&F):
2_3659_键盘语言(&K)
2_113_加粗(&B)
2_114_倾斜(&I)
2_3962_下划线(&U)
2_3517_字符边框(&C)
2_3518_字符底纹(&C)
2_386_字符缩放(&C)
2_123_两端对齐(&J)
2_122_居中(&C)
2_121_右对齐(&R)
2_2792_分散对齐(&D)
2_1846_从左向右(&L)
2_1847_从右向左(&R)
2_11_编号(&N)
2_12_项目符号(&B)
2_3473_减少缩进量(&D)
2_3472_增加缩进量(&I)
2_401_字体颜色(&F)
3_2059_绘制表格(&W)
3_2060_擦除(&E)
3_1724_边框线型(&B)
3_2622_边框宽度(&B)
3_2628_边框颜色(&B)
3_203_边框(&B)
3_2947_底纹色(&S)
3_3693_表格插入(&T)
3_798_合并单元格(&M)
3_800_拆分单元格(&P)...
3_30461_单元格对齐方式(&G)
3_2068_平均分布各行(&N)
3_2067_平均分布各列(&Y)
3_107_表格自动套用格式(&F)...
3_2816_隐藏虚框(&G)
3_3157_升序(&A)
3_3158_降序(&C)
3_226_自动求和(&A)
4_3272_数据表单(&D)
4_3124_管理域(&M)
4_213_添加记录(&A)
4_214_删除记录(&D)
4_3157_升序(&A)
4_3158_降序(&C)
4_216_数据库(&D)...
4_215_更新域(&U)
4_183_在域中查找(&F)
4_244_主文档(&M)
5_30013_绘图(&R)
5_182_选择对象(&S)
5_688_自由旋转(&T)
5_30177_自选图形(&U)
5_130_直线(&L)
5_243_箭头(&A)
5_1111_矩形(&R)
5_1119_椭圆(&O)
5_139_文本框(&X)
5_318_竖排文本框(&V)
5_1031_艺术字(&W)...
5_682_剪贴画(&C)...
5_1691_填充颜色(&F)
5_1692_线条颜色(&L)
5_401_字体颜色(&F)
5_692_线型(&L)
5_693_虚线线型(&D)
5_694_箭头样式(&A)
5_394_阴影(&S)
5_339_三维效果(&3)
6_219_编辑框(&E)
6_220_复选框(&C)
6_221_组合框(&C)
6_1607_属性(&R)
6_2059_绘制表格(&W)
6_333_插入表格(&I)...
6_3174_图文框(&F)
6_223_显示域底纹(&S)
6_225_保护窗体(&P)
7_178_关闭全屏显示(&C)
8_299_调整页边距(&A)
8_922_关闭图片(&C)
9_186_宏(&M)...
9_184_录制新宏(&R)...
9_3627_安全性(&S)...
9_1695_Visual Basic 编辑器(&V)
9_548_控件工具箱(&O)
9_1605_设计模式(&D)
9_3631_Microsoft 脚本编辑器(&W)...
10_2186_停止录制(&R)
10_185_暂停录制(&P)
11_30076_插入合并域
11_30077_插入 Word 域
11_163_显示域/值(&S)
11_154_首记录(&F)
11_155_上一记录(&P)
11_1730_记录(&R)...
11_156_下一记录(&N)
11_157_尾记录(&L)
11_246_邮件合并(&R)...
11_161_错误检查合并(&E)
11_159_合并文档(&M)
11_160_合并到打印机(&M)
11_245_合并选项(&M)...
11_183_在域中查找(&F)
11_162_数据表单(&D)
13_263_Microsoft Excel(&E)
13_267_Microsoft PowerPoint(&P)
13_262_Microsoft Mail(&M)
13_264_Microsoft Access(&A)
13_266_Microsoft Visual FoxPro(&F)
13_269_Microsoft Project(&R)
13_265_Microsoft Schedule+(&S)
13_268_Microsoft Publisher(&B)
14_30423_自动图文集(&A)
14_1554_页码(&P)
14_743_页数(&N)
14_2384_设置页码格式(&F)
14_125_日期(&D)
14_126_时间(&T)
14_247_页面设置(&U)...
14_248_隐藏正文(&H)
14_250_链接到前一节(&L)
14_237_显示页眉/页脚(&S)
14_238_前一条页眉(&P)
14_239_下一条页眉(&N)
14_924_关闭(&C)
15_132_升级(&P)
15_133_降级(&D)
15_136_降级为正文(&B)
15_134_上移(&U)
15_135_下移(&M)
15_137_展开(&E)
15_138_折叠(&C)
15_71_显示至标题 1(&1)
15_72_显示至标题 2(&2)
15_73_显示至标题 3(&3)
15_74_显示至标题 4(&4)
15_75_显示至标题 5(&5)
15_76_显示至标题 6(&6)
15_77_显示至标题 7(&7)
15_826_全部(&L)
15_251_只查看首行(&F)
15_252_显示格式(&S)
15_230_主控文档视图(&M)
15_1633_折叠子文档(&C)
15_231_创建子文档(&C)
15_232_删除子文档(&D)
15_233_导入子文档(&I)
15_235_合并子文档(&M)
15_234_拆分子文档(&S)
15_236_保护子文档(&P)
16_2521_打印(&P)
16_172_放大镜(&M)
16_5_单页(&O)
16_177_多页(&M)
16_1733_显示比例(&Z):
16_179_标尺(&R)
16_173_减少一页(&S)
16_1612_全屏显示(&U)
16_923_关闭(&C)
16_124_这是什么?(&T)
17_2520_新建空白文档(&B)
17_23_打开(&O)...
17_3_保存(&S)
17_21_剪切(&T)
17_19_复制(&C)
17_22_粘贴(&P)
17_128_无法撤消(&U)
17_11_编号(&N)
17_12_项目符号(&B)
17_14_减少缩进量(&D)
17_15_增加缩进量(&I)
17_333_插入表格(&I)...
17_9_分栏(&C)...
17_3174_图文框(&F)
17_204_绘图(&D)
17_17_图表(&H)
17_24_信封(&E)
17_2566_拼写和语法(&S)...
17_2521_打印(&P)
17_5_单页(&O)
17_7_比例 100%(&Z)
17_6_适于窗口(&F)
18_354_答复发件人(&R)
18_355_全部答复(&L)
18_356_转发(&W)
18_2521_打印(&P)
18_19_复制(&C)
18_357_移动邮件(&M)
18_358_删除邮件(&D)
18_359_项目(&I)
18_360_项目(&I)
18_3271_自动套用格式(&A)...
18_340_突出显示(&H)
18_1751_邮件头(&M)
18_1714_文档结构图(&D)
18_119_全部显示(&S)
18_1733_显示比例(&Z):
18_984_Microsoft Word 帮助(&H)
19_2188_邮件收件人(以附件形式)(&A)...
19_362_选择姓名(&N)...
19_361_检查姓名(&K)
19_2618_属性(&P)
19_3_保存(&S)
19_2521_打印(&P)
19_2566_拼写和语法(&S)...
19_21_剪切(&T)
19_19_复制(&C)
19_22_粘贴(&P)
19_108_格式刷(&F)
19_128_无法撤消(&U)
19_129_无法恢复(&R)
19_1576_超级链接(&I)...
19_777_文件(&L)...
19_8_插入表格(&I)...
19_3271_自动套用格式(&A)...
19_1751_邮件头(&M)
19_1714_文档结构图(&D)
19_119_全部显示(&S)
19_1733_显示比例(&Z):
19_984_Microsoft Word 帮助(&H)
20_340_突出显示(&H)
20_2805_圆点着重号(&D)
20_714_双删除线(&D)
20_3511_拼音指南(&U)...
20_3512_合并字符(&C)...
20_3969_带圈字符(&E)...
20_54_单倍行距(&S)
20_55_1.5 倍行距(&1)
20_56_2 倍行距(&D)
20_9_分栏(&C)...
21_205_自动图文集(&X)...
21_30423_自动图文集(&A)
21_963_新建(&N)...
22_1017_返回(&B)
22_1018_向前(&F)
22_1019_停止当前跳转(&S)
22_1020_刷新当前页(&R)
22_1016_开始页(&S)
22_1922_搜索 Web(&W)
22_30176_收藏夹
22_30328_前往(&G)
22_1023_只显示“Web”工具栏(&S)
22_1740_地址(&A):
23_1031_艺术字(&W)...
23_2094_编辑文字(&X)...
23_1606_艺术字库(&W)
23_3249_对象(&O)...
23_1058_艺术字形状(&W)
23_688_自由旋转(&T)
23_1404_文字环绕(&T)
23_1063_艺术字字母高度相同(&W)
23_1061_艺术字竖排文字(&W)
23_1059_艺术字对齐方式(&W)
23_1060_艺术字字符间距(&W)
24_1374_设置/取消三维效果(&3)
24_1375_下俯(&T)
24_1376_上翘(&T)
24_1377_左偏(&T)
24_1378_右偏(&T)
24_1379_深度(&D)
24_1380_方向(&D)
24_1382_照明角度(&L)
24_1383_表面效果(&S)
24_1694_三维颜色(&3)
25_2175_设置/取消阴影(&S)
25_1068_略向上移(&N)
25_1069_略向下移(&N)
25_1070_略向左移(&N)
25_1071_略向右移(&N)
25_1693_阴影颜色(&S)
26_2619_剪辑库(&P)...