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;

解决方案 »

  1.   

    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);
      

  2.   

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

  3.   

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