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

Author Sun Last modified 2025-08-26

Word文書内の単一の段組み区切りを削除するのは簡単ですが、長い文書内のすべての段組み区切りを効率的に削除するのはより難しい場合があります。

長文のレポートや複雑な文書に取り組んでいる場合でも、すべての段組み区切りを迅速に削除する方法を知っていれば、大幅な時間節約になります。このチュートリアルでは、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 for Word、AI 🤖を搭載し、100 以上の便利な機能を提供して作業を簡素化します。

今すぐダウンロード

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

Kutools for Word は、作業を効率化し、文書処理スキルを向上させる究極の 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