一、如何将word文档按页码拆分
请参考我回答其它朋友的方案：http://zhidao.baidu.com/question/118581756.html
不过那个是按单页拆分的。如果想按照指定页数拆分，请使用下面的代码，其它步骤和原来那个方案相同。
Option Explicit
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 = 200 ' 修改这里控制每隔几页分割一次
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文件是什么样的，如果word是由图形、图片、表格、文字等各种元素组成的，并且有复杂的格式设置（图表组合、页面设置等等），你若简单地各页复制另存，就会造成版面变化甚至内容丢失。要想保持各页面中内容和排版不变，你可以在每页的最后插入分节符（也就是在下一页的第一个字符前插入分节符），然后将文件另存为新文件，在新文件中找出要保留的页面，将其余的页都删掉。重复以上操作以保存每一页文件。
如果文件页数很多，上述方法很繁琐，你可以采用软件转化的方法，简单介绍如下：
1、先把word转换为pdf文件；
2、用工具把pdf文件按每页拆分成多个独立的PDF文件（有很多工具，如pdfspme_win就很好）；
3、用转化工具把拆分的pdf文件在转回word文件（有很多工具，如SolidConverterPDF），这样目的就达到了。
至于word与pdf如何转化，方法很多，此处略掉，你可以百度一下。
你要问为什么要转化到pdf再转回来，因为只有转到pdf才能保证你的各个页面排版不会变化，通过这样的方法你可以得到与原始word文件完全一致的单页文件。当然你也可以借助于office中的虚拟打印机同样可以达到目的。
三、word如何将一页分成左右两部分
Word分栏设置方法如下:
1、如果你需要给整篇文档分栏，那么先选中所有文字；若只需要给某段落进行分栏，那么就单独的选择那个段落；
2、单击进入“页面布局”选项卡，然后在“页面设置”选项组中单击“分栏”按钮，在分栏列表中可以看到有一栏、二栏、三栏、偏左、偏右和“更多分栏”；这里可以根据自己想要的栏数来选择合适的。
3、任意设置多栏
如果想要分栏中的数目还不是自己想要的可以单击进入“更多分栏”，在弹出的“分栏”窗口里面的“栏数”后面设定数目，最高上限为11，看需求设置。
4、分栏加分隔线
如果想要在分栏的效果中加上“分隔线”，可以在“分栏”窗口中勾选“分隔线”确定即可。
