将一个word文档按页数拆分为多个文档

1. 打开文档。

2. 快捷键Alt + F11打开VBA编辑器，选择菜单“插入->模块”

3. 粘贴代码

Option Explicit

Sub SplitEveryFivePagesAsDocuments()
Dim oSrcDoc As Document, oNewDoc As Document
Dim strSrcName As String, strNewName As String
Dim oRange As Range
Dim nIndex As Integer, nSubIndex As Integer, nTotalPages As Integer, nBound As Integer
Dim fso As Object

Const nSteps = 110 ' 修改这里控制每隔几页分割一次

Set fso = CreateObject("Scripting.FileSystemObject")
Set oSrcDoc = ActiveDocument
Set oRange = oSrcDoc.Content

nTotalPages = ActiveDocument.Content.Information(wdNumberOfPagesInDocument)
oRange.Collapse wdCollapseStart
oRange.Select
For nIndex = 1 To nTotalPages Step nSteps
Set oNewDoc = Documents.Add
If nIndex + nSteps > nTotalPages Then
nBound = nTotalPages
Else
nBound = nIndex + nSteps - 1
End If
For nSubIndex = nIndex To nBound
oSrcDoc.Activate
oSrcDoc.Bookmarks("\page").Range.Copy
oSrcDoc.Windows(1).Activate
Application.Browser.Target = wdBrowsePage
Application.Browser.Next

oNewDoc.Activate
oNewDoc.Windows(1).Selection.Paste
Next nSubIndex
strSrcName = oSrcDoc.FullName
strNewName = fso.BuildPath(fso.GetParentFolderName(strSrcName), _
fso.GetBaseName(strSrcName) & "_" & (nIndex \ nSteps + 1) & "." & fso.GetExtensionName(strSrcName))
oNewDoc.SaveAs strNewName
oNewDoc.Close False
Next nIndex
Set oNewDoc = Nothing
Set oRange = Nothing
Set oSrcDoc = Nothing
Set fso = Nothing
MsgBox "结束！"
End Sub

4. 快捷键 F5 运行，直到出现“完成”表示结束。

将一个word文档按页数拆分为多个文档相关推荐

批量将一个或多个 Word 文件按固定页数拆分成多个 Word 文件
概要:我们经常面对很多 Word 文档,有些 Word 文档有几百页,有时候我们希望将这些 Word 文档都按固定的页数拆分成多个 Word 文档.有没有一种简单的方法能够批量的将这些 Word 文件 ...
将word文档按页数拆分为多个独立文档
1. 把要拆分的文档放入文件夹中,然后打开要拆分的文档. 2. 直接按快捷键Alt + F11打开VBA编辑器,选择菜单"插入->模块" 3. 粘贴下面的代码(没有错误,已验 ...
[开发笔记]-C#获取pdf文档的页数
[操作pdf文档]之C#判断pdf文档的页数: /// <summary>/// 获取pdf文档的页数/// </summary>/// <param name=&quo ...
python获取word页数_使用Python的word文档的页数(Number of pages of a word document with Python)...
使用Python的word文档的页数(Number of pages of a word document with Python) 有没有办法用Python有效地获得word文档(.doc,.doc ...
如何批量将多个 PPT 文档按指定页分别拆分成多个文档
概要:「我的ABC软件工具箱」提供了文档拆分的功能,其中就包括了 PPT 拆分成多个文件,可以根据需要指定拆分后的每个文件最多的页数,这样可以把一个文档分割成多个独立的文档.非常的方便与实用. 前面我 ...
批量将一个 PPT 幻灯片文件按固定页数拆分成多个幻灯片文件
概要:对于经常写 PPT 的人来说,经常会与 PPT 幻灯片打交道.如果一个 PPT 幻灯片文件有很多页数,那么有没有办法能够将他们拆分成多个 PPT 幻灯片文件呢?这样每一个独立的 PPT 文件的页 ...
如何批量将多个 Word 文档按指定页分别拆分成多个文档
概要:「我的ABC软件工具箱」提供了文档拆分的功能,其中就包括了 Word 拆分成多个文件,可以根据需要指定拆分后的每个文档最多的页数,这样可以把一个文档分成多个独立的文档.非常的方便与实用. Wor ...
PHP能获取word页数吗,PHP快速将WORD文档转成PDF,PHP获得文档打印页数-让我来
PHP快速将文档转成PDF并获取页数孟德 1640 2020-04-26 去年有个功能是实现html转成pdf,这个功能解决办法在: 今年是打印小程序,用户问别人都能做到?你们怎么做不到?那不是难为 ...
将一个PPT文档按页分割成多个PPT文档的代码
1.打开需要分割的PPT文档(假设文件名为"原始文档.ppt"): 2.键入Alt+F11切换到VBA编辑环境,然后选择菜单"插入-模块": 3.在代码编辑区粘 ...

将一个word文档按页数拆分为多个文档

将一个word文档按页数拆分为多个文档相关推荐

最新文章

热门文章