通過復(fù)制粘貼網(wǎng)絡(luò)資源得到的word文檔無用 空格 和空行很多，一一刪除非常麻煩，如果創(chuàng)建一個具有相關(guān)功能的 Word2007 宏，然后再往工具欄上添加一個按鈕，當(dāng)我們單擊工具欄中的這個按鈕時，通過執(zhí)行Word 宏 就可以實現(xiàn)一鍵刪除Word2007文檔中所有空格和空行了。
相關(guān)文章： 如何快速清楚Word2007中的空行
先啟動Word2007（其他版本操作類似），然后關(guān)閉默認(rèn)打開的Word文檔，再單擊“工具-宏- Visual Basic 編輯器”命令，調(diào)出“Visual Basic編輯器”，在“Visual Basic編輯器”窗口中，右擊“Normal”，選擇“插入-模塊”命令，插入一個模塊。
插入一個模塊后，在“Visual Basic編輯器”右邊自動打開的窗口中輸入以下代碼：
Sub KongGe()
Dim i As Paragraph, n As Long
Application.ScreenUpdating = False
For Each i In ActiveDocument.Paragraphs
If Len(i.Range) = 1 Then
i.Range.Delete
n = n + 1
End If
Next
Application.ScreenUpdating = True
Options.AutoFormatAsYouTypeDeleteAutoSpaces = True
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = " "
.Replacement.Text = ""
.Wrap = wdFindContinue
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub
代碼輸入完畢后，退出Visual Basic編輯器，這時剛剛輸入的代碼就被自動保存了。
右擊工具欄的任意位置，在出現(xiàn)的菜單中選擇“自定義”，打開“自定義”窗口并切換到“命令”選項，選中“類別”列表框下邊的“宏”選項，這時“命令”列表框下邊就會出現(xiàn)一個名為“Normal.模塊1.KongGe”的選項，選中這個選項，按住鼠標(biāo)左鍵不放將其拖到工具欄的任意位置。
這時工具欄上就會出現(xiàn)一個名為“Normal.模塊1.KongGe”的命令按鈕，右擊這個命令按鈕，就會出現(xiàn)一個右鍵菜單，在這個右鍵菜單中我們主要進行以下操作：
1.將“命名”后邊 文本框 的內(nèi)容替換成“刪除空格和空行”。
2.執(zhí)行“更改按鈕圖像”命令，在出現(xiàn)的子菜單中選中一二自己比較喜歡的圖標(biāo)（如紅心圖標(biāo)）。
完成以上兩個步驟的操作之后，最后關(guān)閉“自定義”窗口。
至此，我們就完成了工具欄中“刪除空格和空行”按鈕的添加工作，以后需要刪除某個Word文檔中的空格和空行時，只須打開該Word文檔，再單擊工具欄中的“刪除空格和空行”按鈕，稍等片刻，Word文檔中的空格和空行就被全部刪除了。
小提示：當(dāng)我們將一個網(wǎng)頁另存為一個文本文件并將文本文件中的所有內(nèi)容復(fù)制到Word2007中進行編輯時，由于空行產(chǎn)生的復(fù)雜性（并不一定是回車下產(chǎn)生的空行），單擊“刪除空格和空行”按鈕可能一次不能刪除全部空行，這時，再單擊一次這個按鈕，就能全部刪除了。另外錄入并應(yīng)用這個宏的時候請調(diào)整你的Word宏安全設(shè)置。
作者：電腦報
相關(guān)閱讀