快速刪除Word 2013文檔段落中的硬回車的方法（快速刪除word表格空白行）

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

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

圖1　需要處理的文檔

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

圖2　選擇“模塊”命令

3、此時(shí)將插入一個(gè)模塊，在該模塊的代碼窗口中輸入程序代碼，如圖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”鍵執(zhí)行該過程，文檔中的空白段落被直接刪除，如圖4所示。

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

本文已經(jīng)收錄至：《Office 2013應(yīng)用技巧實(shí)例大全》 - Office2013高級(jí)應(yīng)用篇

版權(quán)聲明：本文內(nèi)容由網(wǎng)絡(luò)用戶投稿，版權(quán)歸原作者所有，本站不擁有其著作權(quán)，亦不承擔(dān)相應(yīng)法律責(zé)任。如果您發(fā)現(xiàn)本站中有涉嫌抄襲或描述失實(shí)的內(nèi)容，請(qǐng)聯(lián)系我們jiasou666@gmail.com 處理，核實(shí)后本網(wǎng)站將在24小時(shí)內(nèi)刪除侵權(quán)內(nèi)容。