合同生成小工具

背景

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

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

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

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

原理

word文档：

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

excle文档：

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

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

最后另存为word文档

使用教程

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

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

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

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

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

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

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

下载

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

天翼云盘：https://cloud.189.cn/t/6fERzmYBBnIv （访问码：exv6）