Question

在Delphi中如何把数据库中的记录引到word中,即Word格式报表

Answer 1

//资料库转换到WORD文件
就是利用范本开起来使用套表方式完成.

//开启指定的范本---------------------------------
var
WordApp,WordTable,NewTemplate:OleVariant;
WordOK:OleVariant;
WordApp := CreateOleObject('Word.Application');

//加入范本.Word套表方式
NewTemplate := false;
FDoc:=FDocuments.Add('FileName', NewTemplate);

//储存档案和开新范本------------------------------
WordApp.ActiveDocument.SaveAs('FileName');

//档案合并
WordOK:=CreateOleObject('Word.application');
if p<>1 then
Open_Next('OpenFileName');

//另存档案
FDoc.SaveAs('FileName');
end;