本文目录一览：
如何将一个word文档按页分割成多个word文档？
运行后，会弹出一个窗口，在里面输入你想按多少页导出。如果你想每5页存一个文档，那么就写5，如果是按1页，就写1。
Sub 多页导出()
Dim MyPath As String, PageCount As Integer
Dim StartRange As Long, EndRange As Long, MyRange As Range
Dim Fn As String, MyDoc As Document, i As Integer
Dim q%, a%
On Error Resume Next
Application.ScreenUpdating = False
MyPath = ActiveDocument.Path
PageCount = Selection.Information(wdNumberOfPagesInDocument)
Selection.HomeKey unit:=wdStory
q = InputBox("一闪流溢让我问问你，你想分几页导出，如5页，填写5")
For i = 1 To PageCount / q + (PageCount Mod q)
StartRange = Selection.Start
Selection.EndKey unit:=wdLine
Fn = i "." ActiveDocument.Name
If i * q = PageCount Then
EndRange = ActiveDocument.Content.End
Else
For a = 1 To q
Selection.GoToNext (wdGoToPage)
Next a
EndRange = Selection.Start
End If
Set MyRange = ActiveDocument.Range(StartRange, EndRange)
MyRange.Copy
Set MyDoc = Documents.Add
With MyDoc
.Content.Paste
.Content.Paragraphs.Last.Range.Delete
.Content.Paragraphs.Last.Range.Delete
.SaveAs FileName:=MyPath "/" Fn
.Close
End With
Next
Application.ScreenUpdating = True
End Sub
代码借鉴改编自excelhome的雨雪霏霏和守柔，雨雪霏霏。守柔
如果答案对你有帮助，记得留言点赞。
word能按页拆分成单独文档吗
Word 拆分成单页文件 1、在Word里面打开那个需要分割的文档（假设它的文件名叫做“原始文档.doc”）；
键入ALT+F11打开VBA编辑器，选择菜单“插入-模块”；
粘贴下面的代码：
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
键入F5运行，看到“完成！”结束。
2、检查当前文档所在路径下是否生成若干名为“原始文档_n.doc”（n代表其对应原始文档中的第几页）的文档，检查它们的内容是否就对应于原始文档每个页面的内容。
如文档中有分节符分解后的文档会出现空白页，如要分解后不出现空白页，需要把文档中的分节符删除。消除分节符的方法：
注意事项
分节符若全部替换，要注意替换后文档可能会出现排版混乱，这则需要自己手动排版了。
怎样把同一个word文档按页拆分
首先启动word2010，执行快捷键组合ctrl+o打开一份待拆分的文档。执行视图菜单，选择大纲模式，查看页面排版的变化。依次选择需要拆分的文件标题，设置大纲级别为1级。选择需要拆分的标题前面的加号，执行大纲菜单中的显示文档，接着点击创建按钮。采用同样的方法依次创建其他子文档，并查看创建结果。执行文件-保存命令，这样就将所有的子文件依次进行保存了，查看保存后的文档。
word文档怎样把一页分成两页
方法一：打开一个Word文档，选中要进行分开的部分。
请点击输入图片描述
然后依次点击上方菜单栏中的“布局”—“分栏”—“两栏”，即可分成左右两半。
请点击输入图片描述
方法二：按键盘上的“Ctrl+A”选中全部文字。
请点击输入图片描述
4
然后依次点击“布局”—“分栏”—“两栏”，即可完成分割。
请点击输入图片描述