qazzz's recent timeline updates qazzz's recent timeline updates |
qazzzV2EX member #647890, joined on 2023-09-10 22:45:34 +08:00 |
| 如何评价 luma ai 视频生成的质量？ 分享发现 • qazzz • Jun 15, 2024 • Lastly replied by Tufutogo | 8 |
qazzz's recent replies
Jun 14, 2025 Replied to a topic by SaintMichel › 互联网 › 爬取小红书评论是否合法 |
但是你个人用的话一般不算违法吧，也没人管你
Jan 15, 2025 Replied to a topic by ODESZA › 生活 › 家里人被骗，但是还无法反驳 |
@explon 但是很多父母就是这样的，他们会觉得自己肯定是对的
Jul 2, 2024 Replied to a topic by 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