word怎么按页数拆分文档

1、首先，如果word文档没有的页数比较少，如图所示，只有三页，我们可以直接新建新的文档，同时粘贴复制一页的内容，从而形成按页数区分的文档。

2、其次，如果文档页数较多，那么挨个复制粘贴就会很麻烦，这时候我们需要用到VBA编辑器。首先打开我们要划分的文件，点击左上角的文件，点击选项，进入word选项模块。

3、然后选择自定义功能区里面的开发工具，选中并且返回文档。可以看到文档页面功能栏出现开发工具选项，点击该选项，然后再点击Visual Basic。最后点击插入选项中的模块选项。

4、最后在显示的空白框中输入OptionExplicitSubSplitPagesAsDocuments()DimoSrcDocAsDocument,oNewDocAsDocumentDimstrSrcNameAsString,strNewNameAsStringDimoRangeAsRangeDimnIndexAsIntegerDimfsoAsObjectSetfso=CreateObject("Scripting.FileSystemObject")SetoSrcDoc=ActiveDocumentSetoRange=oSrcDoc.ContentoRange.CollapsewdCollapseStartoRange.SelectFornIndex=1ToActiveDocument.Content.Information(wdNumberOfPagesInDocument)oSrcDoc.Bookmarks("\page").Range.CopyoSrcDoc.Windows(1).ActivateApplication.Browser.Target=wdBrowsePageApplication.Browser.NextstrSrcName=oSrcDoc.FullNamestrNewName=fso.BuildPath(fso.GetParentFolderName(strSrcName),_fso.GetBaseName(strSrcName)&"_"&nIndex&"."&fso.GetExtensionName(strSrcName))SetoNewDoc=Documents.AddSelection.PasteoNewDoc.SaveAsstrNewNameoNewDoc.CloseFalseNextSetoNewDoc=NothingSetoRange=NothingSetoSrcDoc=NothingSetfso=NothingMsgBox"结束！"EndSub输入完成后点击F5，可以看到完成提示框，表示着文档最终分割完成。