合同生成小工具

背景

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

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

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

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


原理

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

excle文档:
sheet表第一列填要素名称,如“姓名”;第二列填要素值,如“张三”
然后在excel上通过VBA遍历word文档的“格式文本控件”,并根据对应的要素名称改变其要素值;
最后另存为word文档


合同生成小工具界面

使用教程

1.下载“合同生成小工具.zip”,并解压
2.把合同模版拷贝到“合同模版”的文件夹下
3.如未打开“开发工具”选项卡,请打开,具体在word或excel菜单栏依次点击:“文件”→“选项”→“自定义功能区”→“开发者工具”打√
打开开发工具
输入图片描述
4.打开“开发工具”后,菜单栏多了“开发工具”的选项卡,点开,在需要插入的位置插入“格式文本内容控件”,插入后在“开发工具”下点击“属性”,修改控件的标题和标记(改成一样)
插入格式文本内容控件
4.依次插入控件后,打开excel文件“主程序.xlsm”,首次打开点击左上角的“启用”
5.在“主程序.xlsm”里新建sheet表并根据合同名称重命名,在新建sheet表第一列输入合同要素,如“姓名”、“客户名”、“营业执照号”等;第二列输入第一列对应的合同要素值,如“张三”。参考如下:
| 甲方 | 某某某有限公司 |
|–|–|
| 营业执照 | 44231421232346234324 |
| …… | …… |

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


下载

蓝奏云下载:https://busy.lanzous.com/ihQK7e9iq1i 密码:e34o
天翼云盘:https://cloud.189.cn/t/6fERzmYBBnIv (访问码:exv6)


-------------本文结束 感谢您的阅读-------------
0%