如何将一个word文档按页分割成多个word文档?

工作中时常遇到,需要把一个word文件,分割成多个word文件。现在我来给大家简单的介绍一下吧。

操作方法

  • 01

    在Word里面打开那个需要分割的文档(假设它的文件名叫做“原始文档.doc”);

  • 02

    键入ALT+F11打开VBA编辑器,选择菜单“插入-模块”;

  • 03

    粘贴下面的代码: 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 Next Set oNewDoc = Nothing Set oRange = Nothing Set oSrcDoc = Nothing Set fso = Nothing MsgBox "结束!" End Sub

  • 04

    键入F5运行,看到“完成!”结束。

  • 05

    检查当前文档所在路径下是否生成若干名为“原始文档_n.doc”(n代表其对应原始文档中的第几页)的文档,检查它们的内容是否就对应于原始文档每个页面的内容。

  • 06

    如文档中有分节符分解后的文档会出现空白页,如要分解后不出现空白页,需要把文档中的分节符删除。 消除分节符的方法(如下图):

(0)

相关推荐

  • 如何将一个word文档按页分割成多个

    操作方法 01 1.在Word里面打开那个需要分割的文档(假设它的文件名叫做"原始文档.doc"):2.键入ALT+F11打开VBA编辑器,选择菜单"插入-模块" ...

  • word文档跨页表格保留表头(word表格怎么在每页的前面加表头)

    如何让 Word 里的跨页表格自动加上表头?在 Word 上精心制作重要的格表后,最怕遇到表格过大而被迫跨页,当表格被切成两半时,不管是内容.格式.样式,甚至是栏宽与列高,都担心因为跨页而被破坏:对阅 ...

  • Word的书籍折页是什么如何设置Word的书籍折页

    书籍折页是Microsoft Word中用来创建菜单、请柬、事件程序或任何其他类型的使用单独居中折页的文档功能的选项。具体在“文件”-“页面设置”对话框中的“书籍折页”。 Word设置书籍折页 以Wo ...

  • word怎么从第二页开始编页码(word设置页码从第三页开始怎么设置)

    很多小伙伴在做毕业论文和公司文件的时候,有严格的格式要求,其中最常见的一条是从正文页编码,有时候正文从第二页开始,有时候从第三页乃至第N页开始,但word默认状态,不管我们在第几页插入页码,都是从第一 ...

  • Word文档空白页删不掉(word后面有一个空白页删不掉)

    有些文档可能会因为篇幅的原因会在最后留下一个空白页,一般情况下是由于文档中有过多的段落标记(回车符),这时只需要把这些多余的段落标记删掉即可,不过如果文档末尾是表格,这种方法就没办法删除多余的空白页了 ...

  • word多余的空白页怎么删除(wps word怎么删除空白页)

    Hello大家好,我是帮帮.今天跟大家分享一下WORD常见白页问题处理,多余空白页无法删除,轻松操作解决疑题.有个好消息!为了方便大家更快的掌握技巧,寻找捷径.请大家点击文章末尾的"了解更多 ...

  • 如何计算word文档的页数

    我们使用word文档来编辑文字,其页数往往有很多,如何对word文档的页数进行计算?多文档的情况下又如何对总页数进行计算?就让小编来问你解答吧. 单篇文档页数计算 方法一: 单击审阅选择字数统计按钮, ...

  • word怎么让单页显示变成横向 word横向显示单页的方法

    word使我们常用的办公软件,word怎么让单页显示变成横向?下面小编带来word横向显示单页的方法,希望对大家有所帮助. word横向显示单页的方法: 鼠标定位到要设置为横向的页码的前一页的最后一个 ...

  • Word怎样从第二页开始插入页码

    Word编辑的时候有的时候第一页是封面,不需要页码,而需要从第二页开始插入页码,Word怎样从第二页开始插入页码,Word如何从第2页开始插入页码呢?我教大家一步步操作. Word第二页开始插入页码 ...