複数の行をWord文書のXNUMXつの段落にマージまたは結合する方法は?
Word文書に数百、数千の段落がある場合、この文書を印刷するときは、大量の紙が必要になります。 紙を節約するために、これらの複数の行をXNUMXつの段落にマージできます。 しかし、Word文書でこれらすべての行をXNUMXつの段落にすばやく簡単に組み合わせるにはどうすればよいでしょうか。
検索と置換機能を使用して、複数の行をXNUMXつの段落にマージまたは結合します
VBAコードを使用して、複数の行をXNUMXつの段落にマージまたは結合します
検索と置換機能を使用して、複数の行をXNUMXつの段落にマージまたは結合します
検索および置換 Wordの関数は、複数の行をXNUMXつの段落にマージするのに役立ちます。次のようにしてください。
1。 XNUMXつの段落にマージする段落を選択します。
2。 次に、をクリックします ホーム > もう完成させ、ワークスペースに掲示しましたか? > 高度な検索 行くには 検索および置換 ダイアログボックス、 検索および置換 ダイアログボックス、下 もう完成させ、ワークスペースに掲示しましたか? タブ、入力してください ^p に 見つける テキストボックスをクリックして、 現在の選択 オプションから 見つける ドロップダウンリスト、スクリーンショットを参照してください:
3。 その後、 交換する タブをクリックし、 と交換 テキストボックスを空にして、[ すべて置換 ボタン、スクリーンショットを参照してください:
4。 そして、選択したすべての段落がXNUMXつの段落にマージされました。スクリーンショットを参照してください。
VBAコードを使用して、複数の行をXNUMXつの段落にマージまたは結合します
これは、Wordでこのジョブを完了するのに役立つ別の便利な方法です。次の手順で実行してください。
1。 XNUMXつの段落にマージする行を選択します。
2。 次に、 Alt + F11 キーを押して アプリケーション向け Microsoft Visual Basic 窓。
3。 次に、をクリックします インセット > モジュール、以下のコードをコピーして、開いた空のモジュールに貼り付けます。
VBAコード:複数の行をXNUMXつの段落にマージします。
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("Do you want to merge all selected lines 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 "The selected lines have been merged into one paragraph.", 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 = "[^s^t]{1,}^13"
.Replacement.Text = "^p"
.Execute Replace:=wdReplaceAll
.Text = "([!^13])([^13])([!^13])"
.Replacement.Text = "\1\3"
.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]{1,}"
.Replacement.Text = "^p"
.Execute Replace:=wdReplaceAll
End With
End Sub
4。 そして、 F5 このコードを実行するにはキーを押します。次のスクリーンショットに示すように、選択したすべての段落がXNUMXつの段落に結合されています。
最高のオフィス生産性向上ツール
Kutools for Word - Over で単語体験を向上させましょう 100 注目すべき機能!
🤖 Kutools AI アシスタント: AI であなたの文章を変革します - コンテンツを生成する / テキストを書き換える / 文書を要約する / 情報のお問い合わせ 文書に基づいて、すべて Word 内で
📘 ドキュメントマスタリー: 分割ページ / ドキュメントをマージする / 選択内容をさまざまな形式でエクスポート (PDF/TXT/DOC/HTML...) / PDFへの一括変換 / ページを画像としてエクスポート / 複数のファイルを一度に印刷する...
✏ コンテンツ編集: バッチ検索と置換 複数のファイルにわたる / すべての画像のサイズを変更する / テーブルの行と列を転置する / 表をテキストに変換...
🧹 楽にお掃除:振り払って 余分なスペース / セクションブレーク / すべてのヘッダー / テキストボックス / ハイパーリンク / その他の取り外しツールについては、当社の Web サイトをご覧ください。 グループを削除...
➕ クリエイティブインサート:挿入 千の区切り文字 / チェックボックス / ラジオボタン / QRコード / バーコード / 斜線テーブル / 方程式のキャプション / 画像キャプション / テーブルキャプション / 複数の写真 / 詳細については、 グループを挿入...
🔍 正確な選択: ピンポイント 特定のページ / テーブル / シェイプ / 見出し段落 / ナビゲーションを強化する 他には? 機能の選択...
⭐ スターの強化: あらゆる場所に素早く移動 / 繰り返しのテキストを自動挿入 / ドキュメントウィンドウをシームレスに切り替える / 11 変換ツール...