Word ですべてのインデントを削除するにはどうすればよいですか？

著者Amanda Li変更日2025-01-20

Word 文書では、可読性と構造を高めるためにインデントがよく使われます。ただし、より均一な見た目に整えたり、文書を再フォーマットしたりする際には、すべてのインデントを削除する必要がある場合もあります。

本チュートリアルでは、Word 文書からすべてのインデントを削除する手順をわかりやすく解説し、フォーマット作業を効率化するお手伝いをします。

すべてのインデントを削除（ページレイアウト）で
段落機能ですべてのインデントを削除
便利なツールですべてのインデントを削除
VBA ですべてのインデントを削除

（ページレイアウト）ですべてのインデントを削除

Word のページレイアウト設定を調整すれば、選択した段落や文書全体からすべてのインデントを素早く削除できます。

注：この方法では、スペースやタブによる字下げ（インデント）は削除できません。その場合は、VBAまたはKutools for Wordをご検討ください。

字下げを削除したい段落を選択してください。文書全体からすべてのインデントを一括で削除するには、Ctrl + Aを押して全文を選択します。
段落グループ（)レイアウトタブ内）で、次の操作を行ってください。
1. 左 Leftボックスに0を入力して、Enterキーを押してください。
2. 右 Rightボックスに0を入力して、Enterキーを押してください。

これですべてのインデント（スペースまたはタブ文字で作成された字下げを除く）が削除されました。

段落機能ですべてのインデントを削除

Word の段落機能を使えば、選択した段落の左右インデントを瞬時に削除できます。以下の手順に従って、効率よくインデントを解除しましょう！

注：この方法では、スペースまたはタブ文字で作成された字下げ（インデント）は削除できません。このような場合は、VBAまたはKutools for Wordをご検討ください。

字下げを削除したい段落を選択し、右クリックしてコンテキストメニューから段落を選択します。
段落ダイアログボックスで：
1. 0 を左のLeftフィールドと右のRightフィールドの両方にそれぞれ入力します。
2. (なし)をSpecialドロップダウンリストから選択してください。
3. OKボタンをクリックしてください。

すべてのインデント（スペースまたはタブで作成された字下げを除く）が即座に削除されます。

すべてのインデントを削除（Kutools for Word 使用）

Word ですべてのインデントを削除するのは難しい場合があります。なぜなら、書式設定機能ではスペースやタブ文字で作成された字下げを削除できず、VBA による方法はあまりに複雑だからです。そんなときに最も便利な解決策は、Kutools for Wordを使ってワンクリックですべてのインデントを一括削除することです。

文書からすべてのインデントを一括削除するには、Kutools > インデント > すべてのインデントを削除をクリックしてください。あらゆる種類のインデントが即座にクリアされます。

ヒント：Kutools for Word のインデントの削除機能を使えば、スペース／タブによるインデント、字下げ、左インデント、右インデントなど、任意の種類のインデントをワンクリックで削除することもできます。

Word で同じ作業をもっとスピーディーにこなしたいですか？ぜひKutools for Word をお試しください。日々の業務がぐっとラクに。

ダウンロード詳細はこちら

Office Tab

Word、Excel、PowerPoint などにタブ付きナビゲーションを実装し、ウェブブラウザのように1 つのウィンドウでスムーズに切り替えられます。

無料ダウンロード詳細を見る

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