admin 管理员组

文章数量: 887021

工作中，有时候碰到需要将一个比较大的word按照指定的页数分割成若干个小的word文档，下面提供分割的方法供参考：

一、按照单页拆分

1、在Word里面打开那个需要分割的文档（假设它的文件名叫做“test.doc”）；

2、键入ALT+F11打开VBA编辑器，选择菜单“插入-模块”，或者键入ALT+F8打开宏命令窗口，或者点文档内上面的“工具”→“宏”→“宏”→找到这个宏→“运行”即可；

3、粘贴下面的代码：

Option Explicit

Sub SplitPagesAsDocuments()

Dim oSrcDoc As Document, oNewDoc As Document

Dim strSrcName As String, strNewName As String

Dim oRange As Range

Dim nIndex As Integer

Dim fso As Object

Set fso = CreateObject("Scripting.FileSystemObject")

Set oSrcDoc = ActiveDocument

Set oRange = oSrcDoc.Content

oRange.Collapse wdCollapseStart

oRange.Select

For nIndex = 1 To ActiveDocument.Content.Information(wdNumberOfPagesInDocument)

oSrcDoc.Bookmarks("\page").Range.Copy

oSrcDoc.Windows(1).Activate

Application.Br

本文标签： 多个 文档 分解 多页 python

版权声明：本文标题：python分解word文档为多个_将一个word文档按一页或多页拆分成多个文档 内容由网友自发贡献，该文观点仅代表作者本人， 转载请联系作者并注明出处：http://www.freenas.com.cn/jishu/1726312023h934579.html， 本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容，一经查实，本站将立刻删除。