在Word文檔中,有時會出現一些多余的空白段落。這樣的空白段
在Word文檔中,有時會出現一些多余的空白段落。這樣的空白段落的典型特征是其只有一個硬回車,在對文檔編輯時可以通過使用“Delete”依次刪除這些硬回車來刪除這樣的空白段落。實際上,通過編寫簡單的VBA代碼可以快速實現對這類空白段落的刪除,具體的方法就是在代碼中對所有段落進行判斷,判斷其長度是否為1,如果是就刪除該段落。下面介紹快速刪除Word 2013文檔段落中的硬回車的具體**作方法。
1、啟動Word 2013并打開需要處理的文檔,該文檔中存在多余的空白段落,如圖1所示。
圖1 需要處理的文檔
2、按“Alt+F11”鍵打開Visual Basic編輯器,在“工程資源管理器”窗格中右擊需要處理文檔所對應的工程,在打開的快捷菜單中選擇“插入”|“模塊”命令,如圖2所示。
圖2 選擇“模塊”命令
3、此時將插入一個模塊,在該模塊的代碼窗口中輸入程序代碼,如圖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”鍵執行該過程,文檔中的空白段落被直接刪除,如圖4所示。
圖4 文檔中的空白段落被刪除
本文已經收錄至:《Office 2013應用技巧實例大全》 – Office2013高級應用篇
本文由蘇櫻網絡轉載而成,如有侵權 請聯系站長刪除
原創文章,作者:蘇櫻,如若轉載,請注明出處:http://www.uuuxu.com/20220505304239.html