使用OleContainer1如何打开word?

Question

delphi自带的例子先打开一个对话框，可是我不想要那个对话框，该怎么版？

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var S_FileName:string;
begin
  OpenDialog1.Execute;
  S_FileName:=OpenDialog1.FileName;
  OleContainer1.CreateObjectFromFile(S_FileName,False);
  OleContainer1.Run;
  OleContainer1.doVerb(1);
  
end;

Answer 2

这个是打开已经存在的文件，这个我会，我的意思是新建一个word文件

Answer 3

我已经用了OleContainer1了，再说肯定有法子的

Answer 4

OleContainer1.InsertObjectFromFile;
  OleContainer1.doVerb(PrimaryVerb);

Answer 5

OleContainer1.InsertObjectDialog;