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

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

　　1、打开word文档，选中第一页内容，复制。


　　2、新建一空白文档，粘贴。



　　3、保存，即可。其他页依此类推。

　　

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

　　1、打开word文档，选中第一页内容，复制。

　　2、新建一空白文档，粘贴。

　　3、保存，即可。其他页依此类推。

　　

1、在Word里面打开那个需要分割的文档（假设它的文件名叫做“原始文档.doc”）；

2、键入ALT+F11打开VBA编辑器，选择菜单“插入-模块”；

3、粘贴下面的代码：

Option Explicit

Sub SplitPagesAsDocuments()

Dim oSrcDoc As Document, oNewDoc As Document
Dim strSrcName As String, strNewName As String
Dim oRange As Range
Dim nIndex As Integer
Dim fso As Object

Set fso = CreateObject("Scripting.FileSystemObject")
Set oSrcDoc = ActiveDocument
Set oRange = oSrcDoc.Content

oRange.Collapse wdCollapseStart
oRange.Select

For nIndex = 1 To ActiveDocument.Content.Information(wdNumberOfPagesInDocument)
oSrcDoc.Bookmarks("\page").Range.Copy
oSrcDoc.Windows(1).Activate
Application.Browser.Target = wdBrowsePage
Application.Browser.Next

strSrcName = oSrcDoc.FullName
strNewName = fso.BuildPath(fso.GetParentFolderName(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

4、键入F5运行，看到“完成！”结束。

5、检查当前文档所在路径下是否生成若干名为“原始文档_n.doc”（n代表其对应原始文档中的第几页）的文档，检查它们的内容是否就对应于原始文档每个页面的内容。

手动的话就不用说了吧，什么复制粘贴的方法啊，删除另存的方法啊什么的，都可以。

另一个就是通过宏了；

尝试以下代码：

Sub SplitEveryFivePagesAsDocuments()
    Dim oSrcDoc As Document, oNewDoc As Document
    Dim strSrcName As String, strNewName As String
    Dim oRange As Range
    Dim nIndex As Integer, nSubIndex As Integer, nTotalPages As Integer, nBound As Integer
    Dim fso As Object
    
    Const nSteps = 5         ' 修改这里控制每隔几页分割一次
    
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set oSrcDoc = ActiveDocument
    Set oRange = oSrcDoc.Content
    
    nTotalPages = ActiveDocument.Content.Information(wdNumberOfPagesInDocument)
    oRange.Collapse wdCollapseStart
    oRange.Select
    For nIndex = 1 To nTotalPages Step nSteps
        Set oNewDoc = Documents.Add
        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
            Application.Browser.Target = wdBrowsePage
            Application.Browser.Next
    
            oNewDoc.Activate
            oNewDoc.Windows(1).Selection.Paste
        Next nSubIndex
        strSrcName = oSrcDoc.FullName
        strNewName = fso.BuildPath(fso.GetParentFolderName(strSrcName), _
                     fso.GetBaseName(strSrcName) & "_" & (nIndex \ nSteps + 1) & "." & fso.GetExtensionName(strSrcName))
        oNewDoc.SaveAs strNewName
        oNewDoc.Close False
    Next nIndex
    Set oNewDoc = Nothing
    Set oRange = Nothing
    Set oSrcDoc = Nothing
    Set fso = Nothing
    MsgBox "结束！"
End Sub

[班致学15314277932] - 如何将一个word文档按页分割成多个word文档?
闾璧筠：：1、打开word文档，选中第一页内容，复制。2、新建一空白文档，粘贴。3、保存，即可。其他页依此类推。

[班致学15314277932] - 如何将Word文档按章节分页
闾璧筠：：1. 首先第一步打开电脑中需要编辑的Word文档，根据下图箭头所指，章节之间是连续的。2. 第二步如果想要将章节切换到下一页的话，根据下图所示，可以连续按下【回车】键。3. 第三步先将鼠标光标移动到章节前，接着根据下图箭头所指，点击【布局】选项。4. 第四步在【布局】菜单栏中，根据下图箭头所...

[班致学15314277932] - 如何将word文档按页码拆分如何将word文档按页码拆分成两页
闾璧筠：：1. 打开要拆分的Word文档。2. 在菜单栏中选择查看选项卡，然后点击导航窗格，打开导航窗格。3. 在导航窗格中选择页码选项卡，显示文档的页码列表。4. 在页码列表中选择你想要拆分的起始页码。5. 点击鼠标右键，选择复制，或使用快捷键Ctrl + C将选中的页码复制到剪贴板上。6. 打开一个新的空白Word...

[班致学15314277932] - 怎么把一个word文档按页数拆分为多个文档
闾璧筠：：合键ctrl+A,全选文档，组合键ctrl+shift+>可以逐渐的放大字体，组合键ctrl+shift+<可以逐渐的缩小字体，将鼠标按住滑块别动word就会自动显示页数，一边用快捷键调整字体大小，一边注意页码的变化，这样很快就可以调整到适当的页数。我在打印文档的时候经常使用的。。

[班致学15314277932] - 如何将一个word文档按页分割成多个word文档
闾璧筠：：1、打开需要拆分的文档2、将需要拆分的章节标题样式选中“标题1”3、选择大纲视图——显示1级标题——点击显示文档4、双击第一章前面的“+”号以显示第一章全部内容，点击创建，将第一章进行拆分5、双击图中所示文本标志。6、会自动弹出新word窗口，新word文档为全部第一章节内容，点击保存即可。然后...

[班致学15314277932] - 如何将Word文档中的所有内容放到一页纸上呢?
闾璧筠：：方法一：调整页面设置 1. 打开你的Word文档。2. 在顶部菜单栏中选择“布局”选项卡。3. 在“布局”选项卡中，点击“页面设置”。4. 在“页面设置”对话框中，选择“纸张”选项卡。5. 在“纸张”选项卡中，将纸张大小调整为适合一页的较大尺寸，例如选择“自定义纸张”并设置宽度和高度。6. 在...

[班致学15314277932] - 如何在一个word文件中添加下一页?
闾璧筠：：1、打开word文档，点击需要粘贴和被粘贴的两个word文档。切换到需要复制到另一个word文档中的word文档，选中某一页的全部内容，随后复制。2、首先需要自行打开一个需要进行添加下一页的word文档进行相关的操作。然后定位好光标位置，依次点击插入-空白页选项。再将视图进行缩小，就可以清楚的看到word插入空白...

[班致学15314277932] - 如何将一个word文档按页分割成多个word文档
闾璧筠：：这个得用大纲视图；在切换视图之前，先将每页的首行设置为一级标题；然后切换到大纲视图→显示文档→创建；最后，点击保存，子文档就保存在主文档所在的文件夹；

[班致学15314277932] - 怎么用word另起一页?
闾璧筠：：步骤一：我们打开word，将光标定格在当前页的结尾。如下图：步骤二：按下键盘上的“ctrl键+enter回车键”，可以先按住“ctrl”，再按一下“enter回车”。如下图（键盘有点脏，大家将就看）：效果如下：总结一下，这个方法是word中使用最常见也是最简单的，不管高手老手，使用最多的就是这个方法。希望...

[班致学15314277932] - 怎样把一篇word文档设置横向一页,纵向一页呢?
闾璧筠：：如何将word文档设置为横向一页,纵向一页?1、打开word文档，将鼠标光标放在最后一行，点击布局。在布局选项下，点击分隔符。在弹出的菜单栏点击下一页。点击纸张方向。选择纵向。word文档就被设置为一页横向一页竖向了。2、在第一页，插入“分节符”。点击“插入”－“分隔符”，选择“分节符类型”为“...