Word如何将页面分成多个独立文档 word文档内容分为多个独立文件

职场实例
今天遇到这样一个人Word文档问题：
如何将一个Word文档按页分成多个独立文档？
假设我们这个Word文档内含有1000页，然后将这1000页文档按页批量拆分成1000个单独的Word文档。如果页面数量少，我们可以手动一个一个新建Word文档，然后将总文档中的每页内容复制粘贴到新建的一页Word文档中。但如果页数数据量大，再这样无技巧的傻傻工作，效率就太低了。
以下小系列将通过模拟一个简单的例子来解释这个问题。
如下图所示：
我们将包含2页的名称称称为Excel情报局总Word文新建的文件夹中放置文档。

文章插图
这个名字叫这个名字叫Excel情报局”的Word文档中的2页内容如下图所示：第一页是一首词将进酒，第二页也是一首词水调歌头。

文章插图
最终效果如下：
将名称为“Excel情报局”的Word文据页面批量将文档中的2页内容分成两个单独的文档，两个单独的文档分别放置在两个单独的文档中，如下图所示：

文章插图
解决方案|解题步骤
打开文件夹中需要按页面拆分的文件(本例中的文件名称为Excel情报局”）

文章插图
键入ALT F11打开VBA编辑器(或单击开发工具选项卡"visual basic，进入VBA编辑器）。

文章插图
点击“插入-模块，将下一段VBA将代码复制粘贴到新建模块中。
代码如下：

_ 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_ 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

文章插图
点击上面的操作-操作子过程/窗体，等几秒钟就会弹出拆分成功结束的提示框，点击确定关闭VBA窗口，打开文件夹，发现已经拆分，有两个独立的Word文档。

文章插图
【Word如何将页面分成多个独立文档 word文档内容分为多个独立文件】分别点击打开拆分Word在文档中，我们发现每个单词都被整齐地放置在里面。

文章插图