为什么需要将Word每页生成单独文件？
在日常办公中，我们常常需要将一份包含多个独立内容的Word文档（如合同合集、试卷、报告册等）拆分为单页文件，便于分发、归档或打印。手动复制粘贴效率低下且易出错，本文将介绍几种实用的方法。
方法一：使用“另存为”功能导出为PDF（推荐）
适用场景：将每页保存为独立的PDF文件，适合分发和打印。
- 打开你的Word文档
- 点击【文件】→【另存为】
- 选择保存位置，将“保存类型”改为 PDF (*.pdf)
- 点击【工具】→【选项】
- 勾选“创建书签时使用标题”和“逐页保存”
- 点击确定并保存
Word会自动将文档的每一页保存为一个独立的PDF文件。
方法二：使用VBA宏自动拆分
适用场景：需要拆分为独立的.docx文件，且页数较多。
- 按
Alt + F11打开VBA编辑器 - 插入新模块，粘贴以下代码：
Sub SplitWordByPage()
Dim doc As Document
Set doc = ActiveDocument
Dim i As Integer
Dim pageStart As Integer
Dim pageEnd As Integer
Application.ScreenUpdating = False
For i = 1 To doc.Range.ComputeStatistics(wdStatisticPages)
pageStart = doc.GoTo(What:=wdGoToPage, Name:=i).Start
If i = doc.Range.ComputeStatistics(wdStatisticPages) Then
pageEnd = doc.Content.End
Else
pageEnd = doc.GoTo(What:=wdGoToPage, Name:=i + 1).Start - 1
End If
With doc.Range(pageStart, pageEnd)
.Copy
Documents.Add
Selection.Paste
ActiveDocument.SaveAs2 "页面_" & i & ".docx"
ActiveDocument.Close
End With
Next i
Application.ScreenUpdating = True
MsgBox "拆分完成！"
End Sub
- 运行宏，程序会自动创建每个页面的独立文档并保存
注意：使用VBA前请先备份原始文档，并确保启用宏功能。
方法三：手动复制到新文档
对于页数较少的文档，可以直接：
- 定位到目标页首行
- 按住 Ctrl + Shift + ↓ 选中整页内容
- 复制并粘贴到新建的Word文档中
- 保存为新文件
此方法适合少量页面拆分，操作直观但效率较低。
常见问题解答
Q：拆分后格式会变化吗？
通常不会，但复杂排版建议检查输出效果。
Q：是否支持Word 2007及以上所有版本？
PDF逐页保存功能需Word 2013及以上；VBA方法兼容性更广。
Q：能否自定义输出文件名？
可以，在VBA代码中修改保存名称部分即可实现个性化命名。