怎样将数据库的记录添加到word中去？

Question

给你一小段代码，参考下wordapp:variant;wordapp:=CreateOLEObject(Word.Application);
　　 wordapp.visible:=true;
　　 wordapp.documents.add(‘report.doc’,False);
　　 wordapp.Documents.Item(1).Books.Item(‘first’).Range.InsertAfter(first.text);
　　 wordapp.Documents.Item(1).Books.Item(‘second’).Range.InsertAfter(second.text);
　　 wordapp.Documents.Item(1).Books.Item(‘third’).Range.InsertAfter(third.text);
　　 wordapp.Documents.Item(1).Saveas(‘report1.doc’);