【word文档分块怎么弄】Word按页面分为多个独立文档，同事每天的工作量只有30分钟。

前言|工作案例

今天发生了以下Word文档问题：

如何按页面将Word文档拆分为多个单独的文档？

假设此Word文档包含1000页，将1000页文档逐页拆分为1000个单独的Word文档。如果页面较少，则可以手动创建新的Word文档，然后将整个文档的每页内容复制并粘贴到新创建的Word文档中。但是如果页数多，又做这么没有技巧的蠢事，效率太低了。(莎士比亚)。

下一篇通过模拟一个简单的例子来说明这个问题。

如下图所示。

我们把包括“Excel情报局”两页的整个Word文档放在新创建的文件夹中。

名为Excel情报署的Word文件的第2页如下：第一页是“酒”一词，第二页是“水歌”一词。

最终结果如下：

如下图所示，将名为“Excel Intelligence”的Word文档的第2页内容逐页拆分为两个单独的文档，并将两个单词分别放在两个单独的文档中。

解决方案|故障排除步骤

打开需要在文件夹中逐页拆分的文档(在本例中，文件名为“Excel情报局”)。

输入ALT F11以打开VBA编辑器(或者单击“开发工具”选项卡，然后单击“visual basic”以进入VBA编辑器)。

单击“插入-模块”，将以下VBA代码复制并粘贴到新创建的模块中。

代码如下：

Option Explicit

Sub SplitPagesAsDocuments()

Dim osrcdoc as document、o newdoc as document

Dim strsrc name as string，str newname as string

Dim oRange As Range

Dim nIndex As Integer

Dim FSO As Object

set FSO=CreateObject(' Scri；)。

Set oSrcDoc=ActiveDocument

Set oRange=oSrcDoc。Content

ORange。Collapse wdCollapseStart

ORange。Select

for nindex=1 to AC(wdnumberofpagesindocument)

osrcdoc . bookmarks(' \ page '). range . copy

OSrcDoc。Windows(1)。Activate

A=wdBrowsePage

a

StrSrcName=oSrcDoc。FullName

StrNewName=(strSrcName)，_

(strsrcname)' _' nindex ' . '(strsrcname)

Set oNewDoc=Documen

单元欧共体

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文档，我们分别点击，我们发现每个单词已经放得很整齐了。