如何去掉word中的大量空格(word文件中空格太多怎麼快速消除)

利用word 設定巨集一鍵刪除Word2007中的空格、空行

相信大家經常在使用 word 的時候會遇到複製貼上,結果貼上過來的文字之間經常有著許多空格,這無疑很麻煩要通過自己一個一個的刪除,效率很低,現在小編推薦給大家一個方法,設定好了可以快速的刪除空格(小編親身體驗,非常不錯)

先啟動Word2007(其他版本操作類似),開啟 word 選項裡面的開發工具那個選項,如圖所示

然後關閉預設開啟的Word文件,再單擊“工具-巨集-Visual Basic編輯器”命令,調出“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編輯器,這時剛剛輸入的程式碼就被自動儲存了。

右擊工具欄的任意位置,在出現的選單中選擇“自定義”,開啟“自定義”視窗並切換到“命令”選項,選中“類別”列表框下邊的“巨集”選項,

這時“命令”列表框下邊就會出現一個名為“Normal.模組1.KongGe”的選項,選中這個選項,按住滑鼠左鍵不放將其拖到工具欄的任意位置。

這時工具欄上就會出現一個名為“Normal.模組1.KongGe”的命令按鈕,右擊這個命令按鈕,就會出現一個右鍵選單,在這個右鍵選單中我們主要進行以下操作:

  1. 將“命名”後邊文字框的內容替換成“刪除空格和空行”。2.執行“更改按鈕影象”命令,在出現的子選單中選中一二自己比較喜歡的圖示(如紅心圖示)。

  2. 完成以上兩個步驟的操作之後,最後關閉“自定義”視窗。

至此,我們就完成了工具欄中“刪除空格和空行”按鈕的新增工作,以後需要刪除某個Word文件中的空格和空行時,只須開啟該Word文件,再單擊工具欄中的“刪除空格和空行”按鈕,稍等片刻,Word文件中的空格和空行就被全部刪除了。

Tips:當我們將一個網頁另存為一個文字檔案並將文字檔案中的所有內容複製到Word2007中進行編輯時,由於空行產生的複雜性(並不一定是回車下產生的空行),單擊“刪除空格和空行”按鈕可能一次不能刪除全部空行,這時,再單擊一次這個按鈕,就能全部刪除了。另外錄入並應用這個巨集的時候請調整你的Word巨集安全設定


希望能夠幫助到大家在平時的辦公或學習,喜歡的話請支援一下,O(∩_∩)O謝謝