如何在 Word 中清除所有縮排？

作者Amanda Li修改日期2025-01-20

在 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＞縮排＞ 清除所有縮排，所有類型的縮排將立即被移除。

提示：Kutools for Word 的移除縮排功能還能讓您一鍵移除特定類型的縮排，例如空格／定位字元縮排、首行縮排、左側縮排或右側縮排。

想在 Word 中更快速完成重複性任務嗎？試試 Kutools for Word，讓您的日常操作更輕鬆高效！

下載深入了解

Office Tab

為 Word、Excel、PowerPoint 等應用程式帶來如網頁瀏覽器般流暢的分頁式瀏覽體驗，讓您在單一視窗中輕鬆切換！

免費下載深入了解

清除所有縮進搭配 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