懒人办公丨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 DocumentDim strSrcName As String, strNewName As StringDim oRange As RangeDim nIndex As IntegerDim fso As ObjectSet fso = CreateObject("Scripting.FileSystemObject")Set oSrcDoc = ActiveDocumentSet oRange = oSrcDoc.ContentoRange.Collapse wdCollapseStartoRange.SelectFor nIndex = 1 To ActiveDocument.Content.Information(wdNumberOfPagesInDocument)oSrcDoc.Bookmarks("page").Range.CopyoSrcDoc.Windows(1).ActivateApplication.Browser.Target = wdBrowsePageApplication.Browser.NextstrSrcName = oSrcDoc.FullNamestrNewName = fso.BuildPath(fso.GetParentFolderName(strSrcName), _fso.GetBaseName(strSrcName) & "_" & nIndex & "." & fso.GetExtensionName(strSrcName))Set oNewDoc = Documents.AddSelection.PasteoNewDoc.SaveAs strNewNameoNewDoc.Close FalseNextSet oNewDoc = NothingSet oRange = NothingSet oSrcDoc = NothingSet fso = NothingMsgBox "结束！"End Sub
3、完成拆分
接上一步，粘贴好上述VBA代码后，按下【F5】键，等待运行结束，则拆分完成，在【主文档】所在文件夹可看到按编号生成的子文档，拆分完成。具体可参考下图：
P.S.:文档拆分有一个缺点，就是独立生成的文档中，会出现空白页，这是因为【文档拆分】的过程中自动生成了新的【分节符（连接）】，可以分别进行手动删除。
有兴趣尝试【指定页拆分】的朋友，可以在后台回复“按页拆分”获取教程《WORD文档按页拆分单个文档》