delphi如何调用word，并打印

Question

能否给上例子；谢谢

Answer 1

Delphi中调用Word    
    
uses ComObj ;procedure TForm1.Button1Click(Sender: TObject);varvWord,vDoc,vRange : Variant ;sText,sReplace : string ;lReturn : Boolean ;beginsText := 'ABCDEFG' ; //原文字串sReplace := 'GFEDCBA' ; //新字串vWord := CreateOleObject('Word.Application') ;//创建Word线程try//打开要操作的文件vDoc := vWord.Documents.Open('C:Documents.Doc');vDoc.Select ; //选取中整个文档vRange := vDoc.Range ; //替换范围lReturn := True ;while lReturn dobegin //找到并替代成功则返回 True 共11个参数lReturn := vDoc.Range.Find.Execute(sText,,,,,,,,,sReplace,True) ;end ;finallyvDoc.Close(True) ; //关闭文并保存vWord.Quit(False) ; //退出Wordend ;end;   

Answer 2

调用Word的过程如上，打印
vDoc.PrintOut

Answer 3

procedure TForm1.Button1Click(Sender: Tobject);
var MSWord: Variant;
begin
MSWord := CreateOLEObject('Word.Application');//连接Word
MSWord.Documents.Open(FileName:='d:\test.doc', ReadOnly:=True);//打开外部Word文档
MSWord.Visible := 1;//是否显示文件编辑
MSWord.ActiveDocument.Range(Start:=0, End:=0);//开始改变的启止位置
MSWord.ActiveDocument.Range.InsertAfter(Text:='Title');//在Word中增加字符'Title'
MSWord.ActiveDocument.Range.InsertParagraphAfter;
MSWord.ActiveDocument.Range.Font.Name := 'Arial';//字体名称
MSWord.ActiveDocument.Range.Font.Size := 24;//字体大小
end;