Wordで空の段落をすべて削除するにはどうすればよいですか？

Author Sun Last modified 2025-08-26

Word文書内の空の段落は、見た目を乱雑で非専門的に見せることがあります。これらの不要な空白は、フォーマットの問題や他のソースからテキストをコピーした際に頻繁に現れます。各空の段落を手動で削除するのは特に長い文書では面倒です。幸いなことに、文書からすべての空の段落を迅速に削除する効率的な方法があります。

このチュートリアルでは、Wordでこれらの空の段落を排除し、文書をよりクリーンで読みやすくする方法をご紹介します。

検索と置換機能を使用してすべての空の段落を削除

Kutools for Wordを使用してすべての空の段落を削除

VBAを使用してすべての空の段落を削除

Wordのおすすめ生産性ツール

Kutools for Word: AI 🤖を統合し、100以上の高度な機能で文書処理時間を50%節約。無料ダウンロード

Office Tab: ブラウザのようなタブをWord（およびその他のOfficeツール）に導入し、複数の文書操作を簡素化。無料ダウンロード

検索と置換機能を使用してすべての空の段落を削除

空の段落を一つずつ削除するのは面倒ですが、Wordの「検索と置換」機能がこのプロセスを簡素化します：

ホーム > 置換をクリックして「検索と置換」ツールを開くか、Ctrl + H を押してショートカットとして使用します。
「詳細設定>>」ボタンをクリックして追加オプションを表示します。
「検索する文字列」フィールドにカーソルを置き、特殊なドロップダウンメニューから「段落記号」を選択します。
「段落記号」を選択すると、「^p」という記号が「検索する文字列」フィールドに表示されます。
「^p」をもう一度「検索する文字列」フィールドにコピーして「^p^p」とし、「すべて置換」をクリックして空の段落を削除します。

注意: 「^p」を使用すると、すべての段落記号が削除され、テキストが1つの段落に統合される可能性があります。「^p^p」は空の段落のみを削除し、テキストは適切に分離されたままです。

Office Tab: Word、Excel、PowerPointにタブインターフェースを提供します。

Navigate through documents using Office Tab

今すぐワークフローを強化しましょう。Office Tabについてさらに詳しく 無料ダウンロード

Kutools for Wordを使用してすべての空の段落を削除

Wordの組み込み機能を使用してすべての空の段落を削除するには複数のステップが必要で、マクロは多くのユーザーにとって複雑すぎる場合があります。幸いにも、Kutools for Wordは文書からすべての空の段落を簡単に削除する方法を提供します。

Kutools for Word、AI 🤖を搭載し、100 以上の便利な機能を提供して作業を簡素化します。

今すぐダウンロード

空の段落を削除するには：

文書全体から削除する場合： Kutools > 段落 > 選択範囲のすべての空の段落記号を削除 をクリックします。
特定のセクションから削除する場合：まずセクションを選択し、次に Kutools > 段落 > 選択範囲のすべての空の段落記号を削除 をクリックします。

「空の段落記号を削除」をクリックすると、選択範囲または文書全体からすべての空の段落が削除されます。

Document with empty paragraphs

Document with empty paragraphs removed

Kutools for Word は、作業を効率化し、文書処理スキルを向上させる究極の Word アドインです。今すぐ入手してください！

VBAを使用してすべての空の段落を削除

マクロを使用することを好む場合、次のVBAコードはWord文書内のすべての空の段落を削除するのに役立ちます。以下の手順に従ってください：

Alt + F11 を押して Microsoft Visual Basic for Applications ウィンドウを開きます。
挿入タブの モジュール をクリックします。

次のVBAコードを モジュール ウィンドウにコピーして貼り付けます。

Sub Deleemptyparagraphs()
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "^p^p"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = False
.MatchFuzzy = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub