将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. 粘贴代码 Option Explicit Sub SplitEveryFiv ...
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 ...
[开发笔记]-C#获取pdf文档的页数
[操作pdf文档]之C#判断pdf文档的页数: /// <summary>/// 获取pdf文档的页数/// </summary>/// <param name=&quo ...
批量将一个 PPT 幻灯片文件按固定页数拆分成多个幻灯片文件
概要:对于经常写 PPT 的人来说,经常会与 PPT 幻灯片打交道.如果一个 PPT 幻灯片文件有很多页数,那么有没有办法能够将他们拆分成多个 PPT 幻灯片文件呢?这样每一个独立的 PPT 文件的页 ...
如何一次获取多个Word文档的页数
Finding out how many pages are in a Word document is really easy when the document is open. However, ...
PHP能获取word页数吗,PHP快速将WORD文档转成PDF,PHP获得文档打印页数-让我来
PHP快速将文档转成PDF并获取页数孟德 1640 2020-04-26 去年有个功能是实现html转成pdf,这个功能解决办法在: 今年是打印小程序,用户问别人都能做到?你们怎么做不到?那不是难为 ...
pdf怎么转换成word免费不限页数，可以用这两个方法。
很多人知道如何用Word转换PDF,但是不知道它也可以将PDF转换为Word.今天就把目前两种常用的PDF转Word的方法详细和大家说一下. 01 Word 转换法这是Word 2013及更高版本的 ...
pdf转word免费不限页数
作为职场新人,pdf转换软件是必备的工具.很多pdf转word软件都需要收费,让我很是惆怅.但是最近发现了一个免费pdf转word在线转换工具,转换效果不错,我之前转换了一个pdf转word,转完以后 ...

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

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

最新文章

热门文章