法律文书批量生成

本文主要介绍利用 word 的邮件合并功能批量生成法律文书。在原有的基础上新增了word文档的拆分及拆分后批量修改文件名称。

数据的整理

利用 Excel 函数

获取性别

在目标单元格中输入公式:

1
2
注:B2 为示例文件中身份证号码的位置,依据具体情况进行修改
=IF(MOD(MID(B3,17,1),2),"男","女")。

MID 是指返回文本字符串中从指定位置开始的特定数目的字符,该数目由用户指定。以上面的公示为例,从 B2中第17的位置返回 1个字符。
MOD是指返回两数相除的余数。 判断身份证号上面的数字是否为奇数。
IF函数:如果为奇数返回为男,如果为偶数返回为女。

获取出生日期

在目标单元格中输入公式:=TEXT(MID(C3,7,8),"00 年00 月00 日")
TEXT函数将日期转化成文本。

利用方方盒子插件

使用方方盒子就很简单了,如下图所示,选择身份证号的区域,之后选择性别或出生日期的单元格即可自动生成。

批量生成

打开文书模板,选择邮件👉选择收件人👉使用现有列表

打开数据文件

将数据类别插入 word 文档

最后点击完成并合并👉编辑单个文档

修改日期格式

但是这样操作,出生日期并非以年月日的方式呈现。

解决办法如下:
插入出生日期域后,单击右键选择切换域

在后面输入\@"YYYY年MM月DD日",注意\前应该有空格。

之后点击右键选择更新域:

Word文档拆分

邮件合并生成的法律文书只在一个word文档中,对于像笔者这种轻微强迫症患者是无法接受的。在这里推荐大家使用word自带的宏功能来解决该问题。
将以下代码复制到粘贴板

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
Sub 每N页分割为一个新文档__保存到同目录下()
'特别鸣谢"雨雪霏霏、守柔版主。
Dim MyPath As String, PageCount As Integer
Dim StartRange As Long, EndRange As Long, MyRange As Range
Dim Fn As String, MyDoc As Document, i As Integer
On Error Resume Next
Application.ScreenUpdating = False
MyPath = ActiveDocument.Path '取得文档路径
PageCount = Selection.Information(wdNumberOfPagesInDocument) '取得文档总页数
N = InputBox("按每几页拆分?默认为3:", "请输入数值", 3)
Selection.HomeKey unit:=wdStory '将光标移至文档起点
For i = 1 To PageCount / N + (PageCount Mod N) '设置循环次数,如3则表示每3页做一次循环
StartRange = Selection.Start '取得该页的第一个字符位置
Selection.EndKey unit:=wdLine '将光标移动到该页首行的最后位置
Fn = i & ActiveDocument.Name '-1的目的是防止该页首行含有段落标记,导致出错.
If i * N >= PageCount Then '如果循环到达最后一页
EndRange = ActiveDocument.Content.End '将文档最后位置赋值于EndRange
Else
For J = 1 To N
Selection.GoToNext (wdGoToPage)
Next J
EndRange = Selection.Start
End If
Set MyRange = ActiveDocument.Range(StartRange, EndRange) '将N页中的内容进行复制
MyRange.Copy
Set MyDoc = Documents.Add '新建一空白文档
With MyDoc
.Content.Paste '在新文档中粘贴
.Content.Paragraphs.Last.Range.Delete '删除新文档末尾多出来的一个段落标记
.SaveAs FileName:=MyPath & "/" & Fn
'保存新文档到原文档所在目录。如果删除"MyPath & "/" & ",。则保存到"我的文档"中。
.Close '关闭新文档
End With
Next
Application.ScreenUpdating = True
End Sub

在word菜单栏选择视图 👉 👉 查看宏

弹出下图的对话框后选择创建

清空文本内容,之后将上文中的代码,粘贴到该区域,保存并退出

再次点击视图 👉 👉 查看宏,找到刚才的宏命,选择并点击运行。

等待宏命令运行结束,文档自动保存在原始文件的相同目录下。

文件批量改名

通过软件实现

通过宏命令生成的文档文件命名是以数字序号 原始文件名的方式呈现。我们通过Excel批量修改上述文件名称。我们的目标是实现金世遗_答辩状的这种格式。

在这里通过软件ReNamer来实现,将文件拖拽到区域的下方,单击添加规则区域。

找到用户输入,将之前准备好的数据复制到空白区域。

在添加文件后缀名的规则,选择用户插入,自定义文本信息,选择在前缀或后缀添加

最后点击重命名,搞定!

其他办法

另外一种方法是通过cmd和Excel来进行实现.

  1. 在当前目录下获取全部的文件名称,在地址栏输入cmd,之后输入dir /b>rename.txt
  2. 将文本添加后Excel,利用CONCATENATE函数获得新文件名称
    该方法的实质就利用ren "原始文件名称" "新文件名称"的方式来进行修改,详细建议参考此文用Excel批量修改文件名