请问如何生成word文档 ( 积分: 100 )

我先用word生成一个doc文件，里面是一个表格，然后我想在程序中打开这个文档，把数据库中的数据写入表格中，再保存为一个新的doc文件。可我不知道怎么做，请大家指教。

var
Template,NewTemplate,DocumentType,Visible:OleVariant;
itemIndex:OleVariant;
fileName:Olevariant;
NoPrompt,OriginalFormat:OleVariant;
RouteDocument,SaveChanges:OleVariant;
vSelection: Selection;
vBookMark: BookMark;
vTable,VTable1,vTable2,vTable3,vtable4,vtable5: Table;
begin
wordApp.Connect();
wordApp.Visible:=true;
//template:=extractfilepath(application.ExeName)+'ld.dot';
template:=extractfilepath(application.exename)+'aebh.dot';
filename:='c:/temp001.doc';
NewTemplate:=False;
do
cumentType:=wdNewBlankDocument;
Visible:=true;
WordApp.Documents.Add(Template,NewTemplate,DocumentType,Visible);
//连接到新建的文档
itemIndex:=1;
WordDoc.ConnectTo(WordApp.Documents.Item(itemIndex));
vSelection := wordApp.Selection;
vTable := wordApp.ActiveDocument.Tables.Item(1);
vTable1 := wordApp.ActiveDocument.Tables.Item(2);
vTable2 := wordApp.ActiveDocument.Tables.Item(3);
vTable3 := wordApp.ActiveDocument.Tables.Item(4);
vTable4 := wordApp.ActiveDocument.Tables.Item(5);
vTable5 := wordApp.ActiveDocument.Tables.Item(6);
vTable.cell(1,1).Range.Text:='NO.'+myldbh;
vTable2.cell(2,1).Range.Text:='NO.'+myldbh;

在Word中录制宏，然后将宏代码转换成Delphi。应该不难的，试试看