'姓名'';

　　

　　//依次写入其他字段的表头

　　for i:=2 to counts+1 do

　　begin

　　t.cell(i,1).range.text:=adoquery2.field

　　byname(''dw'').asstring;

　　t.Cell(i,1).Width:=120;

　　t.cell(i,1).range.Paragraphs.Alignment:=

　　 wdAlignParagraphCenter;

　　t.cell(i,2).range.text:=adoquery2.field

　　byname(''xm'').asstring;

　　

　　Adoquery2.next;

　　End;

　　使用Dephi将Word与数据库结合，实现了用户文档的自动生成，大大地方便了用户。