1. 程式人生 > >4.Word 2016快速刪除文檔段落中的硬回車的方法

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

資源管理器 http 空白 aaa 刪除 end size aca 過程

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所示。
技術分享圖片技術分享圖片

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