1、第一， office默认是没有显示开发工具的，先点击左上角“文件”进入。
2、第二， 进入后选择“选项”菜单。
3、第三， 再点击“自定义功能区”，右侧选中“开发者工具”。
4、第四， 搞定后，退出点击“开发工具”选项中的“Visual Basic”按钮。
5、第五， 进入后点击“插入”选项，选择“模块”插入。
6、第六， 复制如下代码，张贴入模块：
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
7、第七， 张贴完成后，点击“运行”菜单下的“运行子过程”选项，或者直接F5.
8、第八， 操作完成后，程序自动运行，会显示分为单独文档。
