大侠们，邮件合并如何生成一个数据一个word文档并重命名？

现在有大量合同要做，通过邮件合并将合同打印了出来，但领导要一户一个word文档，邮件合并如何生成一个数据一个word文档并以地址重命名？
    有想过一些方法，首先通过合并到新文档功能将所有合同放在一个文档，然后再通过多页word一页另存为一个新文档来实现，这个论坛里也有教过。现在主要问题是文档能否也批量使用地址来进行命名？能否用excel将地址列出来，然后通过序号对应批量修改word文档名字？
    各位大侠，麻烦指教一下啊。。。 因为有上千份合同要弄。。。想到要一个一个重命名头都大了。

附件是word文件和邮件合并使用的excel数据源。先感谢大家了~~~~

打开主文档，连接好数据源，运行模块里面的宏即可