Word文档如何按页拆分成/保存为多个单独文档?
1、打开word文档。
1、按ALT+F11打开VBA编辑器，并点击“插入-模块”。
2、或者按Alt+F8打开宏命令窗口。
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、word文档就按自然页进行拆分并保存下来了。
1、按照上述同样的方法打开VBA编辑器，并点击“插入-模块”。
2、粘贴下面的代码：
Option Explicit
Sub DynamicSplitPagesAsDocuments()
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 = 3 //这里可以指定需要拆分的页数，如这里表示按照每3页拆分成一个小文档
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) & "." & 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
3、在代码中，有一行文字，修改其中的数字，即可指定页。
1、特别需要注意的是文档中的分节符，有分节符的话，拆分后的文档会出现空白页，如无需要，文档拆分前需把分节符删除掉。
2、可采用替换的方法进行替换，但这种方法容易引起排版混乱。
3、最好的方法是按住shift键，然后点击鼠标左键，然后再将显示出来的分节符删掉。
4、所谓分节符，是指为表示节的结尾插入的标记，包括页边距、页面的方向、页眉和页脚，以及页码，它用一条横贯屏幕的虚双线表示。
1、将word文档按页保存成多个独立文档，在工作中具有非常现实的意义！
2、运用这种方法，请务必将代码设置正确，并拷贝完整，以免造成意外；再就是按指定页拆分，一定要在代码中设置好指定页。
3、感谢您对小编的关注和支持！
了解更多知识，参见下列链接。