怎么把word文档一个分成两个文档 例如有三十页 分成各十五页的两个文档

发布网友 发布时间：2022-04-24 19:07

我来回答

共5个回答

热心网友 时间：2023-10-05 06:02

可以这样，删除后面的15页后另存为前15页为一个文档，然后再打开原始文档，删除前15页再另存后15页为另一个文档。

也可以分别复制前后15页到新的文件里；

你这个要求相对简单，如果页数非常多，可用宏来解决，参考以下代码：

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

热心网友 时间：2023-10-05 06:02

先保存文档后，删除前面15页所有内容，另存为——取名——保存。打开原文档，删除后15后的所有内容，保存即可。

热心网友 时间：2023-10-05 06:02

一楼正解

热心网友 时间：2023-10-05 06:03

把后面的5页内容，选中
剪切，然后新建空白word文档，把刚才的内容粘贴到这个空白文件中，保存。这样就弄成2个文件了。

热心网友 时间：2023-10-05 06:04

就只有直接删除了