如何将一个word文档按页分割成多个word文档

1. 键入ALT+F11打开VBA编辑器，选择菜单“插入-模块”
2. 粘贴下面的代码

   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

3. 键入F5，点击运行，看到“完成！”结束