一、如何把一个word文档拆分为多个小文档
将多页文档拆分为单页或多页：
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代表其对应原始文档中的第几页）的文档，检查它们的内容是否就对应于原始文档每个页面的内容。
不过那个是按单页拆分的。如果想按照指定页数拆分，请使用下面的代码，其它步骤和原来那个方案相同。
Option Explicit
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 = 200 ' 修改这里控制每隔几页分割一次
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
二、怎么把word文档分成多个文档
双击打开需要把内容拆分成多个文档的word文档。
请点击输入图片描述
打开文档后，选择视菜单，在下面选择大纲视图命令。
请点击输入图片描述
然后，选定需要转成单个文档的内容首行，在正文文本中选为1级，把需要转成单个文档内容的首行均按此方法选择为1级。
请点击输入图片描述
选为1级后， 可以看到这部分内空的左上角会有一个十字符号，单击每一行前面的十字符号以选定这个部分内容，然后单击主控文档，在下面的显示文档里选择创建。
请点击输入图片描述
选择创建后，最后单击文档左上角的保存图标即可。
请点击输入图片描述
保存后，可以看到刚才打开的那个文档内容按需要拆分成了多个独立文档。
请点击输入图片描述
三、怎么将word多页分成多个文档
WORD多个页面分成多个文档，可以直接新建多个空白文档，然后把每一页的内容复制粘贴过去另存为一个文档就可以实现了。
所需工具：WPS
2016版本演示
操作步骤:
第一步，打开一个多页的文档，然后使用快捷键Ctrl+N新建若干个空白文档，如图所示。
第二步，把需要分开的文档页面，全选一页内容进行复制---粘贴到新建的空白文档中去。
第三步，粘贴到空白文档，然后进行文件的命名保存，快捷键Ctrl+S。重复操作，直至全部页面的内容保存完毕即可。
