word怎么按页数拆分文档

戴尔电脑 灵越5000

word 2010

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

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

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

最后在显示的空白框中输入Option Explicit Sub 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     oRange.Collapse wdCollapseStart     oRange.Select     For nIndex = 1 To ActiveDocument.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))         Set oNewDoc = Documents.Add         Selection.Paste         oNewDoc.SaveAs strNewName         oNewDoc.Close False     Next     Set oNewDoc = Nothing     Set oRange = Nothing     Set oSrcDoc = Nothing     Set fso = Nothing     MsgBox '结束！' End Sub 输入完成后点击F5，可以看到完成提示框，表示着文档最终分割完成。

注意文档的页数是不是很多，不是很多的话，直接粘贴复制就可以了。

利用VBA生成的文档，排版可能会出现问题，需要自主调整。