利用自定义域属性和域替换模板文本中的公司名称

xiaotang_1 · 发表于 2017-3-9 14:05

公司时常要求在模板文档的每句话中提供甲方,乙方公司名称. 但每个项目文档模板中的甲乙双方公司的名称需要根据不同项目进行变更.我想利用自定义域属性和域替换文本中的公司名称来实现按需变更模板文本中甲乙双方公司名称的目的.

实现步骤为

利用setDocProperties()自定义甲方, 乙方属性
替换原始模板文档中的文字甲方
为 { DOCPROPERTY 甲方 \* MERGEFORMAT }
替换原始模板文档中的文字乙方
为 { DOCPROPERTY 乙方 \* MERGEFORMAT }

3.利用守柔大侠的VBA代码将“{”和“}”分别替换成域标记的左右括号

想借鉴守柔和各位大侠的代码实现文本正中的甲乙方名称替换成自定义属性域.

由于没写过程序,始终运行不成功.特别是当甲方乙方字样存在于Word正文内的表格内时,word表格中的甲方和乙方文字无法替换为域.

甲方乙方字样在表格中的位置不固定,不知如何处理

还请各位专家帮助修改，生成可以顺利运行的宏。需求详见附件.

非常感谢！

duquancai · 发表于 2017-3-9 14:33

直接查找替换就行了，搞那么麻烦干嘛？

xiaotang_1 · 发表于 2017-3-11 21:53

本帖最后由 xiaotang_1 于 2017-3-11 22:22 编辑

但Ctrol+H 替换是无法直接输入域的.确实需要域. 哪位大侠能帮个忙将附件中的代码修改为可以运行的程序. 留下微信,有红包相送.

duquancai · 发表于 2017-3-11 22:46

xiaotang_1 发表于 2017-3-11 21:53
但Ctrol+H 替换是无法直接输入域的.确实需要域. 哪位大侠能帮个忙将附件中的代码修改为可以运行的程序. 留 ...

你只需要说清楚需求、说明白需求、还是说清楚需求，必要时用实例加以说明，如果还没说清楚就用实例截图表达原始是怎么样的？结果要达到怎么样的效果？至于帮助你的人用什么方法，你大可不必强加于按照你的想法来实现，就是说给帮助你的人留下更多的广泛的逻辑思维！

		自动登录	找回密码
密码			免费注册