精华内容
下载资源
问答
  • 拆分Word页面

    2018-05-17 23:59:14
    拆分Word页面 拆分Word页面 拆分Word页面 拆分Word页面
  • word文档按页拆分若干文档

    千次阅读 2011-12-27 13:56:22
    首先打开要拆分文档,然后按alt+f11(打开vb)在这里插入,模块,然后复制下列代码: Option Explicit Sub SplitPagesAsDocuments() Dim oSrcDoc As Document, oNewDoc As Document Dim strSrcName As String, ...

    首先打开要拆分的文档,然后按alt+f11(打开vb)在这里插入,模块,然后复制下列代码:

    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

    注意:不要关闭该vb窗口,直接按f5执行就可以了。


    不过那个是按单页拆分的。如果想按照指定页数拆分,请使用下面的代码,其它步骤和原来那个方案相同。

    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 = 200         ' 修改这里控制每隔几页分割一次
       
        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 

    展开全文
  • 拆分窗口就是把一个Word2003文档窗口分成上下两个独立的窗口,从而可以通过两个Word2003文档窗口显示同一文档的不同部分。在Word2003文档中拆分窗口的步骤如下所述: 操作步骤 打开Word2003文档窗口,将插入点光标...

     

    http://www.officezu.com/word/2003/index16.html

    拆分窗口就是把一个Word2003文档窗口分成上下两个独立的窗口,从而可以通过两个Word2003文档窗口显示同一文档的不同部分。在Word2003文档中拆分窗口的步骤如下所述:

    操作步骤

    1 打开Word2003文档窗口,将插入点光标定位到需要拆分的文档中。

    2 在工菜单栏依次单击“窗口”→“拆分”菜单命令,此时在Word2003文档窗口中将显示出一条黑色粗线。该线就是拆分窗口的位置,拖动鼠标移动黑线到合适位置并单击鼠标左键,则当前文档窗口即可被分割为两个子窗口。

    Word2003文档中拆分窗口

    3 在拆分出的Word窗口中,对任何一个子窗口都可以进行独立操作,并且在其中任何一个窗口中所做的修改将立即反映到其他的拆分窗口中。如果要取消Word2003文档窗口拆分,用户可以在菜单栏依次单击“窗口”→“取消拆分”菜单命令。

    取消拆分

    小提示:如果当前Word2003文档窗口是“文档结构”视图方式,则无法进行拆分窗口的操作。

    转载于:https://www.cnblogs.com/yuhuameng/p/3735532.html

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

    工作中,有时候碰到需要将一个比较大的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、如果前后内容的页面编排方式与页眉页脚都一样,只是需要新的一页开始新的一章,那么一般用分页符即可,当然用分节符(下一页)也行。

     

    转载于:https://www.cnblogs.com/cookiewu/p/9845472.html

    展开全文
  • 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文档中审阅功能在哪腾讯视频/爱奇艺/优酷/外卖 充值4折起我们在使用word的时候,有时是需要使用到审阅功能的,那么今天小编跟大家分享下电脑word文档中审阅功能在哪。具体如下:1. 首先我们打开电脑,在桌面...
  • 使用VBA代码,自定义页面数拆分Word文件为多个小文档并指定名称保存 alt+F11打开开发选项-->选择【插入】-->【模块】-->弹出代码编辑窗口,插入下面代码,按照需要修改页数和要重命名的每个文档按顺序的...
  • 单词拆分 快速拆分单词窗口 (Quickly Split a Word Window)I've been reviewing Word documents recently, and sometimes I'm halfway down the document and have to check on something that was in an earlier ...
  • Word文档 某些快捷键

    2019-10-09 16:20:00
    创建新文档: 【Ctrl+N】...拆分文档窗口: 【Alt+Ctrl+S】 撤销拆分文档窗口: 【Alt+shift+C】 或【Alt+Ctrl+S】 在放大的预览页上移动: 箭头键(如“↑、↓、←、→”等) 在缩小显示比例时逐页翻阅预览页: 【P...
  • 计算机一级-word讲义大家来学word一、文本1. word XP的启动(1)正常... (3)通过关联文件图标:双击关联文件图标,就可打开Word XP,同时也打开对应的文档。2. 认识工作窗口 标题栏; 菜单栏 常用工具栏 格式工具栏...
  • 2006-12-01现在我想要把我正在编辑的WORD文档同时保存在不同的文件夹中,有什么方法!??比如说:别人在我的电脑编辑了一份WORD文档,然后他把文档保存在他的U盘上,在他离去后,我却能在电脑上找到他刚才编辑的文档内容.有...
  • 计算机应用基础作业二:Word2003班级: 姓名: 学号: 成绩:单项选择题(每题2.5分) 答案请写在后面答题卡上1.如果Word 2003表格中同列单元格的宽度不合适时,可以利用( )进行...如果文档很长,可采用Word提供的( ...
  • word文档快捷键

    2007-12-31 19:06:00
    类别 默认快捷键 说明 文件 Ctrl+W、Ctrl+F4 提示保存文档,然后关闭活动窗口。 Alt+F4 关闭退出文件 Ctrl+N 基于NORMAL模板新建文档 Ctrl+O、Ctrl+F12、Alt+Ctrl+F2打开已有的文档或模板 Ctrl+P、Ctrl+Shift+F12 ...
  • 简单好用的Word技巧一秒对齐文字在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文档便协操作

    2020-12-04 18:04:37
    Set oDoc = Documents.Open("C:\Users\user\Desktop\word.") '指定文件路径 For Each oTable In oDoc.Tables oTable.AutoFitBehavior (wdAutoFitWindow) '根据窗口调整内容 Next MsgBox "完成!
  • mac word 同时查看文档两个部分

    千次阅读 2016-12-04 16:08:27
    您可以Word窗口拆分为两个窗口,以便您可以同时查看文档的两个不同部分。这非常有用,例如,如果您需要在另一个工作时参考文档的一部分。 在视图(窗口)选项卡上,单击排列,,然后单击拆分。 如果窗口处于...
  • 一、建立WORD应用程序对象,新建、打开、保存WORD文档 5 1、建立对象 5 2、显示WORD窗口 5 3、新建一个WORD文档 5 (1)Count属性 5 (2)Name属性 5 4、打开一个已存在的WORD文档 5 5、激活文档,使文档成为当前...
  • 使用Word的主控文档,是制作长文档最合适的方法。主控文档包含几个独立的子文档,可以用主控文档控制整篇文章或整本书,而把书的各个章节作为主控文档的子文档
  • 1、在Word文档处右击选择“重命名”,将.docx格式更改为.rar压缩包格式; 教你好玩又高效的3个批量处理技巧 2、之后将更换格式后的文件解压,在解压后的文件夹找到“word”再打开“Media”文...
  • 方法很简单,具体如下: 1、打开“我的电脑”,双击桌面上的“我的电脑”图标。 2、单击要在其中创建新“公文包”的文件夹。 3、在“文件”菜单上,指向“新建”,然后单击“公文包”即可。 4、如果要在桌面上创建新...
  • 打开要处理的WORD文档,然后ALT+F8调出宏处理窗口,新输入宏名称为MyPg。 点击右侧的编辑按钮,输入如下内容,完成后键盘F5即可。 但完成后最后2个文件也会会有问题,手动修改一下就行了。 Sub MyPg() Dim oWord As...
  •  ①首先打开pdf分割软件,在显示的窗口中点击“添加文件”按钮,打开拆分文档,此时界面上就会显示文本上传状态;  ②其次单击软件中的“上移”、”下移“按键,编号框中的文件进行顺序调整,重复的部分可以删除...
  • 详解MFC框架窗口文档和视图

    万次阅读 2014-05-21 07:31:32
    尽管窗口、文档和视图是MFC...分两类:一是应用程序主窗口,另一类是文档窗口。 6.1.1主窗口和文档窗口 主窗口(或称主框架窗口)是应用程序直接放在桌面(DeskTop)上的那个窗 口,每个应用程序只能有一个窗口,主
  • )包含与一系列相关子文档关联的链接 (链接:将某个程序创建的信息副本插入 Microsoft Word 文档,并维护两个文件之间的连接。如果更改了源文件中的信息,则目标文档中将反应该更改。)。可以使用主控文档将长文档分成...

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 4,771
精华内容 1,908
关键字:

拆分word文档窗口的方法