delphi 利用Work 实现套打

最新推荐文章于 2025-07-16 15:59:16 发布

朱志飞

最新推荐文章于 2025-07-16 15:59:16 发布

阅读量312

点赞数

CC 4.0 BY-SA版权

分类专栏： delphi

本文链接：https://blog.youkuaiyun.com/feiz3020/article/details/84222758

delphi 专栏收录该内容

6 篇文章

订阅专栏

本文介绍了一种使用VBA在Word文档中批量替换并删除批注的方法。通过加载指定模板，连接到文档，遍历所有批注，并将批注内容替换为指定文本，最后逐一删除批注。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

原文地址：http://xxzqb.blog.163.com/blog/static/4122142920089249514506/

定义组件
ChooseWA: TWordApplication;
ChooseWD: TWordDocument;
ChooseWF: TWordFont;


procedure TForm1.btn3Click(Sender: TObject);
 var
ItemIndex: OleVariant;
filePath :OleVariant;
  i,total:integer;
begin
ItemIndex := 1;
filePath :='c://temp//test.dot';     //模板路径
ChooseWA.Documents.Add(filePath,EmptyParam,EmptyParam,EmptyParam);
ChooseWD.ConnectTo(ChooseWA.Documents.Item(ItemIndex));
//ChooseWD.Range.InsertAfter('第一行数据'+#13);//#13代表换行    //插入数据

total:=ChooseWD.Comments.Count; //批注总数
for i:=1 to total do   //替换批注内容
begin
  ChooseWD.Comments.Item(i).Scope.Text   :=mmo1.Text;    //需从1开始
end;
 //删除批注内容
while total<>0 do
begin
  ChooseWD.comments.Item(total).Delete;
  total:=ChooseWD.Comments.Count;
end;
 ChooseWA.Visible :=true;  //显示
end;