怎样将一个word文档按页分割成多个word文档

1、打开需要拆分的文档 2、将需要拆分的章节标题样式选中“标题1” 3、选择大纲视图——显示1级标题——点击显示文档 4、双击第一章前面的“+”号以显示第一章全部内容，点击创建，将第一章进行拆分 5、双击图中所示文本标志。 6、会自动弹出新Word窗口

office办公软件是如今较为普遍的一种办公软件，word便是其中的一种。今天为大家分享一则如何将一个word文档按页分割成多个word文档的方法。

材料/工具

电脑

方法

打开需要分割的文档

1、在Word里面打开那个需要分割的文档（假设它的文件名叫做“原始文档.doc”）； 2、键入ALT+F11打开VBA编辑器，选择菜单“插入-模块”； 3、粘贴下面的代码： Option Explicit Sub SplitPagesAsDocuments() Dim oSrcDoc As Document, oNewDoc As Do

键入ALT+F11打开辑器

1、打开word，该文档有两页，把每一页都设置一个一级标题。 2、进入视图，点击进入大纲页面。 3、点击进入大纲后，Ctrl+A全选，然后把显示级别设置为一级，然后点击显示文档。 4、点击创建。 5、点击创建后，就可以进入文件中另存文档了。 5、另

点击插入,模块

在Word里面打开那个需要分割的文档（假设它的文件名叫做“原始文档.doc”）； 键入ALT+F11打开VBA编辑器，选择菜单“插入-模块”； 粘贴下面的代码： Option Explicit Sub SplitPagesAsDocuments() Dim oSrcDoc As Document, oNewDoc As Document Di

粘贴下面的代码：

手动的话就不用说了吧，什么复制粘贴的方法啊，删除另存的方法啊什么的，都可以。 另一个就是通过宏了； 尝试以下代码： Sub SplitEveryFivePagesAsDocuments() Dim oSrcDoc As Document, oNewDoc As Document Dim strSrcName As String, strNew

Option Explicit

1、在Word里面打开那个需要分割的文档； 2、键入ALT+F11打开VBA编辑器，选择菜单“插入-模块”； 3、复制粘贴下面的代码： Option Explicit Sub SplitPagesAsDocuments() Dim oSrcDoc As Document, oNewDoc As Document Dim strSrcName As String,

Sub SplitPagesAsDocuments()

1、在Word里面打开那个需要分割的文档（假设它的文件名叫做“原始文档.doc”）； 键入ALT+F11打开VBA编辑器，选择菜单“插入-模块”； 粘贴下面的代码： Option Explicit Sub SplitPagesAsDocuments() Dim oSrcDoc As Document, oNewDoc As Document

Dim oSrcDoc As Document, oNewDoc As Document

1、在Word里面打开那个需要分割的文档（假设它的文件名叫做“原始文档.doc”）； 2、键入ALT+F11打开VBA编辑器，选择菜单“插入-模块”； 3、粘贴下面的代码： Option Explicit Sub SplitPagesAsDocuments() Dim oSrcDoc As Document, oNewDoc As Do

Dim strSrcName As String, strNewName As String

1、找到需要进行分离份Word文档双击打开该Word文档。 2、在进入该文档后，找到需要分离开的页面，将鼠标从该页面左上角下拉到页面的右下角，选中改业的全部内容。 3、选中这一页的群补内容后点击弹出选项框中的剪切选项将所选中的内容剪切到剪切

Dim oRange As Range

1、打开需要拆分的文档2、将需要拆分的章节标题样式选中“标题1”3、选择大纲视图——显示1级标题——点击显示文档4、双击第一章前面的“+”号以显示第一章全部内容，点击创建，将第一章进行拆分5、双击图中所示文本标志。6、会自动弹出新word窗口，新wo

Dim nIndex As Integer

这个得用大纲视图； 在切换视图之前，先将每页的首行设置为一级标题； 然后切换到大纲视图→显示文档→创建； 最后，点击保存，子文档就保存在主文档所在的文件夹；

Dim fso As Object

这个必须用到大纲视图； 第一步：在第一、第三、第五等每个两页的最顶端设置一个一级标题； 第二步：Ctrl+Alt+O（欧）切换到大纲视图→显示级别选择1级→点击“显示文档”→点击“创建”→Ctrl+S保存； 完成，保存后的子文档位于主文档文件夹内；

Set fso = CreateObject("Scripting.FileSystemObject")

一、整个表格拆分成上下两个： 把鼠标放到需要拆分的新表的一行任意一个单元格中，然后按CTRL＋SHIFT＋回车 二、拆分单元格 表格工具－－“布局”中，有一项，拆分单元格。 欢迎下载腾讯电脑管家了解更多知识，体验更多功能。

Set oSrcDoc = ActiveDocument

1、在Word里面打开那个需要分割的文档（假设它的文件名叫做“原始文档.doc”）； 键入ALT+F11打开VBA编辑器，选择菜单“插入-模块”； 粘贴下面的代码： Option Explicit Sub SplitPagesAsDocuments() Dim oSrcDoc As Document, oNewDoc As Document

Set oRange = oSrcDoc.Content

1、打开需要拆分的文档 2、将需要拆分的章节标题样式选中“标题1” 3、选择大纲视图——显示1级标题——点击显示文档 4、双击第一章前面的“+”号以显示第一章全部内容，点击创建，将第一章进行拆分 5、双击图中所示文本标志。 6、会自动弹出新word窗口

oRange.Collapse wdCollapseStart

下面用本机的word2010来演示 1、打开需要拆分的文档 2、将需要拆分的章节标题样式选中“标题1” 3、选择大纲视图——显示1级标题——点击显示文档 4、双击第一章前面的“+”号以显示第一章全部内容，点击创建，将第一章进行拆分 5、双击图中所示文本标志

oRange.Select

请参考： http://zhidao.baidu.com/question/164634421.html http://wenku.baidu.com/view/1ffa41d549649b6648d74780.html

For nIndex = 1 To ActiveDocument.Content.

这个必须用到大纲视图； 第一步：在第一、第三、第五等每个两页的最顶端设置一个一级标题； 第二步：Ctrl+Alt+O（欧）切换到大纲视图→显示级别选择1级→点击“显示文档”→点击“创建”→Ctrl+S保存； 完成，保存后的子文档位于主文档文件夹内；

Information(wdNumberOfPagesInDocument)

请尝试如下步骤： 1、打开需要分割的PPT文档（假设文件名为“原始文档.ppt”）； 2、键入Alt+F11切换到VBA编辑环境，然后选择菜单“插入-模块”； 3、在代码编辑区粘贴如下代码： Option Explicit Sub SplitSlides() Dim oSrcPresentation As Presen

oSrcDoc.Bookmarks("page").Range.Copy

1、在excel的加载项选择方方格子，选择汇总拆分功能。 2、在下拉菜单中选择拆分工作簿。 3、设置要拆分出的工作表，以及需要储存的位置，然后点击确定。 4、运行完成后，会有提示，可以直接查看文件。 5、在指定的文件夹内就可以看到拆分好的表

oSrcDoc.Windows(1).Activate

1、在excel的加载项选择方方格子，选择汇总拆分功能。 2、在下拉菜单中选择拆分工作簿。 3、设置要拆分出的工作表，以及需要储存的位置，然后点击确定。 4、运行完成后，会有提示，可以直接查看文件。 5、在指定的文件夹内就可以看到拆分好的表

Application.Browser.Target = wdBrowsePage

工具/原料 word办公软件 方法/步骤 1、打开要操作的文档。如下图所示： 2、在word工具栏中找到‘页面布局’一栏，点击进入。如下图所示： 3、全选文档内容，快捷键ctrl+A ，在工具栏中找到‘分栏’选项，选择两栏。如下图所示：

Application.Browser.NextstrSrcName = oSrcDoc

以WPS 2019版本为例： 关于如何将一个EXCEL中的多个sheet表拆分为多个EXCEL表，您可使用WPS参考下述步骤完成操作： 1、打开「表格（Excel）」文档； 2、点击「数据-拆分表格」； 3、按需选择「把工作表按照内容拆分」或「把工作簿按照工作表拆分

.FullName

楼下说的没错利用acrobat可以 利用福昕阅读器企业版也可以 因为可以直接删除、剪切、复制粘贴页面，也可以分成一页一页的 ，然后在拼到一起所以 你想怎么分割都行 你想要的是提取页面吧，也可以右键 提取液面 然后如图 就可以自由选择连续页面进

strNewName = fso.BuildPath(fso.GetParentFolder

1、在Word里面打开那个需要分割的文档（假设它的文件名叫做“原始文档.doc”）； 键入ALT+F11打开VBA编辑器，选择菜单“插入-模块”； 粘贴下面的代码： Option Explicit Sub SplitPagesAsDocuments() Dim oSrcDoc As Document, oNewDoc As Document

Name(strSrcName), _

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

键入F5运行，看到“完成！”

成功！

扩展阅读，以下内容您可能还感兴趣。

如何将一个word文档按页分割成多个word文档

1、打开需要拆分的来文档2、将需要拆分的章节标题样式选中“标题1”3、选择大纲视图——显示自1级标题——点击显示文档4、双击第一章前面的百“+”号以显示第一章全部内容，点击度创建，将第一章进行拆分5、双击图中所示文本标志。6、会自动弹出新word窗口，新word文档为全部第一章节问内容，点击保存即可。然后重复上面步骤，将其他章答节进行拆分。

如何将一个word文档按页分割成多个word文档

这个得用大纲视图；

在切换视图之前，先将每页的首行设置为一级标题；

然后切换到大纲视图→显示文档→创建；

最后，点击保存，子文档就保存在主文档所在的文件夹；

如何将一个word文档按2页分割成多个word文档

这个必须用到大纲视图；

第一步：在第一、第三、第五...等每个两页的最顶来端设置一个一级标题；

第二步：Ctrl+Alt+O（欧）切换到大纲视图→显示源级别选择1级→点击“zd显示文档”→点击“创建”→Ctrl+S保存；

完成，保存后的子文档位于主文档文件夹内；

如何将一个word文档按一定页数（如：每3页，每4页）分割成多个word文档?

没听说有现成的工具，一个个用手分吧。

WORD文档如何将一个表格拆分成两个?

一、整个表zd格拆分成上下两个：

把鼠标放到需要拆分的新表的一行任意一个单元格中，然后按CTRL＋SHIFT＋回车

二、拆分单元格

表格工具内－－“布局”中，有一项，拆分单元格。

欢迎容下载腾讯电脑管家了解更多知识，体验更多功能。