wordapplication1.documents.open('your.doc');

解决方案 »

  1.   

    wordobj := createoleobject('word.document');
          word := wordobj.application;
          word.visible := visible ;
          document:= word.documents.open(filename:=wordfilename,ReadOnly:=True) ; 
      

  2.   

    wordapplication1.documents.open('your.doc');
    好像不行阿,说参数不够,而fredfei大侠提出的方案,没有用到wordapplication,也是可以的,但还会同时还会打开一份空白的word文档,能不能不让这份空白文档打开呢?
      

  3.   

    真当麻烦,open居然有那么多参数。下面代码可以用,我调试过:
    var
      a: OleVariant;
    begin
      a := 'd:\obj.doc';
      WordApplication1.Visible := True;
      WordApplication1.Documents.Open(a, EmptyParam, EmptyParam, EmptyParam,
       EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam,
        EmptyParam, EmptyParam)
    end;