【结贴】关于word文档的操作

lxh_78

在x3中如何控制word文档，并将某字符替换成当前数据

zfang

http://bbs.justep.com/forum.php?mod=viewthread&tid=19879
参考一下8楼

lxh_78

FWord、FApp、FDocs是什么类型呀？

zfang

FWord bject;
FApp,FDocs ispatchHelper;

lxh_78

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]);
能解释一下这些语句么，尤其是最后一句

zfang

上面连接中的10楼有解释
{
8楼的例子是用Word的Replace功能，替换你文档中定义的标签。

你可以在模板文档中定义好各个字段标签，如： {Field_ID}
然后用8楼的例子，用代码方式根据数据集的内容替换这些标签就可以了。
}

13楼有完整例子

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}”

附件: temp.rar

lxh_78

谢谢，结吧