实用批量指定页数合并和分割按word.doc

批量指定页数合并和分割word如何把一个word多页文档拆分为单页或多页1、在Word里面打开那个需要分割的文档（假设它的文件名叫做“原始文档.doc”）；2、键入ALT+F11打开VBA编辑器，选择菜单“插入-模块”；3、粘贴下面的代码：Option ExplicitSub 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