使用宏将word按页拆分成多个文档

在Microsoft Word中，虽然Word本身不直接提供一个内置的宏命令来按页拆分文档，但你可以通过编写VBA宏（Visual Basic for Applications）来实现这个功能。以下是一个简单的步骤指南：

1. **打开VBA编辑器**：
- 点击“文件”菜单，然后选择“选项”。
- 在“Excel选项”窗口左侧，选择“开发者”，点击“信任中心”。
- 如果有提示，启用“信任中心设置”中的“宏”功能。
- 回到主界面，按下`Alt + F11`组合键，进入VBA编辑器。

2. **创建新模块**：
- 在左侧的工程资源管理器中，右键单击“Microsoft Word xx.x Object Library”（xx.x表示你Word的版本），选择“插入” -> “Module”。

3. **编写宏代码**：
- 在新的模块窗口中，输入以下代码（假设你要从当前活动页面开始拆分）：

   Sub SplitDocumentByPages()
       Dim rng As Range
       Dim curPage As Integer
       Dim newDoc As Document
       
       Set rng = ActiveDocument.Content
       
       For Each page In rng.Rows '<-- 这里假设你是按行分页，如果是按页，则需要调整代码
           If page.Row > curPage Then ' 如果遇到新的一页
               Set newDoc = Documents.Add
               newDoc.Range.Copy rng.Cells(curPage + 1, 1) '<-- 把这一部分的内容复制到新文档开头
               curPage = page.Row ' 更新当前页数
           End If
       Next page
      
       If curPage < rng.Rows.Count Then ' 如果还有剩余内容，单独处理
           Set newDoc = Documents.Add
           newDoc.Range.Copy rng.Cells(curPage + 1, 1)
       End If
       MsgBox "文档已成功拆分!"
   End Sub

4. **运行宏**：
- 按`F5`键运行宏，Word会自动为你创建一个新的文档，每一页都会独立成一个文档。