Wordで全てのセクション区切りを削除するにはどうすればよいですか？

Author: Sun Last Modified: 2025-05-23

Wordのセクション区切りは、文書内のフォーマットを変更するのに役立ちます。例えば、縦向きと横向きの間で切り替えたり、余白を調整したりすることができます。

セクション区切りを挿入するのは簡単ですが、長い文書からそれらを削除するのはより難しい場合があります。もし文書を整理するためにすべてのセクション区切りを削除したい場合、このチュートリアルでは効率的にWordからセクション区切りを削除するためのヒントやテクニックを提供します。

手動で1つのセクション区切りを削除する
Kutools for Wordを使用してワンクリックですべてのセクション区切りを削除する
検索と置換機能を使用してすべてのセクション区切りを削除する
VBAを使用してすべてのセクション区切りを削除する

Wordで手動で1つのセクション区切りを削除する

この方法では、Word文書内のすべての段落記号や隠しフォーマット記号を表示し、指定されたセクション区切りを簡単に手動で削除できるようにします。以下の手順に従ってください：

クリック ホーム > (表示/非表示編集記号）を押して、文書内のすべての段落記号と隠しフォーマット記号を表示します。
削除したいセクション区切りの直前にカーソルを置き、Deleteキーを押してそれを削除します。
追加のセクション区切りを削除するには、ステップ2を繰り返すだけです。

Kutools for Wordを使用してすべてのセクション区切りを削除する

Wordでセクション区切りを手動で削除するのは、特に長い文書の場合、面倒な作業です。Kutools for Wordの「セクション区切りを削除」機能を使えば、現在の文書全体または特定の選択範囲内のすべてのセクション区切りをワンクリックで迅速に削除できます。

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

今すぐダウンロード

特定の範囲内のセクション区切りを削除するには、その範囲を選択し、Kutools > 改ページ > 選択範囲のすべてのセクション区切りを削除 をクリックします。
文書全体のセクション区切りを削除するには、何も選択せずに Kutools > 改ページ > 選択範囲のすべてのセクション区切りを削除 をクリックします。

Wordの検索と置換機能を使用してすべてのセクション区切りを削除する

また、Wordの検索と置換機能を使用して、現在のWord文書からすべてのセクション区切りを削除することもできます。次の手順に従ってください：

ホーム > 置換（または Ctrl + H キーを同時に押す）をクリックして、「検索と置換」ダイアログボックスを開きます。
「 検索と置換 」ダイアログボックスで：
1. 「検索内容」ボックスに ^b と入力します。
2. 「置換」ボックスは空のままにします。
3. 「すべて置換」ボタンをクリックします。
Microsoft Wordのダイアログボックスがポップアップ表示され、削除されたセクション区切りの数が表示されます。「OK」ボタンをクリックして閉じます。
「検索と置換」ダイアログボックスを閉じます。

これで、現在の文書からすべてのセクション区切りが削除されました。

VBAを使用してすべてのセクション区切りを削除する

Word文書からすべてのセクション区切りを迅速に削除したい場合、VBAを使用すると、検索と置換機能よりも効率的なオプションとなります。これを実行するには、次の手順に従ってください：

Alt + F11 を押して Microsoft Visual Basic for Applications ウィンドウを開きます。

クリック挿入 > モジュールをクリックし、次のVBAコードをモジュールウィンドウに貼り付けます：

Sub DeleSectionBreaks()
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "^b"
.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