懒人办公丨3分钟搞定Word文档拆分

上一期的《懒人办公丨3分钟搞定Word邮件合并》，留下了一个问题：

邮件合并成一个文档后，如果想拆分成不同的子文档，应该怎么办呢？

其实解决方法很简单：【新建空白页】▶【复制粘贴】▶【保存】（以上方法重复1000次）

当然不是！

这一次要介绍的是

文 档 拆 分

顾名思义，文档拆分就是把一个文档按需求拆分成若干个独立的文档，一般分按标题拆分和按页拆分两种方法。

一、按标题拆分

1、设置【标题格式】

（1）如果在【邮件合并】之前提前预知需要对生成的文档进行拆分，那么建议在制作【主文档】模板时，将标题整合成一行，然后设置【标题格式】，接下来再按上一期教的方法进行【邮件合并】，如图：

设置过【标题格式】的文档，进行邮件合并后，效果如下图，红框处可见合并成的新文档中，每一页的【标题】均已自带模板设置好的标题格式：

（2）如果是经【邮件合并】生成的文档，要先删掉【分节符】，这是因为文档一旦拆分成功，新生成的文档会出现【2个分节符】，手动无法删除；如果不是经【邮件合并】生成的文档，则可跳过这一步。具体如图：

2、进入【大纲视图】

【视图】▶【大纲视图】，进入后可以发现，标题的前头多了个“+”号，这就是我们需要提取的部分，其余的正文部分可以设置不显示▶【显示级别：1级】，具体如下图：

3、关键部分【文档分节】

拖动鼠标全选这些1级标题▶【显示文档】▶【创建】，创建后发现每个标题都出现了【分节符（连接）】，这说明，此时各标题已完成分节，彼此相互独立了。

4、最后一步【文档拆分】

完成分节后，点击Word左上角【保存】按钮，然后打开源文件所在的文件夹，可发现，出现了多个均按编号自动命名的文档，可逐一打开文档进行验证，文档拆分正式完成。

二、按页拆分

这一方法转自网络，版权归原作者所有。

按页拆分又分【单一页拆分】和【指定页拆分】。由于【指定页拆分】有些麻烦，因此这里只介绍【单一页拆分】。别看这里需要用到VBA代码，但是一点都不困难，其实就是复制、粘贴的事，非常简单！

1、打开邮件合并后生成的【主文档】

2、打开VBA编辑器

【Alt】+【F11】▶【插入】▶【模块】，复制下面的VBA代码，粘贴到【模块】对话框中：

Sub SplitPagesAsDocuments()

Dim oSrcDoc As Document, oNewDoc As Document

Dim strSrcName As String, strNewName As String

Dim oRange As Range

Dim nIndex As Integer

Dim fso As Object

Set fso = CreateObject("Scripting.FileSystemObject")

Set oSrcDoc = ActiveDocument

Set oRange = oSrcDoc.Content

oRange.Collapse wdCollapseStart

oRange.Select

For nIndex = 1 To ActiveDocument.Content.Information(wdNumberOfPagesInDocument)

oSrcDoc.Bookmarks("\page").Range.Copy

oSrcDoc.Windows(1).Activate

Application.Browser.Target = wdBrowsePage

Application.Browser.Next

strSrcName = oSrcDoc.FullName

strNewName = fso.BuildPath(fso.GetParentFolderName(strSrcName), _

fso.GetBaseName(strSrcName) & "_" & nIndex & "." & fso.GetExtensionName(strSrcName))

Set oNewDoc = Documents.Add

Selection.Paste

oNewDoc.SaveAs strNewName

oNewDoc.Close False

Next

Set oNewDoc = Nothing

Set oRange = Nothing

Set oSrcDoc = Nothing

Set fso = Nothing

MsgBox "结束！"

End Sub

3、完成拆分

接上一步，粘贴好上述VBA代码后，按下【F5】键，等待运行结束，则拆分完成，在【主文档】所在文件夹可看到按编号生成的子文档，拆分完成。具体可参考下图：

P.S.:文档拆分有一个缺点，就是独立生成的文档中，会出现空白页，这是因为【文档拆分】的过程中自动生成了新的【分节符（连接）】，可以分别进行手动删除。