欧美精品123_精品露脸国产偷人在视频_日韩美女免费线视频_成人av三级

快速刪除Word 2013文檔段落中的硬回車的方法(快速刪除word表格中的文字)

在Word文檔中,有時會出現一些多余的空白段落。這樣的空白段

在Word文檔中,有時會出現一些多余的空白段落。這樣的空白段落的典型特征是其只有一個硬回車,在對文檔編輯時可以通過使用“Delete”依次刪除這些硬回車來刪除這樣的空白段落。實際上,通過編寫簡單的VBA代碼可以快速實現對這類空白段落的刪除,具體的方法就是在代碼中對所有段落進行判斷,判斷其長度是否為1,如果是就刪除該段落。下面介紹快速刪除Word 2013文檔段落中的硬回車的具體**作方法。

1、啟動Word 2013并打開需要處理的文檔,該文檔中存在多余的空白段落,如圖1所示。

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

圖1 需要處理的文檔

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

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

圖2 選擇“模塊”命令

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

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

圖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所示。

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

圖4 文檔中的空白段落被刪除

本文已經收錄至:《Office 2013應用技巧實例大全》 – Office2013高級應用篇

本文由蘇櫻網絡轉載而成,如有侵權 請聯系站長刪除

原創文章,作者:蘇櫻,如若轉載,請注明出處:http://m.uuuxu.com/20220505304239.html

主站蜘蛛池模板: 嘉善县| 沙河市| 甘肃省| 汪清县| 祁阳县| 寻甸| 虞城县| 五河县| 湖北省| 永仁县| 临沧市| 乐安县| 张家口市| 洪江市| 永修县| 沽源县| 汽车| 上思县| 寿阳县| 双鸭山市| 通河县| 金门县| 大理市| 吉木乃县| 哈密市| 沛县| 莱州市| 定边县| 永靖县| 铜鼓县| 大庆市| 绍兴市| 宁强县| 海南省| 江山市| 河曲县| 青川县| 托克逊县| 什邡市| 余庆县| 石家庄市|