尋寶園

Word 如何快速刪除空白行？

使用前請存檔。

按Alt +F11 開啟 Visual Basic編輯器，粘貼下面程式碼(以下語法刪除空白行)。

Sub 刪除空白行()
Dim i As Paragraph, n As Integer
Application.ScreenUpdating = False
For Each i In ActiveDocument.Paragraphs
If Len(i.Range) = 1 Then
i.Range.Delete
n = n + 1
End If
Next
MsgBox "共刪除空白段落" & n & "個"
Application.ScreenUpdating = True
End Sub

刪除前：

刪除後：

1. 檢視(V) → 專案總管(P)

2. 選擇 「Project」下的「 ThisDocument」

3. 檢視(V) → 程式碼(C)

4. 右邊彈出程式碼的視窗

5. 粘貼程式碼

6. 檔案(F) → 文件1(S) ，也就是你現在開啟的 Word 文件名稱

7. 檔案(F) → 關閉並回到Microsoft Word(C)

8. 回到 Word 編輯區，開啟含有空一行的文件後，工具(T) → 巨集(M) → 巨集(M)...

9. 選擇刪除空白行的巨集，按下 執行(R)

10. 彈出對話框，提示總共刪除了多少段落，按 確定

Word 怎麼刪除空白行？，╔ 請參考此篇 ╗

喵喵尋寶園

Word 2003 - 問題篇

Word 2003 - 教學篇