Delphi操作Word,Excel替换

最新推荐文章于 2017-09-20 14:14:00 发布

jing12

最新推荐文章于 2017-09-20 14:14:00 发布

阅读量2.7k

点赞数

分类专栏： Delphi技术专题文章标签： Delphi Word Excel 替换

本文链接：https://blog.csdn.net/jing12/article/details/39269765

版权

本文介绍如何使用Delphi来实现对Word和Excel文件的内容替换。通过设置特定格式，如“%+字段名称+%”，可以批量更新数据库数据到文档中，简化文档编辑流程。

摘要由CSDN通过智能技术生成

有的时候想把数据库里的内容按某种格式写在Word,Excel里，在Word,Excel里按某种格式保存字段名称，下面以“%+字段名称+%"为例

一、Delphi 操作 Word 替换

<pre name="code" class="delphi">procedure ReplaceWordCharacters(WordDoc: Variant; SearchSrc, RplDest: string);
begin
  WordDoc.Activate;
  WordDoc.Application.Selection.Find.ClearFormatting;
  WordDoc.Application.Selection.Find.Replacement.ClearFormatting;
  WordDoc.Application.Selection.Find.Text := SearchSrc;
  WordDoc.Application.Selection.Find.Replacement.Text := RplDest;
  WordDoc.Application.Selection.Find.Forward := True;
  WordDoc.Application.Selection.Find.Wrap := wdFindContinue;
  WordDoc.Application.Selection.Find.Format := False;
  WordDoc.Application.Selection.Find.MatchCase := False;
  WordDoc.Application.Selection.Find.MatchWholeWord := True;
  WordDoc.Application.Selection.Find.MatchByte := True;
  WordDoc.Application.