4.Word 2016快速刪除文檔段落中的硬回車的方法

1.啓動Word 2016並打開需要處理的文檔，該文檔中存在多餘的空白段落，如圖1所示。

2.按“Alt+F11”鍵打開Visual Basic編輯器，在“工程資源管理器”窗格中右擊需要處理文檔所對應的工程，在打開的快捷菜單中選擇“插入”|“模塊”命令，如圖2所示。

3.此時將插入一個模塊，在該模塊的代碼窗口中輸入程序代碼，如圖3所示。具體的程序代碼如下。

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”鍵執行該過程，文檔中的空白段落被直接刪除，如圖4所示。