Word 文書で複数の行を1 つの段落に結合またはマージするには、どうすればよいですか？

著者Xiaoyang変更日2025-04-11

Microsoft Word でテキストを編集していると、複数の行や段落を1 つの段落に結合する必要が生じることがあります。これは、読みやすさを高めたり、書式の一貫性を保ったりするだけでなく、大量のドキュメントを印刷する際に用紙を節約するのにも役立ちます。

本チュートリアルでは、Word 文書内で複数の行を効率よく1 つの段落にまとめるさまざまな方法をご紹介します。これにより、テキストがより見やすく、実用的な構成になります。

検索と置換機能で複数の行を1 つの段落に結合またはマージする

Kutools for Word を使用して複数のドキュメント全体のすべての段落を1 つの段落に結合する

VBA コードで複数の行を1 つの段落に結合またはマージする

検索と置換機能で複数の行を1 つの段落に結合またはマージする

Word の「検索と置換」機能を使えば、改行された文章を簡単に1 つの連続した段落に結合できます。手順は次のとおりです：

結合したい段落を、末尾の段落記号を含めずに選択してください。
ヒント：ドキュメント内のすべての段落を結合する場合は、この手順をスキップしてください。
「ホーム」＞「検索」＞「詳細検索」をクリックして、「検索と置換」ダイアログボックスを開きます。
ダイアログボックスの「検索」タブで、「検索する文字列」ボックスに「^p」を入力し、「検索範囲」ドロップダウンから「現在の選択」を選択します。

ヒント：「^p」を直接入力する代わりに、「詳細 >>」をクリックして「特殊文字」ドロップダウンメニューから「段落記号」を選択することもできます。
「置換」タブに移動し、「置換後の文字列」ボックスに半角スペースを入力して、「すべて置換」をクリックしてください。
ドキュメントの残りを検索するかどうか尋ねられたら、「いいえ」をクリックしてください。

選択した段落が1 つの段落に統合されました。

Office Tab

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

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

Kutools for Word を使用して複数のドキュメント全体のすべての段落を1 つの段落に結合する

Kutools for Word は、すべての段落を1 つの段落に効率的に結合・統合する機能を提供します。このツールを使えば、選択したドキュメント内のすべての行を、素早くまとまりのある1 つの段落にマージできます。

「Kutools」タブから「一括置換」をクリックしてください。
「一括検索と置換」ダイアログで：
1. 「行を追加」をクリックして、段落を結合するルールを作成しましょう。
2. 「検索する文字列」フィールドに「^p」と入力し、「置換後の文字列」フィールドには半角スペースを入力してください。
3. 「追加」ボタンをクリックし、「ファイルを追加」または「フォルダーを追加」を選択して、すべての行を1 つの段落に結合したいドキュメントをインポートしてください。
4. 「すべて置換」をクリックして、選択したすべてのドキュメントに変更を一括適用しましょう。
「プレビュー結果」タブでプレビューを確認してください。内容に問題がなければ、「閉じる」をクリックします。

以上です！各選択ドキュメント内のすべての段落が、1 つの段落に結合されました。

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

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

VBA コードで複数の行を1 つの段落に結合またはマージする

この方法では、VBA を使って行を結合します。以下の手順に従ってください：

1。結合したい行を1 つの段落として選択します。
Alt + F11を押して、Microsoft Visual Basic for Applications ウィンドウを開きましょう。

「挿入」>「標準モジュール」をクリックし、以下のコードを貼り付けます：

Sub CleanUpPastedText()
    Dim xSelection As Selection
    On Error Resume Next
    Application.ScreenUpdating = False
    Set xSelection = Application.Selection
    
    If xSelection.Type <> wdSelectionIP Then
        FindAndReplace xSelection
    Else
        If MsgBox("No text is selected. Do you want to merge all lines in the document into one paragraph?", vbYesNo + vbInformation, "Kutools for Word") = vbNo Then Exit Sub
        xSelection.WholeStory
        Set xSelection = Application.Selection
        xSelection.HomeKey wdStory
        FindAndReplace xSelection
    End If
    
    Application.ScreenUpdating = True
    Application.ScreenRefresh
    MsgBox "Merged successfully!", vbInformation, "Kutools for Word"
End Sub

Sub FindAndReplace(Sel As Selection)
    With Sel.Find
        .ClearFormatting
        .Replacement.ClearFormatting
        .Forward = True
        .Wrap = wdFindStop
        .Format = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
        .Text = "^13{1,}"
        .Replacement.Text = " "
        .Execute Replace:=wdReplaceAll
        .Text = "[ ]{2,}"
        .Replacement.Text = " "
        .Execute Replace:=wdReplaceAll
        .Text = "([a-z])-[ ]{1,}([a-z])"
        .Replacement.Text = "\1\2"
        .Execute Replace:=wdReplaceAll
        .Text = " [^13]"
        .Replacement.Text = "^p"
        .Execute Replace:=wdReplaceAll
    End With
End Sub