Wordでハードリターンをソフトリターンに置き換える方法は？

著者: テクニカルサポート最終更新日：2024年08月01日

段落記号（ハードリターン）を手動の改行（ソフトリターン）に置き換えてWord文書をフォーマットする場合。 Wordでハードリターンをソフトリターンにすばやく置き換えるにはどうすればよいですか？このチュートリアルでは、ハードリターンをソフトリターンに変換するいくつかの方法を示します。

ハードリターンをソフトリターンに検索および置換機能で置き換えます

ハードリターンをソフトリターンにVBAコードに置き換えます

ハードリターンからソフトリターンをKutoolsforWordに置き換えます

Wordに推奨される生産性ツール

Kutools for Word: AIの統合 🤖、100 を超える高度な機能により、ドキュメントの処理時間が 50% 節約されます。無料ダウンロード

Office Tab: Word (およびその他の Office ツール) にブラウザーのようなタブが導入され、複数ドキュメントのナビゲーションが簡素化されます。無料ダウンロード

ハードリターン（段落記号）とソフトリターン（手動改行）：

これをクリックすると、段落記号やその他の非表示の書式記号を表示できます 表示/非表示 ボタンの ホーム 次のようにタブ。

リボンの表示/非表示ボタン

ハードリターン（段落記号）記号：		ソフトリターン（手動改行）記号：

ハードリターンをソフトリターンに検索および置換機能で置き換えます

Office タブ: Word、Excel、PowerPoint にタブ付きインターフェイスをもたらします...

今すぐワークフローを強化しましょう。 Officeタブの詳細無料ダウンロード

通常、ハードリターン（段落記号）をソフトリターン（手動の改行）に置き換えるには、検索と置換機能を使用します。これらをXNUMXつずつ置き換えるよりも便利です。

ステップ1: Word文書で、 ホーム > 交換する を開く 検索および置換 窓;

または、を押してショートカットを使用することもできます Ctrl + H を開く 検索および置換 窓。

ステップ2：クリック その他 もっと表示するボタン を検索 オプション;

ステップ3：カーソルを 見つける ボックスをクリックし、 段落記号 スペシャル ドロップダウンリスト;

[詳細] ボタンをクリックして検索オプションをさらに表示し、カーソルを [検索する文字列] ボックスに配置し、ドロップダウンリストから [段落記号] を選択した [検索と置換] ウィンドウ

ステップ4：カーソルを と交換 ボックスをクリックし、 手動改行 スペシャル ドロップダウンリスト;

[詳細] ボタンをクリックして検索オプションをさらに表示し、[置換] ボックスにカーソルを置き、[特殊] ドロップダウンリストから [手動改行] を選択した [検索と置換] ウィンドウ

ステップ5：クリック すべて置換.

ご注意： ドキュメントの一部を選択した場合は、ドキュメント全体で検索して置換するかどうかが示されます。

確認ダイアログ

ハードリターンをソフトリターンにVBAコードに置き換えます

VBAコードを使用すると、ハードリターン（段落記号）をソフトリターン（手動の改行）にすばやく置き換えることができます。

ステップ1：Alt-F11」をWordで開いて アプリケーション用 Microsoft Visual Basic 窓;

ステップ2：クリック モジュール インセット タブで、次のVBAコードをコピーして貼り付けます モジュール 窓;

ステップ3：次に[実行]をクリックしますボタンを押してVBAを適用します。

VBAコード：ドキュメント全体のすべてのハードリターン（段落記号）をソフトリターン（手動の改行）に置き換えます。

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