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

已举报 回答 关注

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

  • 回答数

    4

  • 浏览数

    7,132

4个回答 默认排序
  • 默认排序
  • 按时间排序

已采纳
可以这样,删除后面的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
取消 评论
一楼正解
取消 评论
从你现有的表了提取新的表
取消 评论
在表格中要拆分的位置单击,表格菜单中,拆分表格
取消 评论
ZOL问答 > 怎么把word文档一个分成两个文档 比如有三十页 分成各十五页的两个文档

举报

感谢您为社区的和谐贡献力量请选择举报类型

举报成功

经过核实后将会做出处理
感谢您为社区和谐做出贡献

提示

确定要取消此次报名,退出该活动?