有時候需要將一個word文檔每一頁另存為一個word文檔，如果手工操作，量大會累死人的。今天我們用VBA來實現(xiàn)批量自動處理。在文檔的ThisDocument的代碼頁中輸入以下代碼，然后執(zhí)行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
'文檔視圖設(shè)定為頁面方式
ActiveWindow.View.Type = wdPageView
myDoc.Repaginate
'獲得文檔頁數(shù)并賦值給變量 PageNo
PageNo = myDoc.BuiltInDocumentProperties(wdPropertyPages)
For i = 1 To PageNo
myDoc.Activate
' 光標移動到文檔某一頁的開始
Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Name:=i
' 全選文檔某一頁的所有內(nè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
相關(guān)閱讀