1、啟動(dòng)Word 2013 并打開需要處理的文檔，該文檔中存在多余的空白段落，如圖1所示。
圖1 需要處理的文檔
2、按“Alt+F11”鍵打開Visual Basic編輯器，在“工程資源管理器”窗格中右擊需要處理文檔所對(duì)應(yīng)的工程，在打開的快捷菜單中選擇“插入”|“模塊”命令，如圖2所示。
圖2 選擇“模塊”命令
3、此時(shí)將插入一個(gè)模塊，在該模塊的代碼窗口中輸入程序代碼，如圖3所示。具體的程序代碼如下。
圖3 在“代碼”窗口中輸入程序代碼
01 Sub Del()
02 Dim temp As Paragraph
03 For Each temp In ActiveDocument.Paragraphs
04 If VBA.Len(temp.Range)=1 Then
05 temp.Range.Delete
06 End If
07 Next
08 End Sub
4、按“F5”鍵執(zhí)行該過(guò)程，文檔中的空白段落被直接刪除，如圖4所示。
圖4 文檔中的空白段落被刪除