qazzz 最近的时间轴更新 qazzz 最近的时间轴更新 | qazzzV2EX 第 647890 号会员，加入于 2023-09-10 22:45:34 +08:00 |
| 如何评价 luma ai 视频生成的质量？ 分享发现 qazzz 2024-06-15 20:38:09 PM 最后回复来自 Tufutogo | 8 |
qazzz 最近回复了
122 天前 回复了 SaintMichel 创建的主题 互联网 爬取小红书评论是否合法 |
但是你个人用的话一般不算违法吧，也没人管你
272 天前 回复了 ODESZA 创建的主题 生活 家里人被骗，但是还无法反驳 |
@explon 但是很多父母就是这样的，他们会觉得自己肯定是对的
2024-07-02 17:13:23 +08:00 回复了 foxthree 创建的主题 程序员 求教 docx 如何按页切分成多个 docx 文件啊？ |
不知道，但是 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 ，以此类推。
使用宏自动拆分
以下是一个示例 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 ，以此类推。
Select Language