如何用delphi的Server中的Word Application控件新建一个Word文档？（急！！！）

[zhanghe6388]

我想在delphi中打开Word,想用Word Application控件，Word Application.Documents.Add(),但它的四个参数不知道该如何设置，delphi自带的程序参数不全，后两个参数没有设置，无法运行，不知道参数具体是什么？望赐教！

[bxh2dai]

procedure TForm1.Button1Click(Sender: TObject);
var
template,newtemplate,documenttype,visible:olevariant;
begin
template := Emptyparam;
newtemplate := false;
documenttype := wdNewBlankDocument;
visible := true;
WordApplication1.Documents.Add(template,newtemplate,documenttype,visible);
end;
以上代码我试过了，没问题，呵呵，如果还有这方面的问题，记得找我，但要多给点分哦

[猫猫爱吃鱼]

你可以通过TOLEVarint来启动WORD，
var
word: TOleVariant;
begin
word := CreateOleObject("Word.Application");
word.Documents.Add "FileName";
word.Visible := True;
word.WindowState := 2;
Word.WindowState := 1;
end;

[bxh2dai]

哈哈，楼主给分吧，我给你解决~！