with OleContainer1 do begin CreateObjectFromFile('C:\456.doc',False); DoVerb(ovShow); OleObject.CommandBars['Menu Bar'].Visible:=True; //显示菜单,注意Form需要有MainMenu //OleObject.CommandBars['Standard'].Visible:=False; //隐藏工具栏,具体代表哪一个工具栏,可以在WORD中录制一下宏,那就一清二楚了[:)] //OleObject.CommandBars['Formatting'].Visible := False; end;
begin
CreateObjectFromFile('C:\456.doc',False);
DoVerb(ovShow);
OleObject.CommandBars['Menu Bar'].Visible:=True; //显示菜单,注意Form需要有MainMenu
//OleObject.CommandBars['Standard'].Visible:=False; //隐藏工具栏,具体代表哪一个工具栏,可以在WORD中录制一下宏,那就一清二楚了[:)]
//OleObject.CommandBars['Formatting'].Visible := False;
end;