如何在TOlecontainer中嵌套word时候不要出现word的菜单？？

Question

如何在TOlecontainer中嵌套word时候不要出现word的菜单？？

Answer 1

http://expert.csdn.net/Expert/topic/638/638655.xml?temp=.9653742看看，也许有启发。

Answer 2

在ｄｅｌｐｈｉ的DEMO里面有这样的例子，看看就知道的了

Answer 3

uses Office2000;{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
begin
  WordApplication1.Connect;
  WordApplication1.Visible:=true;
end;procedure TForm1.Button2Click(Sender: TObject);
var i:Integer;
begin
  if WordApplication1.CommandBars.ActiveMenuBar.Enabled  then begin
     with WordApplication1.CommandBars.ActiveMenuBar do begin
{       ListBox1.Clear;
       for i:=1 to Controls.Count do
         ListBox1.Items.Add(Controls[i].Caption);}//你可以把现有的菜单信息放在这个LISTBOX里看一下
       Controls[5].Set_Visible(false); //删除菜单,实际是隐藏
       Controls[Controls.Count].Set_Caption('我的帮助');  //改菜单项
       with Controls.Add(msoControlpopup,EmptyParam,EmptyParam,EmptyParam,true) do begin  //增加菜单
         Set_Caption('新菜单项');
       end;
     end;
  end;
end;

Answer 4

我要在tolecontainer中的阿，word是嵌套进来的阿，如何去除菜单阿？

Answer 5

除去word的以后，自然ole调用的时候就没有菜单了，word是保存编辑环境的啊。

Answer 6

to ： wsk_6915(wsk):
   如何在olecontainer中除去word，同时又能显示word的内容阿?

Answer 7

WordApplication1.CommandBars['Menu bar'].enable:=false

Answer 8

OLEContainer1.OLEObject.Application.CommandBars["Standard"].visible := false;
OLEContainer1.OLEObject.Application.CommandBars["Formatting"].visible := false;