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代表其对应原始文档中的第几页）的文档，检查它们的内容是否就对应于原始文档每个页面的内容。

如文档中有分节符分解后的文档会出现空白页，如要分解后不出现空白页，需要把文档中的分节符删除。

消除分节符的方法：

注意事项

分节符若全部替换，要注意替换后文档可能会出现排版混乱，这则需要自己手动排版了。