Word按页拆分成多个独立文档(Word文档拆分成多个文档)

前言｜职场实例今天遇到了这样的一个Word文档问题：如何将一个Word文档按页拆分成多个独立文档？假设我们的这个Word文档内含有页，然后将这页文档按页批量拆分成个单独的Word文档。如果在页数数量少的情况下，我们完全可以通过手动一个一个新建Word文档，然后将总文档中的每页内容复制粘贴到新建的一个一个的Word文档中。但是如果页数数据量大的话，再这样无技巧的傻傻的工作，那效率就太低了。

下面小编就通过模拟一个简单的例子来说明这个问题。如下图所示：我们将含有2页的名称为“Excel情报局”的总Word文档放在一个新建的文件夹内。

这个名称为“Excel情报局”的Word文档中的2页内容如下图所示：第一页为一首词“将进酒”，第二页同样为一首词“水调歌头”。最终实现的效果是：将名称为“Excel情报局”的Word文档中的2页内容按页批量拆分成2个单独的文档，两首词分别放在两个单独的文档中，如下图所示：解决方案｜解题步骤在文件夹内打开那个需要按页拆分的文档（本例中它的文件名叫做“Excel情报局”）键入ALT+F打开VBA编辑器（或者点击“开发工具”选项卡，点击"visualbasic，进入VBA编辑器）。点击“插入-模块”，将下面一段VBA代码复制粘贴到该新建的模块中。

代码如下：OptionExplicitSubSplitPagesAsDocuments()DimoSrcDocAsDocument,oNewDocAsDocumentDimstrSrcNameAsString,strNewNameAsStringDimoRangeAsRangeDimnIndexAsIntegerDimfsoAsObjectSetfso=CreateObject("Scripting.FileSystemObject")SetoSrcDoc=ActiveDocumentSetoRange=oSrcDoc.ContentoRange.CollapsewdCollapseStartoRange.SelectFornIndex=1ToActiveDocument.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))SetoNewDoc=Documents.AddSelection.PasteoNewDoc.SaveAsstrNewNameoNewDoc.CloseFalseNextSetoNewDoc=NothingSetoRange=NothingSetoSrcDoc=NothingSetfso=NothingMsgBox"结束！"EndSub点击上方的“运行-运行子过程/窗体”，稍等几秒会弹出一个拆分成功结束的提示框，点击“确定”后关闭VBA窗口，打开文件夹，发现已经拆分完成了，出现2个独立的Word文档。分别点击打开拆分好的Word文档，我们发现每首词已经分别整齐的放置到了里面。