qazzz
2024-07-02 17:13:23 +08:00
不知道，但是 gpt 告诉我的：
使用宏自动拆分
以下是一个示例 VBA 宏，它可以自动将 Word 文档按页拆分为多个 .docx 文件：
打开宏编辑器：
打开你的 Word 文档。
按 Alt + F11 打开宏编辑器。
插入新模块：
在宏编辑器中，选择“插入” > “模块”，然后将以下代码粘贴到新模块中：
vba
复制代码
Sub SplitDocumentByPages()
Dim doc As Document
Dim page As Range
Dim newDoc As Document
Dim i As Integer
Dim pageNumber As Integer
Set doc = ActiveDocument
pageNumber = doc.ComputeStatistics(wdStatisticPages)
For i = 1 To pageNumber
Set page = doc.Range.GoTo(What:=wdGoToPage, Which:=wdGoToAbsolute, Count:=i)
page.End = doc.Range.GoTo(What:=wdGoToPage, Which:=wdGoToAbsolute, Count:=i + 1).Start
page.End = page.End - 1
Set newDoc = Documents.Add
newDoc.Range.FormattedText = page.FormattedText
newDoc.SaveAs2 FileName:=doc.Path & "\Page" & i & ".docx"
newDoc.Close
Next i
End Sub
运行宏：
关闭宏编辑器。
按 Alt + F8 打开宏列表。
选择 SplitDocumentByPages 并运行它。
这个宏将会自动将当前打开的 Word 文档按页拆分，并将每一页保存为一个新的 .docx 文件。这些文件将保存到与原始文档相同的文件夹中，文件名格式为 Page1.docx 、Page2.docx ，以此类推。