由于某些原因，經(jīng)常需要對(duì)頁(yè)數(shù)不固定的文檔進(jìn)行特殊處理，領(lǐng)導(dǎo)的要求是只提取最后一頁(yè)，如果每次都是手工操作，顯然既麻煩而且又容易出錯(cuò)。其實(shí)，我們可以利用V B A代碼解決這一問(wèn)題：

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

　　Sub保留最后一頁(yè)()

　　Dim Pages As Long

　　With ActiveDocument

　　Pages=.ComputeStatistics(wdStatisticPages)

　　.SaveAs filename：=.Path & “最后一頁(yè)-” & .Name’改名存盤

　　.Range(0，.Range(0，0).GoTo(wdGoToPage，wdGoToAbsolute，Pages).

　　Start).Delete’刪除內(nèi)容，如果只有一頁(yè)也不影響

　　.Close True’當(dāng)前文檔已變?yōu)榱泶婧蟮奈臋n，保存修改

　　End With

　　End Sub

　　上述代碼中的代碼名“保留最后一頁(yè)”可以任意命名，“.SaveAsfilename：=.Path&”最后一頁(yè)-“&.Name”是提取最后一頁(yè)的文檔命名格式，可以根據(jù)實(shí)際情況進(jìn)行設(shè)置，“’”后面的內(nèi)容是對(duì)相應(yīng)代碼的解釋，對(duì)代碼的運(yùn)行沒有任何影響。代碼檢查沒有錯(cuò)誤之后，依次選擇“文件→關(guān)閉并返回到MicrosoftWord”命令，或者按下“Alt+Q”組合鍵，返回Word主界面，按下“Alt+F8”組合鍵，打開“宏”對(duì)話框，選擇并運(yùn)行宏，雖然沒有任何提示，但Word會(huì)在后臺(tái)自動(dòng)完成源文檔最后一頁(yè)的提取、保存，最后一頁(yè)會(huì)在文件名前面加上“最后一頁(yè)-源文檔文件名”的格式進(jìn)行保存，我們只需要進(jìn)入當(dāng)前文件夾查看即可。

關(guān)注讀覽天下微信， 100萬(wàn)篇深度好文， 等你來(lái)看……