导航

VBA控制菜单栏上的菜单(如页面设置、打印)

Posted on 2009-12-01 22:46  yunbo  阅读(2075)  评论(0编辑  收藏  举报
'试试下面的代码看看能不能满足你的要求?
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)...