如何在 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 左侧和右侧的输入框中均输入 0.
2. 在特殊下拉列表中选择（无）选项。
3. 单击确定按钮，即可完成操作。

所有缩进（不包括由空格或制表符形成的首行缩进）都将被立即移除。

清除所有缩进配合 Kutools for Word 使用

在 Word 中移除所有缩进较为复杂，因为格式化功能无法去除由空格或制表符生成的首行缩进，VBA 方法又较为专业。最便捷的解决方案是使用 Kutools for Word，让您一键清除所有缩进，轻松省心。

Kutools for Word，搭载 AI 功能🤖，提供超过 100 项实用功能，助您轻松完成各类任务。

立即下载

如需在文档中清除所有缩进，请点击 Kutools> 缩进> 清除所有缩进。所有类型的缩进将被立即去除。

提示：Kutools for Word 的“移除缩进”功能还支持您一键移除各种类型的缩进，比如空格/制表符缩进、首行缩进、左缩进或右缩进。

Kutools for Word 是终极的 Word 插件，能够简化您的工作流程并提升文档处理效率。立即获取！

Office Tab：为 Word、Excel、PowerPoint 带来标签式界面……

立即提升您的工作流程。 了解更多 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