Word ですべての段組み区切りを削除するにはどうすればよいですか？

著者サン変更日2025-04-10

Word 文書で段組み区切りを1 つ削除するのは簡単ですが、長い文書に含まれるすべての段組み区切りを効率的に一括削除するのはより困難です。

長いレポートや複雑な文書を作成中でも、すべての段組み区切りを素早く削除する方法を知っていれば、大幅な時間短縮につながります。このチュートリアルでは、Word 文書内のすべての段組み区切りを削除するためのいくつかの方法をご紹介します。

段組み区切りを1 つずつ削除する

検索と置換機能ですべての段組み区切りを削除する

Kutools for Word ですべての段組み区切りを削除する

VBA を使用してすべての段組み区切りを削除する

Word 向けおすすめ生産性ツール

Kutools for Word：AI を統合🤖し、100 以上の高度な機能で文書作業時間を 50% 短縮できます。無料ダウンロード

Office Tab：Word（およびその他の Office アプリケーション）にブラウザーのようなタブを導入し、複数の文書を簡単に操作できます。無料ダウンロード

段組み区切りを1 つずつ削除する

Word で段組み区切りを手動で削除するには、次の手順に従って、1 つずつでも、一度に複数でも削除できます。

ドキュメントに段組み区切りを表示するには、「ホーム」タブの「段落記号の表示/非表示」をクリックしてください。
削除したい段組み区切りの前にカーソルを置きます。

ヒント：複数の段組み区切りを削除するには、Ctrlキーを押しながら、段組み区切りを1 つずつクリックして選択します。
キーボードのDeleteキーを押してください。

注：段組み区切りを1 つずつ選択するのは、特にドキュメントが200 ページ以上ある場合、非常に手間で時間がかかります。このような場合は、以下の方法をご利用ください。

検索と置換ですべての段組み区切りを削除する

「ホーム」タブの「置換」をクリックして、検索と置換ユーティリティを開きます。または、ショートカットキーCtrl + Hをご利用ください。
「その他>>」ボタンをクリックして、さらにオプションを表示します。
「検索する文字列」フィールドにカーソルを置き、「特殊文字」プルダウンメニューから「段組み区切り」を選択します。
「検索する文字列」フィールドに「^n」が表示されます。「すべて置換」をクリックすると、すべての段組み区切りが削除されます。

Kutools for Word ですべての段組み区切りを削除する

Word で段組み区切りをすべて削除するのに、もっと素早く便利な方法があります。Kutools for Wordを使えば、ドキュメント全体または選択範囲内のすべての段組み区切りをワンクリックで簡単に削除できます。

特定の範囲内の段組み区切りを削除するには、その範囲を選択し、「Kutools」>「改ページ/改行」>「選択範囲のすべての段組み区切りを削除」をクリックします。
ドキュメント全体の段組み区切りを削除するには、何も選択せずに「Kutools」＞「改ページ／改行」＞「選択範囲のすべての段組み区切りを削除」をクリックしてください。

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

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

VBA を使用してすべての段組み区切りを削除する

VBA コーディングに慣れている方は、マクロを使ってドキュメント内のすべての段組み区切りを素早く削除できます。次の手順に従って実現してください：

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

「挿入」タブの「標準モジュール」をクリックし、次の VBA コードを貼り付けます：

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