python分解word文档为多个_如何将一个word文档按页分割成多个word文档-百度经验...

粘贴下面的代码：

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.Browser.Target = wdBrowsePage

Application.Browser.Next

strSrcName = oSrcDoc.FullName

strNewName = fso.BuildPath(fso.GetParentFolderName(strSrcName), _

fso.GetBaseName(strSrcName) & "_" & nIndex & "." & fso.GetExtensionName(strSrcName))

Set oNewDoc = Documents.Add

Selection.Paste

oNewDoc.SaveAs strNewName

oNewDoc.Close False

Set oNewDoc = Nothing

Set oRange = Nothing

Set oSrcDoc = Nothing

Set fso = Nothing

MsgBox "结束！"

End Sub

python分解word文档为多个_如何将一个word文档按页分割成多个word文档-百度经验...相关推荐

将一个PPT文档按页分割成多个PPT文档的代码
1.打开需要分割的PPT文档(假设文件名为"原始文档.ppt"): 2.键入Alt+F11切换到VBA编辑环境,然后选择菜单"插入-模块": 3.在代码编辑区粘 ...
计算机音乐谱大全西游记,(完整word版)经典歌曲曲谱大全_流行歌曲简谱合集（70页）-原创力文档...
Vl9 Vl9 35 1 6 J = 88 1=C J 上海滩乐谱整理:邱国华 (0 0 0 6?66 35| Vim 2- 22 35 I 6 ii 6i6536523113 2 2J65 . ■ ...
word 编辑过程中变为只读_职场小贴士(十一）办公软件小窍门之word篇
点击蓝字关注我们办公软件小窍门第一期 Word篇 ▶WPS Office是由金山办公软件出品的Office软件,可以实现办公软件最常用的文字.表格.演示等多种功能,办公效率要提高,巧用Offic ...
python迁移到另一台电脑上_如何将一个Jupyter笔记本导入到另一个笔记本
是的,如果你想的话,你可以把这些代码添加到笔记本上.在是的,你不应该这样做作为一个普遍的解决方案.在笔记本是一个复杂的结构,正如在文本细节中所暗示的那样(我认为它是JSON).它可以包含pytho ...
html页尾大段空白,Word表格下面有一段空白（页尾），下一页的文字跟不上来，怎么解决？...
回答: 打开Word,新建一个空白文档,点击上方选项栏"插入",选择"空白页",然后就可以了 Word常用技巧: 一.快速改变Word文档的行距选中你需要设置 ...
python分解word文档为多个_将一个word文档按一页或多页拆分成多个文档
工作中,有时候碰到需要将一个比较大的word按照指定的页数分割成若干个小的word文档,下面提供分割的方法供参考: 一.按照单页拆分 1.在Word里面打开那个需要分割的文档(假设它的文件名叫做&qu ...
python分解word文档为多个_用python批量处理word文档
应我家领导要求,开发一个word文档批处理脚本,涉及word文档.excel表格.文件存取.排序与索引.简单GUI等内容,前期针对各分项功能实现写了几篇小文章,现在将总体思路记录一下,作为这个系列的完 ...
将一个word文档按一页或多页拆分成多个文档
工作中,有时候碰到需要将一个比较大的word按照指定的页数分割成若干个小的word文档,下面提供分割的方法供参考: 一.按照单页拆分 1.在Word里面打开那个需要分割的文档(假设它的文件名叫做&qu ...
亿愿Word文档批量多语言翻译---word文档翻译专家！几十种语言随意快速互译！可以生成中外文，中英文对照内容文档！
亿愿Word文档批量多语言翻译-软件功能简介 [亿愿Word文档批量多语言翻译]采用目前最强大的.国际著名公司的谷歌翻译引擎,自动识别语言种类,把英文.日文.韩文.德文.法文.俄文等几十种外国语言的文 ...

python分解word文档为多个_如何将一个word文档按页分割成多个word文档-百度经验...

python分解word文档为多个_如何将一个word文档按页分割成多个word文档-百度经验...相关推荐

最新文章

热门文章