标签:
delphi
olecontainer
word
office
it
|
分类:
Delphi
|
1、打开Word,并新建一个文档
oleContainer1.CreateObject('Word.Document',false);
oleContainer1.DoVerb(ovShow);
2、打开excel,并新建一个表单
oleContainer1.CreateObject('Excel.sheet',false);
oleContainer1.DoVerb(ovShow);
3、打开已存在的文件
oleContainer1.CreateObjectFromFile('E:\办公\2012\a.doc',False);
oleContainer1.DoVerb(ovShow);
4、显示、隐藏菜单和工具栏
oleContainer1.OleObject.CommandBars['Menu
Bar'].Visible:=True; //显示菜单,注意Form需要有MainMenu
oleContainer1.OleObject.CommandBars['Standard'].Visible:=False;
//隐藏工具栏,具体代表哪一个工具栏,可以在WORD中录制一下宏,那就一清二楚了[:)]
oleContainer1.OleObject.CommandBars['Formatting'].Visible :=
False;