Delphi实现Word批量替换旧Logo报错：Shapes/Select相关问题排查

错误原因分析 #

1. Shapes集合访问方式错误：Delphi中Word的Shapes是集合对象，并非方法，不能直接用Shapes('Picture 2')调用，必须通过Item属性或索引器来访问指定名称的形状。
2. Select方法调用逻辑冗余：VB里的选中后删除是可行但低效的写法，Delphi中完全不需要通过选中操作，直接定位到目标形状执行删除即可，还能规避Selection相关的兼容性错误。

正确代码实现 #

方式1：直接删除目标形状（推荐，高效无冗余）

var
  WordDoc: WordDocument;
  TargetShape: Shape;
begin
  WordDoc := WordApplication.ActiveDocument;
  // 通过名称获取指定形状
  TargetShape := WordDoc.Shapes.Item('Picture 2');
  // 直接执行删除
  TargetShape.Delete;
end;

方式2：模拟VB选中删除逻辑（仅作对比，不推荐）

如果一定要复刻VB的选中流程，需修正Shapes的访问和Select方法的调用：

var
  WordDoc: WordDocument;
begin
  WordDoc := WordApplication.ActiveDocument;
  // 正确访问Shapes集合并调用Select方法
  WordDoc.Shapes.Item('Picture 2').Select;
  // 删除选中的形状范围
  WordApplication.Selection.ShapeRange.Delete;
end;

批量处理额外建议 #

针对200个文档的批量操作，建议添加异常处理，避免单个文档的异常导致整个流程中断：

var
  WordDoc: WordDocument;
  TargetShape: Shape;
begin
  try
    WordDoc := WordApplication.ActiveDocument;
    TargetShape := WordDoc.Shapes.Item('Picture 2');
    TargetShape.Delete;
    // 此处可添加插入新Logo的代码，示例：
    // WordDoc.Shapes.AddPicture('C:\新Logo路径.png', False, True, 100, 100, 50, 50);
  except
    on E: Exception do
      // 可替换为日志记录逻辑
      ShowMessage('当前文档处理失败：' + E.Message);
  end;
end;

内容的提问来源于stack exchange，提问作者Senai