如何删除Word中的所有缩进？

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

在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，内置 AI 🤖，提供超过 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