第一， office默认是没有显示开发工具的，先点击左上角“文件”进入。

第二， 进入后选择“选项”菜单。

第三， 再点击“自定义功能区”，右侧选中“开发者工具”。

第四， 搞定后，退出点击“开发工具”选项中的“Visual Basic”按钮。

第五， 进入后点击“插入”选项，选择“模块”插入。

第六， 复制如下代码，张贴入模块：

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.

第八， 操作完成后，程序自动运行，会显示分为单独文档。

如果对你有帮助，请点文章最下方投票。喜欢本人的话，还请多多关注。

如果有疑问，文章最下方投票右侧可以留言询问。