请问怎样调出word文档？

Question

procedure TFTree.TwordClick(Sender: TObject);
var Template,NewTemplate,ItemIndex: OleVariant;
    I,J,k,h: integer;
    V:Variant;
    Range: Variant;
    W:TwordApplication;
Begin
  Try
    V:=CreateOleObject('Word.Application');
    V.visible:=true;
    V.Options.CheckSpellingAsYouType:=false;
    V.Options.CheckGrammarAsYouType:=false;
    V.caption:='abcdefg';
    //V.wordDocuument.add;
    //D.
    //D.Range.InsertAfter('    '+CurItemCaption+#13);
    //D.Range.InsertAfter('      日期: '+DatetoStr(Date)+#13);
  Except   // V.quit;   
  end; 
end;

Answer 1

我是想用word直接调出word文档，而不使用delphi控件！

Answer 2

我以前也做过启用word并输出到word的功能，和你办法一样请问楼上的朋友，我要打印时，如何在后台启动WORD但不显示而直接打印？我不希望用户看到word界面，然后修改里面的文字。最好要还能调出word的打印预览功能谢谢

Answer 3

ShellExecute(Handle,'open','yourfile.doc',nil,nil,SW_Show);

Answer 4

procedure TFTree.TwordClick(Sender: TObject);
var Template,NewTemplate,ItemIndex: OleVariant;
    I,J,k,h: integer;
    V:Variant;
    Range: Variant;
    W:TwordApplication;
Begin
  Try
    V:=CreateOleObject('Word.Application');
    V.visible:=true;//显示WORD V.visible:=true;不显示WORD
    V.Options.CheckSpellingAsYouType:=false;//不检查拼写
    V.Options.CheckGrammarAsYouType:=false;//不检查语法错误
    V.caption:='abcdefg';//设置文档标题
    V.activedocument.print;//打印文件
    //V.Docuuments.add;//新建文档
     //D.Range.InsertAfter('    '+CurItemCaption+#13);
    //D.Range.InsertAfter('      日期: '+DatetoStr(Date)+#13);
  Except   // V.quit;//退出word
  end; 
end;