我們?cè)谑褂肳ord文檔中，有時(shí)會(huì)出現(xiàn)一些多余的空白段落。這樣的空白段落的典型特征是其只有一個(gè)硬回車(chē)，在對(duì)文檔編輯時(shí)可以通過(guò)使用“Delete”依次刪除這些硬回車(chē)來(lái)刪除這樣的空白段落。實(shí)際上，通過(guò)編寫(xiě)簡(jiǎn)單的VBA代碼可以快速實(shí)現(xiàn)對(duì)這類(lèi)空白段落的刪除，具體的方法就是在代碼中對(duì)所有段落進(jìn)行判斷，判斷其長(zhǎng)度是否為1，如果是就刪除該段落。下面介紹快速刪除Word 2016文檔段落中的硬回車(chē)的具體操作方法。
操作步驟
1.啟動(dòng)Word 2016并打開(kāi)需要處理的文檔，該文檔中存在多余的空白段落，如圖1所示。
Word2016/2013快速刪除文檔段落中的硬回車(chē)的方法
2.按“Alt+F11”鍵打開(kāi)Visual Basic編輯器，在“工程資源管理器”窗格中右擊需要處理文檔所對(duì)應(yīng)的工程，在打開(kāi)的快捷菜單中選擇“插入”|“模塊”命令，如圖2所示。
Word2016/2013快速刪除文檔段落中的硬回車(chē)的方法
3.此時(shí)將插入一個(gè)模塊，在該模塊的代碼窗口中輸入程序代碼，如圖3所示。具體的程序代碼如下。
Word2016/2013快速刪除文檔段落中的硬回車(chē)的方法
Sub Del()
Dim temp As Paragraph
For Each temp In ActiveDocument.Paragraphs
If VBA.Len(temp.Range)=1 Then
temp.Range.Delete
End If
Next
End Sub
4.按“F5”鍵執(zhí)行該過(guò)程，文檔中的空白段落被直接刪除，如圖4所示。
Word2016/2013快速刪除文檔段落中的硬回車(chē)的方法
