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

  • 主题发起人 主题发起人 zrj
  • 开始时间 开始时间
Z

zrj

Unregistered / Unconfirmed
GUEST, unregistred user!
如何用一个按钮启动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
 

Similar threads

S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
I
回复
0
查看
599
import
I
后退
顶部