用宏刪除Word文檔內(nèi)的回車符

南非村長

有時候在編輯寫作的文章中會把平時網(wǎng)上聊天時有趣的記錄復(fù)制下來，但是因?yàn)楦袷絾栴}經(jīng)常會看到Word文檔里密密麻麻的回車符，不但看起來很別扭，而且一行一行地刪又特別費(fèi)力。不過我們可以用宏命令將這些回車符一次性去掉。

在Word文檔中切換到視圖頁面，點(diǎn)擊最左側(cè)的“宏”。在彈出的窗口內(nèi)輸入一個名字，比如刪除回車之類的，然后點(diǎn)擊“創(chuàng)建”（圖1）。

彈出Visual Basic for Applicatioms界面。右鍵單擊左側(cè)欄“Proiect（文檔1）→Microsoft Werd對象”，選擇“插入”中的“模塊”（圖2）。

此時在右側(cè)欄中輸入以下內(nèi)容（圖3）：

Sub Del（）

Dim temp As Parag raph

For Each temp In ActiveDocume nt.Paragraphs

If VBA.Len（temp.Range）=1 Then

temp.Range.Delete

End lf

Next

End Sub

輸入完成后關(guān)閉窗口，回到Word界面，再次點(diǎn)擊“宏”彈出窗口，選中建立的宏命令，點(diǎn)擊“運(yùn)行”，瞬間所有單獨(dú)的回車段落都被刪除了，這樣可以省很多麻煩（圖4）。