`
wjc_3306
  • 浏览: 30415 次
  • 性别: Icon_minigender_1
  • 来自: 山西
社区版块
存档分类
最新评论

一个word分成多个word

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

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

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.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

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

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

相关推荐

    VBA代码把一个多页的word拆分成任意页数的多个文档

    VBA代码把一个多页的word拆分成任意页数的多个文档,可直接粘贴运行。

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

    将一个Word文档按页分割成多个Word文档是许多办公场景中常见的需求,特别是在处理大量页面且需要按页分类存档的情况下。本文将详细介绍如何通过VBA(Visual Basic for Applications)代码实现这一功能,帮助读者理解...

    nodejs通过关键词分割word批量生成多个word文件

    通过nodejs 和第三方类库批量分割word文件为多个word文件

    word转html(支持doc和docx)以及word分割成同一格式多个word文件

    针对标题和描述中提到的"word转html(支持doc和docx)以及word分割成同一格式多个word文件",我们可以深入探讨一下相关的知识点。 首先,我们要了解的是Apache POI库。Apache POI是一个流行的Java API,专门用于...

    (完整word版)WORD操作题练习.pdf

    摘要:本文档是一份 WORD 操作题练习 PDF 文件,内容包括设置标题、替换文字、设置字体、缩进、分栏、添加页码等多个操作题目,以及计算机病毒的由来、发展和影响等相关知识点。 一、WORD 操作题 1. 设置标题:将...

    Word让同一个页面平均分成两份来打印后从中间对折裁剪.docx

    当遇到这种情况,可以使用Word中的“拼页”功能来实现将一个页面平均分成两半,分别输入内容,然后打印并从中间对折裁剪。下面将详细介绍这个过程。 1. **输入内容**: 首先,打开Word文档,在页面的上半部分和下...

    word2pdf且拆分-1.0.4.zip

    描述中提到,“根据指定页眉批量将word拆分成pdf”,这是一个高级功能,特别是对于处理多部分文档或章节分明的大型文档非常有用。例如,如果你有一个Word文档,每个章节的页眉都有不同的编号(如1,2,3),这个工具...

    java OpenOffice wordExcel转换PDF

    OpenOffice提供了一个称为UNO(Universal Network Objects)的接口,允许其他程序与OpenOffice进行交互,执行诸如读取、写入和转换文档等操作。 在Java中,我们可以使用JODConverter库来调用OpenOffice的UNO接口,...

    Word实用小技巧-很实用的小技巧

    【Word实用小技巧】 在日常办公中,Word是不可或缺的文档处理工具,掌握一些实用小技巧...这些技巧涵盖了Word的页面格式调整、文档编辑、效率提升、安全性设置等多个方面,熟练运用将极大提升Word操作的便利性和效率。

    教你立刻学会word文档

    **Word文档**是Microsoft Office套件中的一个重要组件,主要用于文字处理与排版工作。它提供了丰富的文本编辑、格式化和排版功能,广泛应用于办公、学习等多个领域。本文将详细介绍如何快速掌握Word文档的基本操作...

    Word2021:拆分单元格的两种技巧.docx

    拆分单元格可以将一个大单元格分割成多个小单元格,从而实现表格中的数据组织和排版。在本文中,我们将详细介绍拆分单元格的两种方法,帮助用户更好地掌握 Word2021 的表格编辑功能。 拆分单元格的重要性 在 Word...

    多个文件合并为一个文件并将文件拆分开来

    本文将详细探讨“多个文件合并为一个文件”以及“文件拆分”的概念、方法和应用场景。 首先,让我们理解什么是“合并文件”。在计算机操作中,合并文件指的是将两个或更多个独立的文件整合成一个单一的文件。这种...

    WORD使用技巧

    这种方法适用于原本分成多个表格的数据需要整合到一起的情况。 #### 二、文本格式调整技巧 1. **大小写转换**: - 快捷键:`Shift + F3` - 操作方法:选中需要转换格式的文字,按下`Shift + F3`组合键,即可快速...

    Word2021表格怎么绘制斜线表头及样式.docx

    斜线表头是指在表格的表头中,将一个单元格分成两个或多个部分,每个部分可以输入不同的标题信息。这种方式可以帮助用户更好地组织和展示表格数据,提高数据的可读性和可理解性。 在Word2021文档表格中,绘制斜线...

    word2vec-google-news-300.zip.006

    Word2Vec 模型word2vec-google-news-300。在 Google News 数据集上训练完成的 Word2Vec 模型,覆盖了大约 300 万的词汇和短语。该模型是利用了整个 Google News 大约 1000 亿...由于文件太大,将压缩包分成了10个部分。

    gsm.rar_Word for Word

    3. **时分多址(TDMA)**:在每个频道内,GSM进一步将时间划分为多个时隙,每个时隙可以由一个用户独占,允许在同一个频道上同时传输多个通话。 4. **SIM卡**:GSM系统中的用户识别模块(Subscriber Identity ...

    colums-set.rar_Word for Word

    在Word文档中,列是一种布局方式,它可以将文本分成多个并排的部分,每个部分称为一列。这种布局常见于报纸、杂志和报告中,以便更好地呈现信息,提高阅读体验。 二、设置列的操作步骤 1. 打开Word 2007文档,选择...

    Word2021中分节符删除的操作方法.docx

    Word 2021 中的分节符是将文档分成多个部分,并有不同的页面设置。然而,在某些情况下,我们可能不再需要这些分节符了,这时我们就需要删除它们。删除分节符的操作方法非常简单,但是在删除之前,我们需要了解分节符...

    last_word_lenth.zip_Last Word

    这个函数会根据指定的分隔符(默认为空格)将字符串切分成多个部分,并返回一个列表。获取最后一个单词的长度,我们可以这样做: ```python def last_word_length(s): words = s.split() return len(words[-1]) ...

Global site tag (gtag.js) - Google Analytics