Word如何将每一页拆分为单独文件

方法一：使用VBA宏自动拆分（推荐）

适用于Word文档页数较多的情况，通过编写VBA脚本实现自动化拆分，高效省时。

1. 打开Word文档，按 Alt + F11 打开VBA编辑器
2. 插入新模块，粘贴以下代码：

Sub SplitWordByPages()
    Dim doc As Document
    Set doc = ActiveDocument
    Dim page As Integer
    Dim totalPages As Integer
    Dim newDoc As Document
    Dim rng As Range
    Dim fileName As String
    Dim savePath As String

    savePath = doc.Path & "\SplitPages\"
    CreateFolder savePath

    totalPages = doc.Range.Information(wdNumberOfPagesInDocument)

    For page = 1 To totalPages
        Set newDoc = Documents.Add
        Set rng = doc.GoTo(What:=wdGoToPage, Count:=page)
        rng.Select
        Selection.HomeKey Unit:=wdLine
        Selection.EndKey Unit:=wdLine, Extend:=wdExtend
        Selection.Copy
        newDoc.Range.Paste
        newDoc.Range.Select

        fileName = savePath & "Page_" & Format(page, "000") & ".docx"
        newDoc.SaveAs2 fileName, wdFormatXMLDocument
        newDoc.Close
    Next page

    MsgBox "已成功拆分为 " & totalPages & " 个文件！", vbInformation
End Sub

Sub CreateFolder(path As String)
    If Dir(path, vbDirectory) = "" Then
        MkDir path
    End If
End Sub
                

3. 运行宏，程序会自动创建“SplitPages”文件夹并保存每一页为单独的.docx文件

注意：使用前请先保存并备份原始文档。部分安全设置可能需要启用宏功能。

方法二：手动复制粘贴（少量页面适用）

适用于页数较少或需要个性化处理的场景。

1. 打开Word文档，定位到需要拆分的第一页
2. 选中整页内容（可使用“选择对象”或按住Ctrl逐段选择）
3. 复制内容（Ctrl+C）
4. 新建一个Word文档，粘贴内容（Ctrl+V）
5. 保存新文档，命名为“第1页.docx”或其他有意义的名称
6. 重复以上步骤处理后续页面

常见问题

Q：拆分后格式会变化吗？
A：使用VBA方法通常能较好保留原始格式，但复杂排版（如文本框、跨页表格）可能需要手动调整。

Q：能否按章节而非页数拆分？
A：可以，通过修改VBA代码识别“标题”样式或分节符来实现按章节拆分。