如何在 Word 中刪除所有縮進？

Author: Amanda Li Last Modified: 2025-05-13

縮進通常用於 Word 文檔中以提高可讀性和結構性。然而，有時候您可能需要刪除所有縮進，以創建更統一的外觀或重新格式化文檔。

在本教程中，我們將引導您完成在 Word 文檔中刪除所有縮進的步驟，幫助您簡化格式化過程。

使用佈局（頁面佈局）刪除所有縮進
使用段落功能刪除所有縮進
使用便捷工具刪除所有縮進
使用 VBA 刪除所有縮進

使用佈局（頁面佈局）刪除所有縮進

您可以通過調整 Word 中的頁面佈局設置，快速從選定的段落或整個文檔中刪除所有縮進。

注意：此方法無法刪除由空格或製表符創建的首行縮進。對於這種情況，請考慮使用 VBA 或 Kutools for Word。

選擇要刪除縮進的段落。如果要從整個文檔中刪除所有縮進，請按 Ctrl + A 選擇所有內容。
在段落組中的佈局標籤下，執行以下操作：
1. 在左側框中輸入 0 並按 Enter。
2. 在右側框中輸入 0 並按 Enter。

現在，所有縮進（由空格或製表符創建的首行縮進除外）都已刪除。

使用段落功能刪除所有縮進

使用 Word 中的段落功能，您可以快速從選定的段落中刪除所有左側和右側縮進。按照以下步驟高效地刪除縮進。

注意：此方法不會刪除使用空格或製表符創建的首行縮進。對於這種情況，請考慮使用 VBA 或 Kutools for Word。

選擇要刪除縮進的段落，右鍵單擊，然後從上下文菜單中選擇段落。
在段落對話框中：
1. 在左側和右側字段中輸入 0。
2. 從特殊下拉列表中選擇（無）。
3. 點擊確定按鈕。

所有縮進（由空格或製表符創建的首行縮進除外）將立即被刪除。

使用 Kutools for Word 刪除所有縮進

在 Word 中刪除所有縮進可能會很困難，因為格式功能無法刪除由空格或製表符創建的首行縮進，而 VBA 方法可能過於複雜。最方便的解決方案是使用 Kutools for Word，它允許您單擊一下即可刪除所有縮進。

Kutools for Word，內建人工智慧 ?，提供超過 100 種實用功能，簡化您的工作流程。

立即下載

要從文檔中刪除所有縮進，請點擊 Kutools > 縮進 > 清除所有縮進。所有類型的縮進將立即被刪除。

提示：Kutools for Word 的清除縮進功能還允許您只需單擊一下即可刪除特定類型的縮進，例如空格/製表符縮進、首行縮進、左縮進或右縮進。

Kutools for Word 是終極的 Word 增益工具，能夠簡化您的工作並提升文檔處理技能。立即獲取！

Office Tab：為 Word、Excel、PowerPoint... 帶來分頁介面

Navigate through documents using Office Tab

立即提升您的工作流程。了解更多關於 Office Tab 的資訊 免費下載

使用 VBA 刪除所有縮進

如果您熟悉宏，可以使用 VBA 代碼輕鬆地從選定部分或整個 Word 文檔中刪除所有縮進。請按照以下步驟操作：

選擇要刪除所有縮進的段落或整個文檔。

按 Alt + F11 打開 VBA 窗口。然後，點擊插入 > 模塊創建一個新模塊窗口，並將以下代碼粘貼到窗口中：

Sub remove_indents()
With Selection.ParagraphFormat
.CharacterUnitLeftIndent = 0
.CharacterUnitRightIndent = 0
.CharacterUnitFirstLineIndent = 0
.LeftIndent = CentimetersToPoints(0)
.RightIndent = CentimetersToPoints(0)
.FirstLineIndent = CentimetersToPoints(0)
End With
End Sub
Sub remove_all_the_first_line_indent_spaces()
Dim i As Paragraph, n As Long
Application.ScreenUpdating = False 'close screen and refresh
For Each i In ActiveDocument.Paragraphs 'cycling in the paragraphs of the active document
For n = 1 To i.Range.Characters.Count
If i.Range.Characters(1).Text = " " Or i.Range.Characters(1).Text = "　" Or i.Range.Characters(1).Text = Chr(9) Then
i.Range.Characters(1).Delete
Else: Exit For
End If
Next n
Next
Application.ScreenUpdating = True 'restore screen and refresh
End Sub
Sub remove_all_indents()
remove_indents
remove_all_the_first_line_indent_spaces
End Sub