close
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. 彈出對話框,提示總共刪除了多少段落,按 確定
文章標籤
全站熱搜
留言列表