一、如何将word文档分页保存
用虚拟打印机打成jpg的，就是一页一页保存了，Zan Image Printer 电驴下。
批量命名使用 Total Commander
Total Commander 最强的文件更名器了,用起来很顺手，设置>选项>操作>鼠标使用右键选择（像 NC 一样）:
1)任一窗口打开要更名的目录，
按Ctrl+B，列出所有文件，
按Ctrl+A，选中所有文件，或者点右键选择所需文件，
按Ctrl+M，弹出重命名界面，文件名输入框中，输入新文件名格式，有很多参数、插件可供使用。
2)文件名：[N][C]
[ ]代表变量，[ 用 [ [ ] 表示，] 用[ ] ] (右侧无空格)表示，其余字符原样输出。
除常用变量外，可以通过插件获得丰富变量：如图片、音乐、office文档……的信息。
[N]代表原文件名。
[N1-3]代表取原文件名的左起第1位到第3位。
[C]为计数器，代表数字，右侧定义计数器参数。
扩展名：[E]
[E]代表文件扩展名
3)替换文件名中字符
复制要替换的字符到搜索字符串，填写替换字符到替换为；
如果替换为不填写，即删除字符，
搜索、替换支持正则表达式。
4)根据TXT格式的文件列表来重命名文件
大写小写旁边有列表样子的按钮，点击,选第一个“导入文件名（从文本文件）”……，行数匹配就才可重命名。
5)文件列表操作
拖动文件，来调整次序,
删除文件，按Delete键。
6)保存设置
按F2，下拉列表中>保存设置>填入名称>确定，下次按F2，在下拉列表中选中名称，可调用参数。
7)更名
预览合意，按<开始>按钮，完成更名。
8)撤销
调出重命名界面，按<撤销>按钮，撤销上次更名，注意只能撤销一次。
------------------------------------------------------------------------------------------
将Word分页保存俺不知道。
二、如何将多页的word文档
页数比较少的话，可以利用删除另存的方法来实现；
页数多的话可以利用宏来实现，参考以下代码：
Sub SplitEveryOnePagesAsDocuments()
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 = 1 ' 修改这里控制每隔几页分割一次
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
