在delphi中如何把数据库中的记录引到word中
编号：qa004684
建立日期: 2003年5月18日 最后修改日期：2003年5月20日
所属类别：
pq:
我用的系统是win2000，delphi是6.0版本，word2000
请教：在delphi中要把数据库中的记录引到word中，建成表格的形式，要在word中一页上并排显示两个表格，如何实现呢？
回答:
我对这道题的回复是这样的：我处理过类似的问题，不过我是把数据倒到txt里面。也是画成表格形式，不过我想是一样的。
重要的是你把一个变量设为 tstrings 的类型
如：
var
txtstr:tstrings;
begin
txtstr := tstringlist.create;
txtstr.append('────────┬────┬─────┬─────┬─────'); //第0行
txtstr.append('姓名 │'); //第一行
.... //从数据库取值 到 txtado
while not txtado.eof do
begin
txtstr[1]:=txtstr[1]+format('%8s',[txtado.fieldbyname('xm').asstring])+'│';
txtado.next;
end;
主持人注：完成这个问题，需要两个步骤，一个是读出数据库中的数据，另一个是利用automation技术控制word完成排版并保存为word文件或者打印。第一个步骤上面已经介绍了，第二个步骤请参考：qa003053 "用delphi4.0直接控制word97"。
loga的意见：
如果是vb，则可以在word中打开录制宏，再手工添加数据库记录，vba可自动写出代码。一孔之见仅供参考。
相关问题：
qa000836 "如何知道excel97的命令集"
qa001381 "如何在vb中控制word和excel"
qa003819 "如何利用 ole 向 word 添加文本"
此问题由黄威回答。
