如何屏蔽word的工具栏和菜单栏(50分)

我用OLEContainer打开的word文档，但我如何屏蔽word的工具栏和菜单栏，不显示word的菜单栏和工具栏，主要是工具栏，我用下边的方法隐藏了（常用）工具栏
OLEContainer1.OleObject.Application.CommandBars['Standard'].Visible:= True; // 但是别的工具栏呢
想用下面的方法确有错误，说什么接口不支持
for i:=1 to OLEContainer1.OleObject.Application.CommandBars.count do
OLEContainer1.OleObject.Application.CommandBars.Item.Visible:=False;
各位大虾帮忙呀

OLEContainer很多方法都不支持，真的没有什么办法了

我也很想知道啊!我用楼主的办法试了!会出错!
所以我用Try保护了一下.但是立刻看不到效果!必须重启程序才能看到！

楼主有没有QQ号码！我们可以研究一下！我的QQ 20989740

我的 QQ:147526525

e_mail: sunhongweisun@yahoo.com.cn

在oleControl种实现不了。

很简单的啊，我就实现过，知道每个工具栏名称就可以了，你可以看看我下面的例子，自己试验一下。

要知道哪些工具栏名称，你录制宏，然后操作一下工具栏，就知道每个工具栏的名称了。

procedure TlookForm.FormShow(Sender: TObject);
var v: Variant;
begin
OleContainer1.DoVerb(-1);
V:=OleContainer1.OleObject;//取得WordDocument对象；
V.Application.CommandBars['Standard'].Visible:=False;
V.Application.CommandBars['Formatting'].Visible:=False;
V.Application.CommandBars['Database'].Visible:=False;
V.Application.CommandBars['Web'].Visible:=False;
V.Application.CommandBars['Visual Basic'].Visible:=False;
V.Application.CommandBars['Tables and Borders'].Visible:=False;

V.Application.CommandBars['Web Tools'].Visible:=False;
V.Application.CommandBars['Forms'].Visible:=False;
V.Application.CommandBars['Drawing'].Visible:=False;
V.Application.CommandBars['Control Toolbox'].Visible:=False;
V.Application.CommandBars['Frames'].Visible:=False;
V.Application.CommandBars['Picture'].Visible:=False;

OleContainer1.DoVerb(-1);//刷新一次就可以了
end;

For i = 1 To ThisDocument.CommandBars.Count
If Not ThisDocument.CommandBars(i).Enabled Then
ThisDocument.CommandBars(i).Enabled = True
End If
Next
上面是vba 代码 你可换成delphi 代码即可

to tgdjw
我想控制“复制”，“剪切”，“打印”，“打印预览”菜单的可用性（Enabled）怎么办？

我也想知道！

tgdj 的办法好像对Excel不管用！