如何将一个word按页分成多个

 时间:2024-10-12 08:45:10

1、第一步:举例,准备一个要分割的word文档;如图:

如何将一个word按页分成多个

3、第三步:点击插入——模块,如图:

如何将一个word按页分成多个

4、第四步:输入下面代码:Option ExplicitSub SplitEveryFivePagesAsDocuments()Dim oSrcDoc As Document, oNewDoc As DocumentDim strSrcName As String, strNewName As StringDim oRange As RangeDim nIndex As Integer, nSubIndex As Integer, nTotalPages As Integer, nBound As IntegerDim fso As ObjectConst nSteps = 1 ' 修改这里控制每隔几页分割一次Set fso = CreateObject("Scripting.FileSystemObject")Set oSrcDoc = ActiveDocumentSet oRange = oSrcDoc.ContentnTotalPages = ActiveDocument.Content.Information(wdNumberOfPagesInDocument)oRange.Collapse wdCollapseStartoRange.SelectFor nIndex = 1 To nTotalPages Step nStepsSet oNewDoc = Documents.AddIf nIndex + nSteps > nTotalPages ThennBound = nTotalPagesElsenBound = nIndex + nSteps - 1End IfFor nSubIndex = nIndex To nBoundoSrcDoc.ActivateoSrcDoc.Bookmarks("\page").Range.CopyoSrcDoc.Windows(1).ActivateApplication.Browser.Target = wdBrowsePageApplication.Browser.NextoNewDoc.ActivateoNewDoc.Windows(1).Selection.PasteNext nSubIndexstrSrcName = oSrcDoc.FullNamestrNewName = fso.BuildPath(fso.GetParentFolderName(strSrcName), _fso.GetBaseName(strSrcName) & "_" & (nIndex \ nSteps + 1) & "." & fso.GetExtensionName(strSrcName))oNewDoc.SaveAs strNewNameoNewDoc.Close FalseNext nIndexSet oNewDoc = NothingSet oRange = NothingSet oSrcDoc = NothingSet fso = NothingMsgBox "结束!"End Sub

如何将一个word按页分成多个
  • word文档如何拆分出多个文档?
  • 把一个word文档拆分为多个文档
  • 如何把word文档里的页面拆分成每页单独的文档
  • 如何将一个word文档按页分割成多个word文档?
  • Word如何拆分文档?
  • 热门搜索
    家庭出身怎么写 脸上长癣起皮怎么办 鲜花怎么养时间比较久 香椿芽的储存方法 兔子怎么做好吃 饺子馅怎么做好吃 貔貅开光方法 马蹄怎么做好吃 文献检索方法 个人简历怎么制作