如何启动word并同时创建2个文档并且最好能同时分别插入一条记录的两个blob字段???(100分)

如何用一个按钮启动word并同时创建两个文档,一个叫question,一个叫answer,
question文档插入当前表的question字段(blob字段),answer文档插入当前表的
answer字段(blob字段),我用了delphi5的wordapplication和worddocument,看
delphi5的例子只能产生一个文档,并且没有插入blob字段的例子,(那个是插入
图片的,好象不一样吧),大家帮忙改改这断程序吧,以后我也少些麻烦.第一次
启动了word之后,以后插入记录哪段代码可以不要??请高手仔细分析一下,以后我等
小虾也好少犯错误啊,(重要的句子加些注释,我认为例子还不详细)
procedure Tselectquestion.PaperClick(Sender: TObject);
var Template,NewTemplate,ItemIndex:OleVariant;
begin
if bool then
begin
try
Template := EmptyParam;
NewTemplate:= True;
ItemIndex:= 1;
try
Wordapplication.Connect;
except
MessageDlg('Microsoft Word 可能没有安装', mtError, [mbOk], 0);
Abort;
end;
Wordapplication.Visible :=True;
WordApplication.Caption := '无标题试卷';
Template := EmptyParam;
NewTemplate := False;
WordApplication.Documents.Add(Template, NewTemplate);
WordDocument.ConnectTo(WordApplication.Documents.Item(ItemIndex));
WordApplication.Options.CheckSpellingAsYouType := False;
WordApplication.Options.CheckGrammarAsYouType := False;
bool:=false;
except
on E: Exception do
begin
ShowMessage(E.Message);
WordApplication.Disconnect;
end;
end;
end;
{Insert data}
//DBImgFishImg.CopyToClipboard;
// WordDocument.Sentences.Last.Paste;
WordDocument.Range.InsertAfter('Common Name: 1' + #13);

WordDocument.Range.InsertAfter('Common Name: ' + #13);
end;

end.
我想用bool(boolean变量)确定word文档是不是已经创建,要是创建了
就直接插入word文档中,不过这个字段是blob字段,直接用
worddocument.range.insertafter(dm.questiontable.fieldbyname('question').asstring+#13);
好象不行的吧,据说要用流的概念的,请大虾写出代码来,最后请写出如何把修改完的word
文档重新写会数据库的blob字段的例子,先谢谢大家!!

是不是问题太难了,还是高手没来啊,各位看看嘛

呀！！！找到知音了，我现在正在修改与调试，等我做出来后我们大家一起分享，
也建议大家能提出更好的建议.

>>

>>看delphi5的例子只能产生一个文档

你可以add两个文档呀？？这完全可以。
再说你可以先完成question的制作，再完成answer的制作呀。

有兴趣...

1.关于word自动化，参考word的vba帮助（office装全了就有）。
2.你的blob字段存的是什么？如果是文本，可以当作char处理。

多人接受答案了。

zjh 你好，你的这个问题与我的现在遇到的问题几乎是一样的，我很想知道你是如何解决的，
我是新到此论坛的，对规则也不是很了解，如果能帮我解决，我也可以给你送分呀，谢谢，
我也很着急。

to 楼主：我现在的问题就是和你的一模一样，我不知道该如何解决，能不能帮我一下，我这是老师的任务啊？
完不成不行的啊？我的EMAIL：lqd8282@163.com