能给个从delphi输出文本到Word的最简单的完整例子吗？？？(0分)

如题.多谢！！！！！！！！！！！！！！！！！！！

我也正想问

d自己带有一个例子，另外可在网上search　一下：delphi＋word＝

这个你要看msdn中相关的word的对象以及他们的属性,方法.
procedure TForm1.Button2Click(Sender: TObject);
var
WordApp:Variant;
FileName:OleVariant;

begin
FileName:='D:/work/delphi编程规范.doc';
WordApp:=CreateOleObject('Word.Application');
WordApp.visible:=True;
WordApp.Documents.Open(FileName);
//向word中插入文本
WordApp.WordBasic.Insert('Greatis');

end;

借用您的地方我也提个问题：
就是将WORD中的多个特定符号一起替换的问题，当然可以用宏来实现，但是我没有用宏，我用ole来实现的，见下面的代码！！！在运行中出现一个问题，就是该段程序不能替换掉所有的特定符号（本文中为[JBWH]），只能替换掉第一个，不知道为什么，请大家帮帮忙！！

procedure TForm1.Button4Click(Sender: TObject);
var
FindText,WordObject, MatchCase, MatchWholeWord, MatchWildcards, MatchSoundsLike,
MatchAllWordForms, Forward1, Wrap, Format, Replacewith, Replaceall: OleVariant;
begin
FindText := '[JBWH]';//被替换字符
MatchCase := False;
MatchWholeWord := True;
MatchWildcards := False;
MatchSoundsLike := False;
MatchAllWordForms := False;
Forward1 := True;
Wrap := wdFindContinue;
Format := False;
ReplaceWith := '举交字第001号';//替换字符
Replaceall := True;
WordObject:=CreateOLEObject('Word.Application');
WordObject.Visible := True;

try
WordObject.Documents.open('d:/111.doc',true);
WordObject.Application.ActiveDocument.Range.Find.Execute( FindText, MatchCase, MatchWholeWord,
MatchWildcards, MatchSoundsLike, MatchAllWordForms, Forward1,
Wrap, Format, ReplaceWith, Replaceall );
finally
WordObject.Application.ActiveDocument.SaveAs('d:/aa.doc',wdFormatDocument);

end;
end;

为什么我不能调用createoleobject函数，出现以下错误
[Error] InGoodsQry_Unit.pas(196): Undeclared identifier: 'CreateOLEObject'
[Fatal Error] MDIApp.dpr(26): Could not compile used unit 'InGoodsQry_Unit.pas'

to ccmwjj
可能是由于你在说明里面即use里没有引用相关的类。
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ActiveX, DdeMan, OleCtnrs, Buttons, StdCtrls, ComObj,wordxp,excelxp,
ComCtrls, ExtCtrls,shellapi;

对照一下，加上你没有的，应该就可以了。