精华内容
下载资源
问答
  • 拆分word文档窗口的方法
    千次阅读
    2021-01-06 13:43:03

    使用VBA代码,自定义页面数拆分大Word文件为多个小文档并指定名称保存

    alt+F11打开开发选项-->选择【插入】-->【模块】-->弹出代码编辑窗口,插入下面代码,按照需要修改页数和要重命名的每个文档按顺序的名字--->按F5运行代码,文档最后就生成在当前目录下了

    在word的某些版本上可能出现格式不对,最后测试在最新的wps上跑效果最好

    Option Explicit
    Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
    Sub SplitEveryFivePagesAsDocuments()
    On Error GoTo Errorhandler
    Dim oSrcDoc As Document, oNewDoc As Document
    Dim nameArray As Variant
    
    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 = 4                          '设置多少页分割一次
    nameArray = Array("Cat", "Dog", "Rabbit") '数组内容修改为需要的命名
    
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set oSrcDoc = ActiveDocument
    Set oRange = oSrcDoc.Content
    
    nTotalPages =Val(ActiveDocument.BuiltInDocumentProperties(wdPropertyPages))
    oRange.Collapse wdCollapseStart
    oRange.Select
    For nIndex = 1 To nTotalPages Step nSteps
    
        If nIndex + nSteps > nTotalPages Then
            nBound = nTotalPages
        Else
            nBound = nIndex + nSteps - 1
        End If
    
        Set oNewDoc = Documents.Add
        For nSubIndex = nIndex To nBound
            oSrcDoc.Activate
            oSrcDoc.Bookmarks("\page").Range.Copy
            oSrcDoc.Windows(1).Activate
            Application.Browser.Target = wdBrowsePage
            Application.Browser.Next
            Sleep 10
            oNewDoc.Activate
            oNewDoc.Windows(1).Selection.Paste
            Errorhandler:
                If Err = 4605 Then
                    oNewDoc.Windows(1).Selection.Paste
                Else
                    Resume Next
                End If
        MsgBox "nSubIndex" & "_" & nSubIndex
        Next nSubIndex
        strSrcName = oSrcDoc.FullName
        strNewName = fso.BuildPath(fso.GetParentFolderName(strSrcName), _
        fso.GetBaseName(strSrcName) & "_" & nameArray(nIndex\nSteps) & "." & fso.GetExtensionName(strSrcName))
        oNewDoc.SaveAs strNewName
        oNewDoc.Close False
    
    MsgBox nameArray(nIndex\nSteps)
    Next nIndex
    Set oNewDoc = Nothing
    Set oRange = Nothing
    Set oSrcDoc = Nothing
    Set fso = Nothing
    MsgBox "结束!"
    End Sub

     

    更多相关内容
  • 工作中,有时候碰到需要将一个比较大的word按照指定的页数分割成若干个小的word文档,下面提供分割的方法供参考:一、按照单页拆分1、在Word里面打开那个需要分割的文档(假设它的文件名叫做“test.doc”);...

    工作中,有时候碰到需要将一个比较大的word按照指定的页数分割成若干个小的word文档,下面提供分割的方法供参考:

    一、按照单页拆分

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

    2、键入ALT+F11打开VBA编辑器,选择菜单“插入-模块”,或者键入ALT+F8打开宏命令窗口,或者点文档内上面的“工具”→“宏”→“宏”→找到这个宏→“运行”即可;

    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代表其对应原始文档中的第几页)的文档,检查它们的内容是否就对应于原始文档每个页面的内容。

    二、按指定页动态拆分

    上述方法是按单页拆分的,如果想按照指定页数拆分,可使用下面的代码,其它步骤和上述按单页拆分方案相同。

    代码如下:

    Option Explicit

    Sub DynamicSplitPagesAsDocuments()

    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 = 3 //这里可以指定需要拆分的页数,如这里表示按照每3页拆分成一个小文档

    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) & "." & 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

    注意:

    如文档中有分节符分解后的文档会出现空白页,如要分解后不出现空白页,需要把文档中的分节符全部删除。

    分节符若全部替换,要注意替换后文档可能会出现排版混乱,这则需要自己手动排版了。

    分节符是指为表示节的结尾插入的标记。分节符包含节的格式设置元素,如页边距、页面的方向、页眉和页脚,以及页码的顺序。分节符用一条横贯屏幕的虚双线表示。

    删除分节符的方法:

    试着按住shift键,然后点击鼠标左键,然后将显示出来的分节符删掉即可。

    分节符和分页符的区别:

    分页符只是分页,前后还是同一节;

    分节符是分节,可以同一页中不同节,也可以分节的同时下一页。

    两者用法的最大区别在于页眉页脚与页面设置,比如:

    1、文档编排中,某几页需要横排,或者需要不同的纸张、页边距等,那么将这几页单独设为一节,与前后内容不同节;

    2、文档编排中,首页、目录等的页眉页脚、页码与正文部分需要不同,那么将首页、目录等作为单独的节;

    3、如果前后内容的页面编排方式与页眉页脚都一样,只是需要新的一页开始新的一章,那么一般用分页符即可,当然用分节符(下一页)也行。

    展开全文
  • 拆分Word页面

    2018-05-17 23:59:14
    拆分Word页面 拆分Word页面 拆分Word页面 拆分Word页面
  • 一、建立WORD应用程序对象,新建、打开、保存WORD文档 5 1、建立对象 5 2、显示WORD窗口 5 3、新建一个WORD文档 5 (1)Count属性 5 (2)Name属性 5 4、打开一个已存在的WORD文档 5 5、激活文档,使文档成为当前...
  • adobe acrobat 软件阅读PDF文档,怎样实现Word中的窗口拆分功能呢? 答:打开pdf文件,找到菜单栏的窗口,选择拆分。就可以像word拆分窗口看一个文档一样的功能了。 见下图:

    adobe acrobat 软件阅读PDF文档, 怎样实现Word中的窗口拆分功能呢?

    答:打开pdf文件,找到菜单栏的窗口,选择拆分。就可以像word中拆分窗口看一个文档一样的功能了。

    见下图:

    PS:其实如果是两个屏幕的话,还有更方便的:直接点窗口>>信件窗口,就可以实现在两个窗口中对同一个文件的修改标注了,相当方便。强烈推荐试一试,试试就知道好用了,这个软件真的是走心!如下图点击“新建窗口”即可!

     

     

    展开全文
  • 如何将excel表格转换成word文档.doc 如何将excel表格转换成word文档? Excel强大的制表功能让很多办公一族都忘不了它的方便与实用。可是在一些情况下,我们必须将Excel表格转换成Word文档。当前普遍的做法是:先用...
  • word文档按页码拆分Google Docs doesn’t automatically include page numbers for your documents, but it’s easy enough to add them to your header or footer. Here’s how to get it done. Google文档不会...
    将word文档按页码拆分

    将word文档按页码拆分

    Google Docs doesn’t automatically include page numbers for your documents, but it’s easy enough to add them to your header or footer. Here’s how to get it done.

    Google文档不会自动为您的文档添加页码,但是将其添加到页眉或页脚很容易。 这是完成任务的方法。

    Note: Adding page numbers is available only for use on Docs; neither Sheets nor Slides support this feature.

    注意:添加页码仅适用于文档; 表格和幻灯片均不支持此功能。

    如何将页码添加到Google文档 (How to Add Page Numbers to Google Docs)

    Open up your document and head to Insert > Header & Page Number > Page Number. You’ll see a pop-up window where you can choose a page number style.

    打开文档,然后转到“插入”>“页眉和页码”>“页码”。 您会看到一个弹出窗口,您可以在其中选择页码样式。

    You have four options for how page numbers can appear:

    您可以使用四个选项来显示页码:

    • Add page numbers to the top-right of every page.

      在每个页面的右上角添加页码。
    • Add page numbers to top-right, starting from the second page. You will use this option if your document has a title page that you don’t want to be numbered.

      从第二页开始,在右上角添加页码。 如果您的文档具有不想被编号的标题页,则将使用此选项。
    • Add page numbers to the bottom-right of every page.

      在每个页面的右下角添加页码。
    • Add page numbers to bottom-right, starting from the second page.

      从第二页开始,在右下角添加页码。

    One caveat to Google Docs’ numbering system is that you can only ever skip the first page of a document. It doesn’t have the same kinds of options a fuller word processor like Microsoft Word provides, which lets you do things like change the numbering with each section or have odd, and even page numbers appear in different locations.

    Google Docs编号系统的一个警告是,您只能跳过文档的第一页。 它没有像Microsoft Word这样的功能更强大的文字处理器提供的相同类型的选项,它使您可以执行诸如更改每个部分的编号或使奇数甚至偶数页码出现在不同位置的操作。

    If you would rather the first page have a different number, or even add a title in the header/footer, click anywhere in the header/footer and make sure the “Different First Page” checkbox is selected. You can now replace the page number with whatever you like.

    如果您希望首页具有不同的编号,或者甚至在页眉/页脚中添加标题,请单击页眉/页脚中的任意位置,并确保选中“不同的首页”复选框。 现在,您可以将页面编号替换为所需的任何内容。

    Although Google Docs only ever adds the page number to the right side, you can override this by opening the header/footer area of a page and then clicking the “Left Align” or “Center Align” buttons on the toolbar.

    尽管Google文档仅将页码添加到右侧,但是您可以通过打开页面的页眉/页脚区域,然后单击工具栏上的“左对齐”或“居中对齐”按钮来覆盖此页码。

    翻译自: https://www.howtogeek.com/397294/how-to-add-page-numbers-to-google-docs/

    将word文档按页码拆分

    展开全文
  • 数据源为excel,word中建立表模板,利用邮件合并功能实现批量填表,利用VBA技术将填表结果分成独立的文档
  • 在制作一些综合性的表格(如简历表、考勤表等)时,...在 Word 中,拆分单元格与合并单元格都有两种方法,一种是用鼠标选择,另一种是用快捷键。前者有两处可以选择“拆分单元格与合并单元格”选项,一处是右键菜单,...
  • 电脑word文档中审阅功能在哪腾讯视频/爱奇艺/优酷/外卖 充值4折起我们在使用word的时候,有时是需要使用到审阅功能的,那么今天小编跟大家分享下电脑word文档中审阅功能在哪。具体如下:1. 首先我们打开电脑,在桌面...
  • word图流程图组合以后怎么拆分

    千次阅读 2020-12-30 23:48:53
    其实用户可以借助“组合”命令将多个独立的形状组合成一个图形对象,然后即可对这个组合后的图形对象进行移动、修改大小等操作,操作步骤如下所述:第1步,打开Word2007文档窗口,在“开始”功能区的“编辑”分组中...
  • OpenXML : C#操作word文档

    千次阅读 2019-07-22 21:27:54
    Word文档,本身就是一个压缩包,使用压缩工具打开一个Word文件,可以看到里边的文件列表如下图: OpenXML是微软官方一个开源的操作Word、Excel和PPT的SDK,用C#进行开发,使用此类库可以方便的对office这三类主要...
  • 简单好用的Word技巧一秒对齐文字在Word中如何对齐文字,我想十个人中有九个都会像三顿这样手打空格。只有短短几行倒还好说,如果是几十行甚至几百行,一定会打空格打到吐吧。标尺一秒对齐!只需要选中文字,在标尺处...
  • 拆分窗口就是把一个Word2003文档窗口分成上下两个独立的窗口,从而可以通过两个Word2003文档窗口显示同一文档的不同部分。在Word2003文档中拆分窗口的步骤如下所述: 操作步骤 打开Word2003文档窗口,将插入点光标...
  • word文档窗口可以拆分为二个文档窗口 B. 多个文档编辑工作结束后,只能一个一个地存盘或者关闭文档窗口 C. word允许同时打开多个文档进行编辑,每个文档有一个文档窗口 D.多文档窗口间的内容可以进行剪切、...
  • 2006-12-01现在我想要把我正在编辑的WORD文档同时保存在不同的文件夹中,有什么方法!??比如说:别人在我的电脑编辑了一份WORD文档,然后他把文档保存在他的U盘上,在他离去后,我却能在电脑上找到他刚才编辑的文档内容.有...
  • 1、 在Word 文档窗口中,若选定的文本块中包含有几种字体的汉字,则格式工具栏的字体框中显示 ( ).A、空白;B、第一个汉字的字体;C、系统缺省字体:宋体;D、文本块中使用最多的 文字字体.2、 在Word的编辑状态,当前文档...
  • word文档多个目录If you’re working on multiple Word documents, it may be helpful to view some or all of them at once. There are a couple of different ways you can view multiple documents and even a ...
  • 资源是一个教学文档,一步一步教你如何拆分窗体,对于新手应该有一定的帮助。
  • 信息技术word培训.doc

    2022-06-24 13:20:58
    文字处理软件WORD2003的使用 WORD基本操作 1、WORD的启动与关闭 启动:开始 程序 Microsoft Word 关闭:文件 退出、关闭按钮 2、WORD窗口的组成:标题栏、菜单栏、工具栏、文档窗口、状态栏 3、打开或关闭工具栏:...
  • 计算机应用基础——Word篇 第一章 Word2003概述 1、Office简介 2、Word2003概述 Word2003的功能和特点 Word2003的运行环境、安装和启动 3、Word2003的窗口组成和基本操作 Word2003的窗口组成 Word2003的基本操作 第...
  • 无论你需要为头脑风暴列提纲,还是起草、编辑或打印文档,《Microsoft Word》的文档视图都能为你提供相应的展示方式。下面就来看看如何设置文档视图,以适应各类任务。 熟悉布局 点按《Word》功能区的「视图」,...
  • 今天分享一个小技巧:Word和Excel的表头共享。首先来说ExcelEcel表头共享,分两个方面一、打印表格时的表头共享即一个表头,打印的时候要在每页都有表头,具体设置方法如下:页面布局→页面设置右下方的小箭头→页面...
  • 全国计算机等级考试Word试题及答案31、单击“任务栏”中的语言“指示器”可实现中/英文输入方式及各种中文输入法的切换,也可以按_____组合键来完成中/英文输入方式的切换。A、Ctrl+空格键■B、Shift+空格键C、Ctrl+...
  • Word选择题.doc

    2022-05-17 19:22:27
    Word选择题.doc
  • 不要下,只是一篇我自己的文档,网上多的是.
  • 怎么在电脑word文档中添加英文朗读功能如果我们需要朗读英文段落或者需要听英文单词发音的话,用word文档就可以做到了哦。今天小编就告诉大家怎么在电脑word文档中添加英文朗读功能。具体如下:1. 首先我们打开电脑...
  • Word 中,表格的许多操作都可以用快捷键;对整个表格来说,插入、删除、选中和拆分都可以用快捷键;对行列来说,插入、删除、移动光标、平均分布也都可以用快捷键,并且行还可以用快捷上下移动;单元格的拆分与...
  • word文档表格中间出现空白怎么解决

    千次阅读 2021-06-25 05:27:30
    话题:word文档表格中间出现空白怎么解决?回答:word和execl使用技巧在Word中我们可以把着重号请到工具栏上。打开“工具—自定义”命令选项,打开“自定义”对话框。在“命令”卡下的“类别”栏里选中“所有命令”...

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 6,004
精华内容 2,401
关键字:

拆分word文档窗口的方法