将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