用VBA批量生成合同（求助）

aecn

魂断蓝桥 发表于 2020-6-3 08:13
Sub my()
    Dim appWD, doc As Object, f, arr, i, j, r
    arr = Sheet1..CurrentRegion

老师能否说明一下是如何定位相关信息出现在该出现的位置？
感谢！

aecn

魂断蓝桥 发表于 2020-6-3 08:13
Sub my()
    Dim appWD, doc As Object, f, arr, i, j, r
    arr = Sheet1..CurrentRegion

我已经知道了，是书签，谢谢！

同心/ty

vb爱好者洗衣机 发表于 2020-6-1 16:33
看看是不是合适。

老师，能否帮我看看，https://club.excelhome.net/thread-1620832-1-1.html   

vb爱好者洗衣机

同心/ty 发表于 2022-3-22 15:14
老师，能否帮我看看，https://club.excelhome.net/thread-1620832-1-1.html

我用的是插入域的方法。
1.填写word文件里的“合同编号”、“发包方县乡村”这些在文章段落里的固定位置的内容是可以做的，比较方便，就是效率不高；
2.如果填写word表格就比较费劲，因为表格填写的行数是不固定的，比如一个人的承包地数量是不固定的；
3.以后发文件时对涉密数据处理下；

同心/ty

vb爱好者洗衣机 发表于 2022-3-24 10:21
我用的是插入域的方法。
1.填写word文件里的“合同编号”、“发包方县乡村”这些在文章段落里的固定位置 ...

谢谢老师的提醒。估计也没有人肯帮我，我把附件删除了。

vb爱好者洗衣机

同心/ty 发表于 2022-3-24 12:33
谢谢老师的提醒。估计也没有人肯帮我，我把附件删除了。

稍等，不是不能做。

vb爱好者洗衣机

同心/ty 发表于 2022-3-24 12:33
谢谢老师的提醒。估计也没有人肯帮我，我把附件删除了。

1.test.xlsm分三个表格，“段落数据”，“word表一数据”，“word表二数据”，按照这三个表的设置把数据完善好。
2.word文件我插入了域，需要和test.xlsm放在一起，word文件名不要改。
3.以上都满足，就可以运行程序了。
效率有点低，但能用就行。

同心/ty

vb爱好者洗衣机 发表于 2022-3-24 17:40
1.test.xlsm分三个表格，“段落数据”，“word表一数据”，“word表二数据”，按照这三个表的设置把数据 ...

谢谢老师抽出宝贵时间为我解决我的问题。太感谢了。

同心/ty

vb爱好者洗衣机 发表于 2020-6-2 08:02
在模板插入quote域，循环写入即可。

老师，插入这个域的代码还是看不懂  {QUOTE  \*MERGEFORMAT},那个*号隐藏的信息如何知道其连接的数据？

vb爱好者洗衣机

同心/ty 发表于 2022-3-25 15:54
老师，插入这个域的代码还是看不懂  {QUOTE  \*MERGEFORMAT},那个*号隐藏的信息如何知道其连接的数据？

这个我也不懂，要请论坛里的大神来解答了。