请问WordApplication.Documents.Open(参数)里的参数怎么写？在线等待

[ychyzr]

OleVariant1:=?;
OleVariant2:=?;
OleVariant3:=?;
OleVariant4:=?;
OleVariant5:=?;
OleVariant6:=?;
OleVariant7:=?;
OleVariant8:=false;
OleVariant9:=EmptyParam;
WordApplication.Documents.Open(ExtractFilePath(Application.ExeName)+'tmp.doc',OleVariant1,OleVariant2,OleVariant3,OleVariant4,OleVariant5,OleVariant6,OleVariant7,OleVariant8,OleVariant9);
参数怎么用？只要能打开就行。

[robinhunter]

var
temp, newtemp, index: olevariant;
FileName, ConfirmConversions, ReadOnly, AddToRecentFiles,
PasswordDocument, PasswordTemplate, Revert,encoding,visible,
WritePasswordDocument, WritePasswordTemplate, Format: olevariant;
begin
temp := '';
newtemp := false;
wordapplication1.disconnect;
wordapplication1.Connect;
wordapplication1.visible := true;

FileName := extractfilepath(paramstr(0)) + 'field.doc'; ConfirmConversions := False;
ReadOnly := False; AddToRecentFiles := False; PasswordDocument := '';
PasswordTemplate := ''; Revert := False; WritePasswordDocument := '';
WritePasswordTemplate := ''; Format := 0;
encoding:=false; visible:=true;
//wordapplication1.Documents.Open(
wordapplication1.Documents.Open(FileName, ConfirmConversions, ReadOnly,
AddToRecentFiles, PasswordDocument, PasswordTemplate, Revert,
WritePasswordDocument, WritePasswordTemplate, Format, encoding, visible);

index := 1;
//worddocument1.connectto(wordapplication1.Documents.Item(index) as _document);
end;

[Black]

ConfirmConversions:=false;
ReadOnly:=false;
AddToRecentFiles:=false;
PasswordDocument:='';
PasswordTemplate:='';
Revert:=false;
WritePasswordDocument:='';
WritePasswordTemplate:='';
Format:=wdOpenFormatDocument;
WordApplication.Documents.Openold(FileName, ConfirmConversions, ReadOnly,
AddToRecentFiles,PasswordDocument, PasswordTemplate, Revert,
WritePasswordDocument,WritePasswordTemplate, Format);

[Delphi_Li]

只要传递文件名，其他的参数使用EmptyParam 代替就可以了！！！
如果最后一个参数是LCID，那么用0代替！！！

[ychyzr]

谢谢各位大侠！我还有一个问题就是，在不想显示Word的情况下打开文档进行处理后将其关闭，但总说：Open2000方法因 此文档在另一应用程序中 而无效。这是为什么？怎么解决？