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

    展开全文
  • 方法:1、打开word文档,选中“视图”-“大纲视图”;2、将需要拆分的标题选中设置级别;...5、点击主控文档选项中的“创建”来拆分文档;...将一个word文档拆分多个文档1、新建一篇示例文档,添加...

    方法:1、打开word文档,选中“视图”-“大纲视图”;2、将需要拆分的标题选中设置级别;3、分别点击各部分前面的“加号”;4、点击“显示文档”,显示出主控文档选项;5、点击主控文档选项中的“创建”来拆分文档;6、点击保存即可。

    7dbc11076895341fa6af0891a3894dd3.png

    本教程操作环境:windows7系统,Microsoft Office word2019版本,Dell G3电脑。

    将一个word文档拆分成多个文档

    1、新建一篇示例文档,添加分部内容,下面的示例将按内容中各条将文档拆分成相应的部分。

    fd0f56d91edb6c89138e95cc520392a7.png

    2、选中视图选项,可以看到当前文档视图方式为页面视图

    78264e305bd5e4228c54f07c679b6ed2.png

    3、将文档从默认的页面视图转换为大纲视图。

    f81b40fb5904a68b379774818c60b3a3.png

    c3a99d29c41896197a609a7bf303322f.png

    4、将需要拆分的标题选中设置级别

    32385a468a7a5c8bdcf6e705d50f62b0.png

    5、点击第一部分前面的“加号”,选中第一部分

    0fbd4a4051b62ebfc3b2e10897b80c7b.png

    6、点击“显示文档”,显示出主控文档选项

    9fbfa867e861fb3e2ee47de349eaf353.png

    7f7c092af7623c9aed7fc3ea621664a6.png

    7、点击主控文档选项中的“创建”然后重复同样的方法,对第二部分、第三部分.....第五部分进行创建,创建完成后,每一部分都有一个框,效果如下图所示。

    f75995fd76393d8c34fb0abc343d8c5d.png

    8、然后点击保存,即可将文档按照设定内容拆分成了五个部分。

    b1e55c631030e54817af409784bb512a.png

    9、拆分好的部分就可以分配给不同的人员进行相应的处理了。

    推荐教程:《Word教程》

    展开全文
  • 工作中,有时候碰到需要将一个比较大的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文档每一页拆分成单独的文件

    万次阅读 2016-07-14 15:06:46
    二、指定页拆分 不过那个是按单页拆分的。如果想按照指定页数拆分,请使用下面的代码,其它步骤和原来那个方案相同。 Option Explicit Sub SplitEveryFivePagesAsDocuments() Dim ...
    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



    二、指定页拆分

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

    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

    第二种方法
    Option Explicit
     Sub SaveParagraph()
     Dim i As Integer, PageNo As Integer
     Dim aDoc As Document
     Dim myDoc As Document
     Dim sPage As String

    Set myDoc = ThisDocument
    '文 档 视 图 设 定 为 页 面 方 式
    ActiveWindow.View.Type = wdPageView
     myDoc.Repaginate

     '获 得 文 档 页 数 并 赋 值 给 变 量 PageNo
     PageNo = myDoc.BuiltInDocumentProperties(wdPropertyPages)
    For i = 1 To PageNo
     myDoc.Activate
     ' 光 标 移 动 到 文 档 某一 页 的 开 始
    Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Name:=i
     ' 全 选 文 档某一 页 的 所 有 内 容
    Selection.EndKey Unit:=wdStory, Extend:=wdExtend
     sPage = Selection.Text
     '保存到一个文件中
    Set aDoc = Documents.Add
     aDoc.Content.Text = sPage
     aDoc.SaveAs FileName:="c:\" & CInt(i) & ".doc"
     aDoc.Close
     Next


    其它方法

     

    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

    Sub SaveAsFileByPage()
     

    Dim objShell As Object, objFolder As Object, strNameLenth As Integer
     
    Dim mySelection As Selection, myFolder As String, myArray() As String
     
    Dim ThisDoc As Document, myDoc As Document, strName As String, N As Integer
     
    Dim myRange As Range, PageString As String, pgOrientation As WdOrientation
     
    Dim sinLeft As Single, sinRight As Single, sinTop As Single, sinBottom As Single
     
    Dim ErrChar() As Variant, oChar As Variant, sinStart As Single, sinEnd As Single
     
    Const myMsgTitle As String = "豆芽网"
     
    Dim vbYN As VbMsgBoxResult
     
    sinStart = Timer
     
    On Error GoTo ErrHandle
     
    'get path startpoint
    Set objShell = CreateObject("Shell.Application")
     
    Set objFolder = objShell.BrowseForFolder(0, "请选择一个文件夹", 0, 0)
     
    If objFolder Is Nothing Then Exit Sub
     
    myFolder = objFolder.Self.Path & "\"
     
    Set objFolder = Nothing: Set objShell = Nothing
     
    'get path endpoint

    Set ThisDoc = ActiveDocument
     
    Set mySelection = ThisDoc.ActiveWindow.Selection
     
    '===========
    ErrChar = Array("\", "/", ":", "*", "?", """", "<", ">", "|")
     
    For N = 0 To 31
     
    ReDim Preserve ErrChar(UBound(ErrChar) + 1)
     
    ErrChar(UBound(ErrChar)) = Chr(N)
     
    Next

    '=============== the above code fillin Array ErrChar with space


     
    strNameLenth = Val(VBA.InputBox(prompt:="请输入您需要设置的文件名长度,0或者取消将自动命名!", Title:=myMsgTitle, Default:=10))
     
    If strNameLenth > 255 Then strNameLenth = 0
     
    '====the above to get filename limits

    vbYN = MsgBox("是否需要处理页尾的分隔符(分页符/分节符)?它可能会影响文档结构.", vbYesNo + vbInformation + vbDefaultButton2, myMsgTitle)
     
    Application.ScreenUpdating = False
     
    '=============================
    For N = 1 To mySelection.Information(wdNumberOfPagesInDocument)
     

    '------- the above is to go through all pages

    mySelection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Name:=N
     
    Set myRange = ThisDoc.Bookmarks("\PAGE").Range

    '--------------
     
    If vbYN = vbYes And VBA.Asc(myRange.Characters.Last.Text) = 12 Then myRange.SetRange myRange.Start, myRange.End - 1

    '------------------------------- the above is to treat division marker
    myArray = VBA.Split(myRange.Text, Chr(13))
     
    PageString = VBA.Join(myArray, "")
    '--------to use space marker replace paragraph marker
     
    With myRange.Sections(1).PageSetup
     
    sinLeft = .LeftMargin
     
    sinRight = .RightMargin
     
    sinTop = .TopMargin
     
    sinBottom = .BottomMargin
     
    pgOrientation = .Orientation
     
    End With

    '----------the above is to redefine page layout
     
    For Each oChar In ErrChar
     
    PageString = VBA.Replace(PageString, oChar, "")
     
    Next
    '------------- the above is to replace errchar in pagestring with space marker
     
    If strNameLenth = 0 Then
     
    strName = ThisDoc.Name
     
    strName = VBA.Replace(LCase(strName), ".doc", "")

    'the above is to replace filename extension with space
     
    strName = strName & "_" & N
     
    Else
     
    strName = VBA.Left(PageString, strNameLenth)
     
    End If

    'the above is a filename pretreatment. use  block-if-code to response inputbox decision at front part.
     
    strName = strName & ".doc"
    '---- the above is to build up filename to saveas
    '=== in face from Set myRange = ThisDoc.Bookmarks("\PAGE").Range to here is all pretreatment
     
    myRange.Copy
     
    '-------------
    Set myDoc = Documents.Add(Visible:=False)
     
    With myDoc
     
    .Content.Paste
     
    .Content.Paragraphs.Last.Range.Delete
     

    '-------------
     
     
    With .PageSetup
     
    .Orientation = pgOrientation
     
    .LeftMargin = sinLeft
     
    .RightMargin = sinRight
     
    .TopMargin = sinTop
     
    .BottomMargin = sinBottom
     
    End With
    '----------------------

     
    If VBA.Dir(myFolder & strName, vbDirectory) <> "" Then strName = "Page_" & N & ".doc"


    '-------------- the above is to avoid filename exist
     
    .SaveAs myFolder & strName
     
    .Close
     
    End With

    '--------------
     
    Next

    ' this next is to go through all paragraphs


     
    ThisDoc.Characters(1).Copy
     
    Application.ScreenUpdating = True
     
    sinEnd = Timer
     
    'If MsgBox("分页保存结束,用时:" & sinEnd - sinStart & "秒,是否打开指定文件夹查看分页保存后的文档情况?", vbYesNo, myMsgTitle) = vbYes Then ThisDoc.FollowHyperlink myFolder
     
    Exit Sub
     
    ErrHandle:
     
    MsgBox "错误号:" & Err.Number & vbLf & "出错原因:" & Err.Description, myMsgTitle
     
    Err.Clear
     
    Application.ScreenUpdating = True
     
    End Sub
    展开全文
  • 如何将一个word文档分割多个word文档,很有参考价值
  • 打开文档。 快捷键Alt + F11打开VBA编辑器,选择菜单“插入->模块” 粘贴代码 Option Explicit Sub SplitEveryFivePagesAsDocuments() Dim oSrcDoc As Document, oNewDoc As Document Dim strSrcName As ...
  • 这时候,我们可能需要对文档前期的结构进行拆分,将一个文档拆分成多个分发给个人。当所有人完成编辑任务以后,我们可能还需要将所有人的文档全部合并到一个文档中,对其进行重新整理。那么,我们应该如何进行拆分...
  • 例如,您可能需要为Word文档中的个页面,个部分或页面集合创建一个单独的文档。为了自动进行文档拆分,本文介绍了如何使用Java以编程方式拆分MS 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, ...
  • 要将word文档每页单独保存为一个word文档,首先需要能够逐页遍历word文档。 逐页遍历word文档可以使用word的定位功能。 代码如下: Sub SplitToOnePage() Const wdNumberOfPagesInDocument = 4 Const ...
  • 1. 把要拆分文档放入文件夹中,然后打开要拆分文档。 2. 直接按快捷键Alt + F11打开VBA编辑器,选择菜单“插入->模块” 3.粘贴下面的代码(没有错误,已验证) Option Explicit Sub ...
  • C# 合并及拆分Word文档

    千次阅读 2016-08-03 09:48:53
    C# 合并及拆分Word文档 本文简要分析一下如何...在Word中,合并或拆分文档最简单的方式就是打开一个原文档的副本文件,复制我们需要的部分,删除不需要的部分,然后再保存文档。使用这种方法在文档比较多或者比较大
  • Word邮件合并后不能导出单个的文档(分页的),这个VBA插件可以帮助你拆分单个Word文档,使用时需要修改部分源码,建议有编程基础的同行们使用,使用前先把信函合并至最后一步(可打印状态),序号调至第一个,然后...
  • 出于方便文档管理、存储、传输等目的,我们常会想要将某些文档拆分为多个子文档,或者将多个文档合并为一个文档。在本文中,将介绍对Word文档进行拆分、合并的方法。下面的示例中将包含以下要点: 1. 合并Word文档 ...
  • 使用VBA代码,自定义页面数拆分Word文件为多文档并指定名称保存 alt+F11打开开发选项-->选择【插入】-->【模块】-->弹出代码编辑窗口,插入下面代码,按照需要修改页数和要重命名的每个文档按顺序的...
  • 打开要处理的WORD文档,然后ALT+F8调出宏处理窗口,新输入宏名称为MyPg。点击右侧的编辑按钮,输入如下内容,完成后键盘F5即可。但完成后最后2文件也会会有问题,手动修改一下就行了。Sub MyPg() Dim oWord As ...
  • 方法一:1、复制Word中的文本内容后,粘贴到记事本(.txt格式),这一步操作是为了后续操作一行在同一个单元格内;2、接着再将记事本中的内容剪切后复制到新建的Excel表格中,并选择“数据”中的“拆分...
  • Word 利用 vba 代码实现拆分文档页数

    千次阅读 2020-09-24 23:03:29
    Word使用VBA实现拆分文档页数实现步骤: 新建一个记事本,添加以下代码 Sub 利用VBA实现Word文档的拆分() On Error Resume Next Dim doc1 As Document, newdoc As Document, a, page1%, page2%, i1%, i2%, i3%, dk...
  • 但大部分的工具都是只能提取连续的页面或将整个PDF全部拆分成单独的页面,如果我们只是需要其中的一些页面且拆分成每页单独的PDF文档又应该怎么操作呢? 首先还是打开常用的极速PDF编辑器,点击软件左上角的打开,并...
  • Word中Mail Merge功能之后,分别保存独立的word文件Sub BreakOnSection() Dim a As Excel.Application, ab As Excel.Workbook Set a = CreateObject("excel.application") Set ab = a.Workbooks.Open("D:\Book2....
  • 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文档不会...
  • VBA代码把一个word拆分成任意页数的多个文档,可直接粘贴运行。
  • word vba 按指定 拆分

    2020-10-22 08:45:26
    Option Explicit Private Sub CommandButton1_Click() Dim oSrcDoc As Document, oNewDoc As Document Dim strSrcName As String, strNewName As String Dim oRange As Range Dim nIndex As Integer, nSubIndex As ...

空空如也

空空如也

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

word每页拆分成一个文档