利用VBA代碼提取Word文檔的最后一頁

由于某些原因，經常需要對頁數不固定的文檔進行特殊處理，領導的要求是只提取最后一頁，如果每次都是手工操作，顯然既麻煩而且又容易出錯。其實，我們可以利用VBA代碼解決這一問題：

按下“Alt+F11”組合鍵，打開Microsoft Visual Basic for Applications編輯器窗口，依次選擇“插入→模塊”，在右側窗格插入一個空白模塊，如圖2所示，手工輸入或粘貼如下代碼：

Sub保留最后一頁（ ?）

Dim Pages As Long

With ActiveDocument

Pages = .ComputeStatistics（wdStatisticPages）

.SaveAs filename：=.Path & "＼最后一頁-" & .Name '改名存盤

.Range（0， .Range（0， 0）.GoTo（wdGoToPage， wdGoToAbsolute， Pages）.Start）.Delete ?'刪除內容，如果只有一頁也不影響

.Close True ?'當前文檔已變為另存后的文檔，保存修改

End With

End Sub

上述代碼中的代碼名“保留最后一頁”可以任意命名，“.SaveAs filename：=.Path & "＼最后一頁-" & .Name”是提取最后一頁的文檔命名格式，可以根據實際情況進行設置，“'”后面的內容是對相應代碼的解釋，對代碼的運行沒有任何影響。代碼檢查沒有錯誤之后，依次選擇“文件→關閉并返回到Microsoft Word”命令，或者按下“Alt+Q”組合鍵，返回Word主界面，按下“Alt+F8”組合鍵，打開“宏”對話框，選擇并運行宏，雖然沒有任何提示，但Word會在后臺自動完成源文檔最后一頁的提取、保存，最后一頁會在文件名前面加上“最后一頁-源文檔文件名”的格式進行保存，我們只需要進入當前文件夾查看即可，最終效果如圖2所示。