怎样将一个word文档分成几个文档(怎么把word文档分成多个文档)

咔片PPT · AI自动生成演示文稿，模板丰富、排版精美讯飞智文 · 一键生成PPT和Word，高效应对学习与办公

内容导航：

怎样将一个word文档分成几个文档
怎么把word文档分成多个文档
如何将word文档按分页符分成几个文档

一、怎样将一个word文档分成几个文档

页数少的话可通过删除另存的方法实现：

比如说30页的文档要分成3个10页的文档：首先打开文件，删除后20页后另存文件1；然后再次打开原始文档，分别删除前10页和后10页另存文件2；再次打开原始文档，删除前20页后另存文件3.这样，一个30页的文档就分成了3个10页的文档。这种方法适合页面比较少的情况，特别适合分开文档页面不均等的情况。

如果页数非常多，并且要求分开文档页数固定，可以用宏来实现，参考以下代码：

Sub SplitEveryFivePagesAsDocuments()
Dim oSrcDoc As Document, oNewDoc As Document
Dim strSrcName As String, strNewName As String
Dim oRange As Range
Dim nIndex As Integer, nSubIndex As Integer, nTotalPages As Integer, nBound As Integer
Dim fso As Object

Const nSteps = 5 ' 修改这里控制每隔几页分割一次

Set fso = CreateObject("Scripting.FileSystemObject")
Set oSrcDoc = ActiveDocument
Set oRange = oSrcDoc.Content

nTotalPages = ActiveDocument.Content.Information(wdNumberOfPagesInDocument)
oRange.Collapse wdCollapseStart
oRange.Select
For nIndex = 1 To nTotalPages Step nSteps
Set oNewDoc = Documents.Add
If nIndex + nSteps > nTotalPages Then
nBound = nTotalPages
Else
nBound = nIndex + nSteps - 1
End If
For nSubIndex = nIndex To nBound
oSrcDoc.Activate
oSrcDoc.Bookmarks("page").Range.Copy
oSrcDoc.Windows(1).Activate
Application.Browser.Target = wdBrowsePage
Application.Browser.Next

oNewDoc.Activate
oNewDoc.Windows(1).Selection.Paste
Next nSubIndex
strSrcName = oSrcDoc.FullName
strNewName = fso.BuildPath(fso.GetParentFolderName(strSrcName), _
fso.GetBaseName(strSrcName) & "_" & (nIndex nSteps + 1) & "." & fso.GetExtensionName(strSrcName))
oNewDoc.SaveAs strNewName
oNewDoc.Close False
Next nIndex
Set oNewDoc = Nothing
Set oRange = Nothing
Set oSrcDoc = Nothing
Set fso = Nothing
MsgBox "结束！"
End Sub

二、怎么把word文档分成多个文档

双击打开需要把内容拆分成多个文档的word文档。
请点击输入图片描述
打开文档后，选择视菜单，在下面选择大纲视图命令。
请点击输入图片描述
然后，选定需要转成单个文档的内容首行，在正文文本中选为1级，把需要转成单个文档内容的首行均按此方法选择为1级。
请点击输入图片描述
选为1级后，可以看到这部分内空的左上角会有一个十字符号，单击每一行前面的十字符号以选定这个部分内容，然后单击主控文档，在下面的显示文档里选择创建。
请点击输入图片描述
选择创建后，最后单击文档左上角的保存图标即可。
请点击输入图片描述
保存后，可以看到刚才打开的那个文档内容按需要拆分成了多个独立文档。
请点击输入图片描述