如何屏蔽word右键菜单，或如何用程序注入word宏命令？？？急 ( 积分: 100 )

我用一下程序打开了sql数据库中的word程序，并屏蔽了上面的工具栏等为的就是文件的保密，但是右键菜单的复制、剪切等按钮确不知道如何屏蔽掉，用宏代码可以简单实现，我可以调用word中的宏命令，但是不知道如何对客户端的word程序自动添加宏命令进去，希望大家帮帮我解决这个问题？？谢谢<br>WordApplication1.Documents.Open(AfileName,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam)&nbsp;;<br>&nbsp;WordApplication1.CommandBars.Get_Item('Menu&nbsp;Bar').Set_Enabled(false);//工作表菜单栏设为不可见<br>&nbsp;WordApplication1.CommandBars.Get_Item('Standard').Set_Enabled(false);&nbsp;//常用工具栏设为不可见<br>&nbsp;WordApplication1.CommandBars.Get_Item('Drawing').Set_Enabled(false);&nbsp;//绘图工具栏&nbsp;设为不可见<br>&nbsp;WordApplication1.CommandBars.Get_Item('Control&nbsp;Toolbox').Set_Enabled(false);//&nbsp;控件工具箱&nbsp;设为不可见

我写了以下代码：<br>&nbsp;&nbsp;{&nbsp;begin<br><br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;with&nbsp;&nbsp;&nbsp;WordApplication1.VBE.ActiveVBProject.VBComponents.Item('Normal').CodeModule&nbsp;&nbsp;&nbsp;do&nbsp;&nbsp;&nbsp;begin<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;InsertLines(1,'Sub&nbsp;EditCopy()');<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;InsertLines(2,'MsgBox&nbsp;&quot;禁用的复制命令!&quot;,&nbsp;vbExclamation');<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;InsertLines(3,'End&nbsp;&nbsp;&nbsp;Sub&nbsp;&nbsp;&nbsp;');&nbsp;&nbsp;&nbsp;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;end;&nbsp;&nbsp;&nbsp;<br>&nbsp;&nbsp;end;&nbsp;&nbsp;&nbsp;&nbsp;}&nbsp;&nbsp;<br>&nbsp;&nbsp;//但是报错误：&nbsp;&nbsp;Visual&nbsp;Basic&nbsp;Project&nbsp;的程序访问不被信任，如何解决？？？？<br>高手在哪里????????????

分不够另加。。。大家帮帮忙呀～·这么久了一个脚印都没留下。

不会,留个脚印!

只读方式有没有想过用Twebbrowser显示word。这样的话可以把webbrowser放在一个panel1上，panel1.enabled:=false,然后再把panel1放在panel2上，panel2的onmousedown去模拟滚动，翻页。这样就是类似pdf阅读器一样的东西。

to&nbsp;wanglogon:<br>我前期做了个用OleContainer1显示的,分析word页特别慢,你能够给我个你的实现例子呢?94208631@qq.com

接受答案了.