如何屏蔽word中的菜单,,再添加上我自己写的菜单~~~~` 请问一下我在vb 中调用了word,在弹出Word后如何把word中的文件--》保存菜单屏蔽掉,( 或者说把文件菜单直接屏蔽掉),然后再添加上我自己制作的一个文件菜单。。说个方法。。如有例子,请发给我,实在是太急啦。Email: [email protected] 先谢过了~!! 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 移除文件菜单中保存、另存、另存为WEB页、WEB页预览、打印预览、打印等项: Application.CommandBars("File").Controls(12).Delete Application.CommandBars("File").Controls(11).Delete Application.CommandBars("File").Controls(8).Delete Application.CommandBars("File").Controls(7).Delete Application.CommandBars("File").Controls(6).Delete Application.CommandBars("File").Controls(5).Delete Application.CommandBars("File").Controls(4).Delete恢复: Application.CommandBars("File").reset'删除编辑菜单: Application.CommandBars("Worksheet Menu Bar").Controls(2).Delete'恢复编辑菜单: Application.CommandBars("worksheet menu bar").Reset'关于右键菜单请见:http://community.csdn.net/Expert/topic/4228/4228120.xml?temp=.2959711'删除工具栏中保存、打印、打印预览、剪切按钮: Application.CommandBars("Standard").Controls(8).Delete Application.CommandBars("Standard").Controls(6).Delete Application.CommandBars("Standard").Controls(5).Delete Application.CommandBars("Standard").Controls(3).Delete'恢复:Application.CommandBars("Standard").Reset 再添加上自己制作的一个文件菜单,这个比较难,主要是不容易获得Word的菜单句柄 vb操作记事本的问题? 用api播放GSM610音频需要解压吗? 哈哈。一个特意搞怪的问题,欢迎挑战 ^_^ 关于Form的嵌套的问题 反复读写excel,生成myreport.xls的问题,怎样解决呢?100分! 谁了解FIX标准吗? 网页的问题 哪里有水晶报表的下载呀?或者是它的使用方法呀? 获得本机IP地址的函数是哪个? 我想认识几位VB的专家,交个朋友,OK?(请留OICQ,^_^) 最大化窗口后,如何使里面的内容和控件自动适应窗口的变化 帮忙想一函数名,实现xxx(“A”,5) 结果为“AAAAA”
Application.CommandBars("File").Controls(12).Delete
Application.CommandBars("File").Controls(11).Delete
Application.CommandBars("File").Controls(8).Delete
Application.CommandBars("File").Controls(7).Delete
Application.CommandBars("File").Controls(6).Delete
Application.CommandBars("File").Controls(5).Delete
Application.CommandBars("File").Controls(4).Delete
恢复:
Application.CommandBars("File").reset
'删除编辑菜单:
Application.CommandBars("Worksheet Menu Bar").Controls(2).Delete
'恢复编辑菜单:
Application.CommandBars("worksheet menu bar").Reset
'关于右键菜单请见:
http://community.csdn.net/Expert/topic/4228/4228120.xml?temp=.2959711'删除工具栏中保存、打印、打印预览、剪切按钮:
Application.CommandBars("Standard").Controls(8).Delete
Application.CommandBars("Standard").Controls(6).Delete
Application.CommandBars("Standard").Controls(5).Delete
Application.CommandBars("Standard").Controls(3).Delete
'恢复:
Application.CommandBars("Standard").Reset