返回目录：word文档
1、在Word里面打开那个需要分割的文档（假设它的文件名叫做“原始文档.doc”）； 键入ALT+F11打开VBA编辑器，选择菜单“插入-模块”； 粘贴下面的代码： OptionExplicit SubSplitPagesAsDocuments() DimoSrcDocAsDocument,oNewDocAsDocument DimstrSrcNameAsString,strNewNameAsString DimoRangeAsRange DimnIndexAsInteger DimfsoAsObject Setfso=CreateObject("Scripting.FileSystemObject") SetoSrcDoc=ActiveDocument SetoRange=oSrcDoc.Content oRange.CollapsewdCollapseStart oRange.Select FornIndex=1ToActiveDocument.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)) SetoNewDoc=Documents.Add Selection.Paste oNewDoc.SaveAsstrNewName oNewDoc.CloseFalse Next SetoNewDoc=Nothing SetoRange=Nothing SetoSrcDoc=Nothing Setfso=Nothing MsgBox"结束！" EndSub 键入F5运行，看到“完成！”结束。 2、检查当前文档所在路径下是否生成若干名为“原始文档_n.doc”（n代表其对应原始文档中的第几页）的文档，检查它们的内容是否就对应于原始文档每个页面的内容。 如文档中有分节符分解后的文档会出现空白页，如要分解后不出现空白页，需要把文档中的分节符删除。消除分节符的方法： 注意事项 分节符若全部替换，要注意替换后文档可能会出现排版混乱，这则需要自己手动排版了。