懒人办公丨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文档按页拆分单个文档》