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

54321shenyong · 发表于 2020-6-1 15:32

本帖最后由 54321shenyong 于 2020-6-1 15:38 编辑

一份excel文件（数据表），一份word文件（模板）。需要把数据表里面的列信息填充并生成多份合同（word）文件，生成的新文件名格式为：劳动合同-***（人名）。
word模板里面标注为粗体红色的为填充项，只为老师编辑代码时醒目、方便。希望生成的新文件里面恢复为正常字体及颜色。

魂断蓝桥 · 发表于 2020-6-1 16:33

A.rar (27.04 KB, 下载次数: 359)

vb爱好者洗衣机 · 发表于 2020-6-1 16:33

看看是不是合适。

sirsunny · 发表于 2020-6-1 16:33

word的邮件合并功能

any1009 · 发表于 2020-6-1 16:37

邮件合并，相当好用的

鄂龙蒙 · 发表于 2020-6-1 21:57

本帖最后由鄂龙蒙于 2020-6-1 21:59 编辑

魂断蓝桥发表于 2020-6-1 16:33

请教：r = appWD.ActiveDocument.Content.Bookmarks(j).End这句代码是如何通过标题行在文档中识别的？谢谢！

鄂龙蒙 · 发表于 2020-6-1 22:55

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

请教怎么对应写入位置的？谢谢！

魂断蓝桥 · 发表于 2020-6-2 07:52

鄂龙蒙发表于 2020-6-1 21:57
请教：r = appWD.ActiveDocument.Content.Bookmarks(j).End这句代码是如何通过标题行在文档中识别的？谢 ...

利用word文档中书签功能

vb爱好者洗衣机 · 发表于 2020-6-2 08:02

鄂龙蒙发表于 2020-6-1 22:55
请教怎么对应写入位置的？谢谢！

在模板插入quote域，循环写入即可。

54321shenyong · 发表于 2020-6-2 17:54

魂断蓝桥发表于 2020-6-1 16:33

感谢老师的热心帮助！运行生成的文件中日期格式为yyyy/m/d ，实际需要格式为****年**月**日，这个需要怎么修改代码呢？或者能不能麻烦老师把代码注释一下。这个学习过程就完美了。谢谢！

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

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

评分

评分