求教 docx 如何按页切分成多个 docx 文件啊？

V2EX = way to explore

V2EX 是一个关于分享和探索的地方

现在注册

已注册用户请登录

• 请不要在回答技术问题时复制粘贴 AI 生成的内容

这是一个创建于 171 天前的主题，其中的信息可能已经有所发展或是发生改变。

问了 gpt 。只会让用 python-docx ，但是用这个包切出来都是缺失格式的，图片跟表格都丢了，而且分不了页，用了下 aspose 的包，确实可以不丢格式，但是那是商用的。大家有知道的吗

21 条回复 • 2024-07-03 18:49:05 +08:00

whatv3

171 天前

用 word 里的 vbs 宏，之前写过一个脚本帮助专利同事自动把文档分割成专利五书...

qazzz

171 天前

不知道，但是 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 ，以此类推。