作者：乔山办公网日期：
返回目录：word文档
一、首先，打开word2010程序，然后打开要拆分成多个小文档来的Word文档。
二、然后，源在Word程序主界面上方点击“大纲”，点击打开。
三、然后，在文档中依次选择需要拆分的文件标题，并且设置大纲级别为1级。
四、然后，选择需要拆分的标题前面的“+”，点击“显示文档”，选择“创建”。
五、然后，将其他的子文档同上操zhidao作。
六、然后，点击“执行文件”选择“保存命令”，即可保存子文档。
七、最后，可以看到word文档分成多个小的文档，问题解决。
1、在Word里面打开那个需要分割的文档（假设它的文件名叫做“原始文档.doc”）；
键入ALT+F11打开VBA编辑器，选择菜单“插入-模块”；
粘贴下面的代码：
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运行，看到“完成！”结束。
2、检查当前文档所在路径下是否生成若干名为“原始文档_n.doc”（n代表其对应原始文档中的第几页）的文档，检查它们的内容是否就对应于原始文档每个页面的内容。
如文档中有分节符分解后的文档会出现空白页，如要分解后不出现空白页，需要把文档中的分节符删除。消除分节符的方法：
注意事项
分节符若全部替换，要注e799bee5baa6e79fa5e98193e78988e69d83337意替换后文档可能会出现排版混乱，这则需要自己手动排版了。
合键ctrl+A,全选文档，组合键ctrl+shift+>可以逐渐的放zd大字体，组合键ctrl+shift+<可以逐渐的缩小字体，将鼠标按住滑块别动word就会自动显示页数，一边用快捷键调整字体大小，版一边注意页码的变化，这样很快就可以调整到适权当的页数。我在打印文档的时候经常使用的。。
1、首先，打开来word2010程序，然后打开要拆分成几个小文档的word文档。
2、单击Word程序主屏幕顶部源的“大纲”，然后单击将其打开。
3、选择要在文档百中按顺序拆分的文件标题，并将大纲级别设置为级别1。
4、然后，度选择要拆分的标题前面的""，单击"显示文档"，然后选择"创建"。
5、然后，上面提到的其他子文知档同样操作。
6、单击“执行文件”，选择“保存命令”保存子文档。
7、可以看到文档被分成几个小文档，问题就解决道了。