有時(shí)候需要將一個(gè)word文檔每一頁(yè)另存為一個(gè)word文檔，如果手工操作，量大會(huì)累死人的。今天我們用VBA來(lái)實(shí)現(xiàn)批量自動(dòng)處理。在文檔的ThisDocument的代碼頁(yè)中輸入以下代碼，然后執(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è)定為頁(yè)面方式
ActiveWindow.View.Type = wdPageView
myDoc.Repaginate
'獲得文檔頁(yè)數(shù)并賦值給變量 PageNo
PageNo = myDoc.BuiltInDocumentProperties(wdPropertyPages)
For i = 1 To PageNo
myDoc.Activate
' 光標(biāo)移動(dòng)到文檔某一頁(yè)的開(kāi)始
Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Name:=i
' 全選文檔某一頁(yè)的所有內(nèi)容
Selection.EndKey Unit:=wdStory, Extend:=wdExtend
sPage = Selection.Text
'保存到一個(gè)文件中
Set aDoc = Documents.Add
aDoc.Content.Text = sPage
aDoc.SaveAs FileName:="c:\" & CInt(i) & ".doc"
aDoc.Close
Next
End Sub
相關(guān)閱讀