如何使用VBA编程实现法律文书批量生成

律师工作中，经常遇到使用相同模板制作大量同类型文件的场景，例如群体性诉讼案件的法律文书，或某些非诉讼业务中合同、通知、回执之类文件。

在文件结构完全一致，仅有特定位置的信息、数据不同的情况下，利用Office组件的邮件合并功能，可以实现文件的快速批量生成。就此，已经有一些高手的教程流传，比如下面两篇(在此不附文章链接，可以用标题自行搜索查看)：

手动填写out！法律文书批量自动生成(来源于公众号“法秀”)

如何批量生成法律文书(来源于公众号“智善”)

邮件合并功能其实是Office中宏的一种具体应用，直接被作为预置功能固化在软件中。而宏是基于VBA(Visual Basic for Applications)实现的。对于略有基础的应用者，直接采用编程方式实现与预置组件类同的功能目标，有时会更加简单直接、灵活高效。

下面就介绍利用简单编程，实现与邮件合并相似的文本置换效果，从而批量生成法律文书的方法。

任务设定

某国企改制程序中，需根据职工安置方案设定的条件，生成全部职工的安置补偿合同，合同格式均相同，仅个人信息、数据不同。

软件环境

Windows 10, Office2016(Excel Word)

操作步骤

1. 新建一个文件夹，随便命名，比如“VBA”。 打开文件夹，在根目录下新建一个docx文档，命名为“模板”；新建一个xlsx文档，随便命名，比如“批量生成”。

2.  编辑docx文档，起草模板的文本内容。这里的关键在于，每份文件之间的差异化信息，要用特定的字符标记出来，便于后面执行自动查找和替换。

这个文档中选择采用英文标记，因为这是一份纯中文的文件，英文单词在其中具有特异性，不会与文档中其他部分文字混淆，从而避免“误伤”的可能。举个例子：假定某份模板文档中用“工资”两个汉字作为待替换标记，由于它本身是一个常用词，如果在文档内其他(不需要替换的)文字内容中出现了这两个字，在自动生成的文件中也会被一并替换，造成错误。

完成后关闭文档。后面的自动生成步骤中，如果文档处于打开状态，可能无法被调用。

提示：示例文件内容乱写的，不要借鉴，否则造成执业事故后果自负……

3. 打开xlsx文档，在第一张表(sheet1)中编辑数据。数据列的内容与文档中需要替换的内容分别对应。

注意：第一行不要填有效数据，可以写标题，空着也行。因为后面的代码设定从第二行开始提取数据。

提示：这个示例表中D、E列的数值相同，是前面B、C两列的数据乘积，直接用公式生成；大小写的标准写法可以通过单元格格式设置实现。都是Excel的常规应用。

4. 切到“视图”菜单，点击“宏”标签。

5. 在弹出的对话框中给项目命名，随便填。然后点击“创建”。

6. 编程界面，右边红框内就是代码编辑区域。接下来，让我们一行一行写代码……

7. ——怎么可能。厚道如笔者，当然已经把代码准备好了。如下(重点部分加了详细注释，不再另外说明)：

Sub production()

Dim mypath, docname, i, wApp                                         '定义变量

MkDir ThisWorkbook.Path & '\批量生成'                              '在当前路径下创建名为“批量生成”的文件夹，用于存放生成的文件

mypath = ThisWorkbook.Path & '\批量生成\'                        '指定“mypath”(本例定义的工作路径)为“批量生成”文件夹

For i = 2 To [a1048576].End(xlUp).Row                          '指定后面执行的循环范围，从第2行开始，到最后一个非空单元格为止

docname = '补偿协议-' & Range('A' & i) & '.docx'                 '定义自动生成的文件名为“补偿协议-” “A列i行的值(相应的姓名)” “.docx”

FileCopy ThisWorkbook.Path & '\' & '模板.docx', mypath & docname   '复制当前路径下的“模板.docx”文件到指定路径(就是“批量生成”文件夹)，并按上述规则重命名

Set wApp = CreateObject('word.application')                        '调用word程序打开文件，执行后面操作

With wApp

.Visible = False

.Documents.Open mypath & docname                               '打开上面复制并重命名的文件

Do While .Selection.Find.Execute('name')                       '在文件中检索“name”字符串

.Selection.Text = Range('A' & i).Text                       '使用表格A列i行的值(即相应的姓名)替换找到的“name”字符串

.Selection.HomeKey Unit:=6                                  '光标置于文件开头

Loop                                                           '循环

'（直到找不到“name”为止，当前文档中所有“name”字符串都已被替换）

Do While .Selection.Find.Execute('seniority')                  '(下面都是一样的结构，就是分别用相应列中提取出来i行的值，替换各个预设的字符串，不重复)

.Selection.Text = Range('B' & i).Text

.Selection.HomeKey Unit:=6

Loop

Do While .Selection.Find.Execute('unit')

.Selection.Text = Range('C' & i).Text

.Selection.HomeKey Unit:=6

Loop

Do While .Selection.Find.Execute('compensation')

.Selection.Text = Range('D' & i).Text

.Selection.HomeKey Unit:=6

Loop

Do While .Selection.Find.Execute('inwords')

.Selection.Text = Range('E' & i).Text

.Selection.HomeKey Unit:=6

Loop

Do While .Selection.Find.Execute('status')

.Selection.Text = Range('F' & i).Text

.Selection.HomeKey Unit:=6

Loop

Do While .Selection.Find.Execute('id')

.Selection.Text = Range('G' & i).Text

.Selection.HomeKey Unit:=6

Loop

Do While .Selection.Find.Execute('phone')

.Selection.Text = Range('H' & i).Text

.Selection.HomeKey Unit:=6

Loop

Do While .Selection.Find.Execute('address')

.Selection.Text = Range('I' & i).Text

.Selection.HomeKey Unit:=6

Loop

Do While .Selection.Find.Execute('bank')

.Selection.Text = Range('J' & i).Text

.Selection.HomeKey Unit:=6

Loop

Do While .Selection.Find.Execute('account')

.Selection.Text = Range('K' & i).Text

.Selection.HomeKey Unit:=6

Loop

.Documents.Save

.Quit

End With

Next

Set wApp = Nothing

End Sub

复制以上代码，粘贴到代码编辑器内，替换原有全部内容。

8. 点击“保存”按钮，对当前工作存档。结果弹出一个对话框。

这是创建文件时的一个疏忽：默认的xlsx格式不支持在文件中保存宏。这毕竟是可执行的代码，有安全风险。早些年大名鼎鼎的“宏病毒”很多人应该还有印象，虽然如今已经不多见了。

也没关系，保存为支持宏的格式就行了。点击上面对话框中的“否”，在“保存类型”下拉选单中选择“Excel 启用宏的工作簿”，保存即可。

文件已经另存为支持宏的格式(扩展名为xlsm)。

9. 打开新保存的“批量生成.xlsm”文件。同样，点开“宏”标签，选定刚才创建的项目，点击“执行”按钮，代码开始运行。等上一会儿。

10. 运行完毕。当前路径下出现了“批量生成”文件夹。

打开新的文件夹，表格里共有10个人的数据，生成10份文档，都在这里。

随便打开一份，核对信息，无误。

扩展提示

实现特定字符串查找和替换功能的模块如图所示。

每个红框内是一个字符串的替换模块，蓝色下划线标出的是需改动的值。如果需要增加、减少、调整替换目标和内容，对代码做相应修改即可。

总结

重复一遍，这种方法的优点是：在文档和数据处理的直观性、便捷性方面表现更好(比如，像本例中这样自定义规则给批量生成的文件命名，用邮件合并似乎就实现不了)，特别是需要替换的内容较多时，优势可能更为明显。