Delphi中的数据添加到Word模板的相应位置--转

就跟将数据导入Excel一样，在运行Delphi程序时，点击预览按钮后，会打开一Word模板,且将数据填入此Word模板相应的位置，此Word模板为一报表形式的表格
---------------------------------------------------------------

方法一：用Word的查找替换填写数据。
---------------------------------------------------------------

方法二：
数据填入相应位置,建议不要使用查找替换的方法,那样比较慢.word里面有个书签的功能,在需要填入数据的地方设置书签,然后代码中处理时将数据写入相应的书签即可,方便很多：

var
Word_Handle, Doc_Handle: OleVariant;
BookMark_Name: string;
begin
try
Word_Handle := CreateOleObject('Word.Application');
except
end;

Word_Handle.Visible := True;

Doc_Handle := Word_Handle.Documents.Add(Template := 'E:\WordApp\Word\1.dot', NewTemplate := False);

try
BookMark_Name := 'book1';
Doc_Handle.Application.Selection.goto(What := wdGoToBookmark, Name := BookMark_Name);
Doc_Handle.Application.Selection.Text := '这个是替换book1的结果';

BookMark_Name := 'book2';
Doc_Handle.Application.Selection.goto(What := wdGoToBookmark, Name := BookMark_Name);
Doc_Handle.Application.Selection.Text := '这个是替换book2的结果';
except
end;

Doc_Handle.SaveAs(FileName := '1.doc', FileFormat := wdFormatDocument, AddToRecentFiles := False);
end;

在1.dot里面加入两个书签book1和book2即可