【结帖】使用文档库提供的接口操作Word文档，标签178个。速度特别慢！基本交互不可用，望

jiahaiminghr

8楼的例子是可以直接用来做替换的

kd_xjx

怎样调用方法替换{field_ID} 是下面的方法吗，个个参数该怎么写？
  lFind.InvokeMethod('Execute', [edit1.Text, False, False, False, False, False, True, 1, False, edit2.Text,
    2, False, False, False, False]);

jiahaiminghr

procedure TMainForm.replaceClick(Sender: TObject);
var
  lSelection, lFind, lReplacement: DispatchHelper;
begin
  lSelection := DispatchHelper.Create(FApp.PropertyGet('Selection', []));
  lFind :=  DispatchHelper.Create(lSelection.PropertyGet('Find', []));
  lReplacement := DispatchHelper.Create(lFind.PropertyGet('Replacement', []));

  lFind.InvokeMethod('ClearFormatting', []);
  lReplacement.InvokeMethod('ClearFormatting', []);

  lFind.InvokeMethod('Execute', [edit1.Text, False, False, False, False, False, True, 1, False, edit2.Text,
    2, False, False, False, False]);
end;
这一段就是用来做替换的，你使用这个默认参数就可以了。
我也是临时插vba帮助，所以对每个参数的具体作用不太清楚。

这是我的完整例子，你可以用studio的 业务资源管理器 拷贝到x3中。
把 “一”替换成了 “{Edit2}”

kd_xjx

谢谢 jiahaiminghr  结贴吧