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