欧美精品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://www.uuuxu.com/20220505304239.html

主站蜘蛛池模板: 黄大仙区| 翁牛特旗| 博爱县| 鸡东县| 冕宁县| 华阴市| 绥德县| 福清市| 宁晋县| 太谷县| 邳州市| 大埔县| 平遥县| 嘉定区| 枝江市| 阳西县| 丹江口市| 商南县| 澜沧| 岱山县| 镇坪县| 新安县| 龙游县| 浪卡子县| 泸西县| 金塔县| 营口市| 景谷| 康保县| 西昌市| 江源县| 通榆县| 积石山| 嘉善县| 芦溪县| 宜兰县| 和平县| 永济市| 柘城县| 许昌市| 曲松县|