【word文档怎么拆分页示范】根据指定的页数动态拆分Word文档的Word拆分真的很有用

前言|工作案例

13日文章中介绍了“如何将Word文档逐页分解为多个单独的文档”。可以在本月13日查看详细的推文链接。

如果将Word文档逐页分割成多个单独的文档，同事一天的工作量只有30分钟！

文章发表后立即有粉丝评论咨询。

如何根据指定的页数动态拆分Word文档？也就是说，上述方法是逐页拆分的。例如，如果要按指定的页数进行拆分(例如每2页进行拆分)，如何完成批量操作？

通过这一需求，我们发现，在职场事务中，我们面临的问题似乎变化无常，总是出现新的问题，但只要我们学习半三、储备知识，就能解决这些问题。(莎士比亚。)(莎士比亚。)

如下图所示。

文件夹内存中存在需要拆分的名为“Excel智能代理总表”的Word文档，其中包含4页文档，如下图所示。

我们的要求如下。

每2页拆分为单独的Word文档。也就是说，最后分成两个单独的Word文档，每个Word文档显示第2页的内容，每页的内容是一首鳟鱼内容。具体效果如下图所示。

阶段|解决方案

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

按一下「开发工具」页签，然后按一下「visual basic」以进入VBA编辑器，或输入ALT F11以开启VBA编辑器。单击“插入-模块”创建新模块以编辑输入VBA代码。

复制以下VBA代码部分并将其粘贴到新创建的模块中。单击上面的“运行-运行子流程/表单”后，将弹出几秒钟的提示框，提示分区成功结束。单击“确定”按钮。

代码如下：

Option Explicit

sub dynamicsplitpagesasdocuments()

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、nsubindex as integer、ntotalpages as integer和n bound as integer

Dim FSO As Object

Const nSteps=2

set FSO=CreateObject(' Scri；)。

Set oSrcDoc=ActiveDocument

Set oRange=oSrcDoc。Content

ntotal pages=AC(wdnumberofpagesindocument)

ORange。Collapse wdCollapseStart

ORange。Select

for nindex=1 to ntotal pages step n steps

Set oNewDoc=Documen

If nIndex nSteps nTotalPages Then

NBound=nTotalPages

Else

NBound=nIndex nSteps-1

End If

For nSubIndex=nIndex To nBound

OSrcDoc。Activate

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

OSrcDoc。Windows(1)。Activate

A=wdBrowsePage

a

ONewDoc。Activate

ONewDoc。Windows(1)。Selec

Next nSubIndex

StrSrcName=oSrcDoc。FullName

StrNewName=(strSrcName)，_

(strsrcname)' _' (nindex \ n steps)' . '(strsrcname)

ONewDoc。SaveAs strNewName

ONewDoc。Close False

Next nIndex

Set oNewDoc=Nothing

Set oRange=Nothing

Set oSrcDoc=Nothing

Set FSO=Nothing

MsgBox结束！’

EndSub最后关闭VBA窗口并关闭Word文档。然后打开输入文件夹，拆分完成，出现两个单独的Word文档。

单击以打开两个拆分的Word文档。发现每个单独的Word文档都有两页内容。

最终效果截图：

Word文档根据指定的页数动态拆分，Excel Intelligence Agency总表Word文档每2页拆分一次，结果是两个单独的Word文档，每个文档显示2页，每页显示宋词内容。

重点代码注释：

代码是固定模板，根据实际办公室要求，只需要灵活修改以下句子。

Const nSteps=2

在此，您可以指定需要拆分的页数。例如，每2页拆分为小文档。如果每3页拆分成小文档，则可以按如下方式修改：

Const nSteps=3