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

最新推荐文章于 2023-08-29 10:00:18 发布

mrwu9902

最新推荐文章于 2023-08-29 10:00:18 发布

阅读量2.5k

点赞数

CC 4.0 BY-SA版权

分类专栏： Delphi 文章标签： delphi excel string 报表

本文链接：https://blog.youkuaiyun.com/mrwu9902/article/details/5434395

Delphi 专栏收录该内容

36 篇文章

订阅专栏

本文介绍了一种在Delphi中将数据填入Word模板的方法，通过利用Word的书签功能，实现快速定位并替换指定位置的数据，提高了报表生成的效率。

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即可