var
  WordApp, WordDocuments, FileName: Variant;
begin
      WinExec('D:\\SoftWare\\Microsoft Office\\Office\\WINWORD.exe',SW_SHOW);
      WordApp:=CreateOleObject('Word.Application');      WordDocuments:=WordApp.Documents;      FileName:=Variant('E:\\special.doc');
      WordDocuments.Open(FileName);
end;
我调试了一下,Documents对象已经获得了,但是最后的OPEN函数却不能打开文件,也不报错,
请各位大大指点!

解决方案 »

  1.   

    http://search.csdn.net/Expert/topic/1858/1858880.xml?temp=.1639521
      

  2.   

    var
      WordApp, WordDocuments: Variant;
      FileName:String;
    begin
     //     WinExec('D:\SoftWare\Microsoft Office\Office\WINWORD.exe',SW_SHOW);
          WordApp:=CreateOleObject('Word.Application');      WordDocuments:=WordApp.Documents;      FileName:=Variant('E:\special.doc');
          WordDocuments.Open(FileName,True);
          WordApp.Visible := True;
    end;
      

  3.   

    var
      WordApp, WordDocuments: Variant;
      FileName:String;
    begin
     //     WinExec('D:\SoftWare\Microsoft Office\Office\WINWORD.exe',SW_SHOW);
          WordApp:=CreateOleObject('Word.Application');      WordDocuments:=WordApp.Documents;      FileName:='E:\special.doc'; //此处应该这样
          WordDocuments.Open(FileName,True);
          WordApp.Visible := True;
    end;
      

  4.   

    楼上正解,你的WinExec是多余的。