将word文档按分页另存为多个word文件的VBA代码

有时候需要将一个word文档每一页另存为一个word文档，如果手工操作，量大会累死人的。今天我们用VBA来实现批量自动处理。在文档的ThisDocument的代码页中输入以下代码，然后执行Sub SaveParagraph() 即可：

Option Explicit

Sub SaveParagraph()

Dim i As Integer, PageNo As Integer
Dim aDoc As Document
Dim myDoc As Document
Dim sPage As String

Set myDoc = ThisDocument

'文档视图设定为页面方式
ActiveWindow.View.Type = wdPageView
myDoc.Repaginate

'获得文档页数并赋值给变量 PageNo
PageNo = myDoc.BuiltInDocumentProperties(wdPropertyPages)

For i = 1 To PageNo
myDoc.Activate
' 光标移动到文档某一页的开始
Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Name:=i
' 全选文档某一页的所有内容
Selection.EndKey Unit:=wdStory, Extend:=wdExtend
sPage = Selection.Text

'保存到一个文件中
Set aDoc = Documents.Add
aDoc.Content.Text = sPage
aDoc.SaveAs FileName:="c:\" & CInt(i) & ".doc"
aDoc.Close
Next

End Sub