合同生成小工具

刘_学 | software | 2020-07-03

背景


平时工作难免需要拟定合同,好多时候同一个业务,所用的合同模版是一样的,不同的是有些要素信息的不同,如:合同编号、客户基本信息、合同价格、利率/费率、日期等……

传统的这些都类似做填空题那样,一个个填写,一两个改改还好,但如果数量多了,一个个填写真不方便,还容易漏填或错填。

最近跟进的公司项目也遇到类似的情况,以前做过类似的小工具,所用的是word的邮件合并功能,但总感觉不太适用本次项目,网上找到一个还不错的软件,但只针对单个合同模版,一旦合同模版多了,也变得不够灵活了。

因此自己就用vba编了个合同生成的小工具。



原理


word文档:

在合同模版的基础上,使用“开发工具”下的“格式文本控件”来替换需要填写的地方


excle文档:

sheet表第一列填要素名称,如“姓名”;第二列填要素值,如“张三”

然后在excel上通过VBA遍历word文档的“格式文本控件”,并根据对应的要素名称改变其要素值;

最后另存为word文档




使用教程

1.下载“合同生成小工具.zip”,并解压

2.把合同模版拷贝到“合同模版”的文件夹下

3.如未打开“开发工具”选项卡,请打开,具体在word或excel菜单栏依次点击:“文件”→“选项”→“自定义功能区”→“开发者工具”打√



4.打开“开发工具”后,菜单栏多了“开发工具”的选项卡,点开,在需要插入的位置插入“格式文本内容控件”,插入后在“开发工具”下点击“属性”,修改控件的标题和标记(改成一样)


5.依次插入控件后,打开excel文件“主程序.xlsm”,首次打开点击左上角的“启用”

6.在“主程序.xlsm”里新建sheet表并根据合同名称重命名,在新建sheet表第一列输入合同要素,如“姓名”、“客户名”、“营业执照号”等;第二列输入第一列对应的合同要素值,如“张三”。参考如下:

甲方某某某有限公司
营业执照44231421232346234324


7.在“主程序.xlsm”的首页选取sheet表和对应的合同模版,点击“生成合同”按钮;生成的合同文档默认存放在“output”文件夹下




下载

蓝奏云下载:https://busy.lanzous.com/ihQK7e9iq1i 密码:e34o

天翼云盘:https://cloud.189.cn/t/6fERzmYBBnIv (访问码:exv6)


评 论



感谢,正好需要! 游客 | 2020-07-13 14:33:13.0