1、打开那个需要分割的文档

2、ALT+F11，会出现一个编辑器，然后你选择菜单“插入-模块”；

3、粘贴下面的代码：



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



4、粘好后，按F5，看到“完成！”结束

5.如文档中有分节符分解后的文档会出现空白页，删除空白页的方法

Word中如何删除空白页

这里给大家分享几种方法，可以解决不同时候遇到不同空白页问题。

方法一、多余段落标记和换行符导致
因为一些格式标记全部隐藏起来了，所以没办法看到。此时，我们应该先进入【开始】-【段落】-点击【显示/隐藏编辑标记】。点击后，我们就会看到页面上会出现各种标记，将空白页上的段落或换行符标记全部删除即可。




如何删除tortoiseSVN_换行符


方法二、分节符导致空白页
分节符导致Word中出现空白页是非常常见的现象，比如有时候我们将不同页面设置不同页眉或页码的时候，就会经常用到分节符来搞定，所以出现空白页也是无法避免的。这个时候，我们只需要【开始】-【段落】-点击【显示/隐藏编辑标记】，在页面中找到已经显示的分节符，然后将光标移动到分节符前面按下键盘上的【Delete】即可删除。


如何删除tortoiseSVN_如何删除下一页分节符_02


方法三、分页符导致空白页
使用分页符不当或过多，也会出现空白页。这里说两种方法删除，第一种就是直接和方法二删除分节符的方法一样。第二种我们可以利用查找替换删除，使用快捷键【Ctrl+H】打开查找和替换，在【查找内容】中输入【^m】点击全部替换即可。


如何删除tortoiseSVN_分页_03


方法四、上一页结尾是表格导致下一页空白页
这种情况也非常常见，而且空白页按照上面的几种方法都无法删除掉。那么你可以试试下面方法。


如何删除tortoiseSVN_Word_04