こんにちは！Word文書のレイアウト崩れに頭を悩ませていませんか？
「人に配る資料なのに、なぜか途中で変なところで改行されている…」
「マクロの記録で直そうとしたけど、うまく動かない…」
そんな現場のトラブルを一刀両断するのが、今回お伝えする「改行コードの統一」です。
マクロの記録から一歩抜け出して、今日から君もWord VBAを自在に操るエンジニアの仲間入りをしましょう。ここをクリアすれば、Word VBAの基本と「ドキュメント構造の概念」はバッチリです。優しく丁寧に解説していくから、安心してついてきてね！
—
1. なぜ「改行の混在」は現場のトラブルメーカーなのか？
Wordで文章を入力しているとき、無意識に使い分けていないでしょうか？
1. Enterキーによる改行（段落の終了）：Wordでは、これが「新しい段落のはじまり」を意味します。
2. Shift ＋ Enterキーによる強制改行（ソフトリターン）：同じ段落の中で、見た目だけを次の行に落としたい時に使います。
この2つ、画面で見ている分には同じ「改行」に見えますが、Wordの内部（オブジェクトの構造）から見ると全く別物です。
これが混在していると、後からスタイル（見出しや文字フォント）を一括変更したときに、レイアウトが盛大に崩れる原因になります。人間が目視で直すのは、何百ページもある文書では不可能ですよね。だからこそ、VBAの出番なのです。
—
2. 【図解】Word VBAが捉えている世界
WordのVBA（Visual Basic for Applications）を学ぶ上で、一番最初に知るべき最も重要な真実があります。それは、「Wordは文字の集まりではなく、段落（Paragraph）の集まりである」ということです。
[文書全体 (Document)]
┣━━ [段落 1] ── “ここは通常の段落です。” + (段落記号 ¶)
┣━━ [段落 2] ── “ここは強制改行を含んだ” + (強制改行 ↵) + “同じ段落の続きです。” + (段落記号 ¶)
┗━━ [段落 3] ── “次の段落です。” + (段落記号 ¶)
見慣れない記号が出てきましたね。VBAの世界では、これらを明確に文字コードとして区別して扱います。
- 段落記号（Enter）：`vbCr` または `^p`
- 強制改行（Shift + Enter）：`vblf` または `^l` （エルです）
今回のミッションは、文書内にある `^l`（強制改行）をすべて `^p`（段落記号）に置き換えて、すべての行を独立した「正しい段落」に整えること です。
—
3. 実践！手動改行を段落終了に一括変換するマクロ
それでは、実際の現場でそのままコピペして使える、実用的なVBAコードを公開します。
Visual Basic Editor（VBE）を開き（`Alt` + `F11`）、標準モジュールに以下のコードを貼り付けてみてください。
Option Explicit
Sub NormalizeParagraphs()
‘ =====================================================================
‘ 処理概要: 文書内の「強制改行(Shift+Enter)」を検出し、
‘ 「通常の段落(Enter)」に一括変換してレイアウトを安定させるマクロ
‘ =====================================================================
Dim targetRange As Range
Dim replacedCount As Long
‘ 1. 処理の高速化と画面チラつき防止（プロの基本テクニック！）
Application.ScreenUpdating = False
‘ 2. 検索・置換の対象範囲を「文書全体」に設定
Set targetRange = ActiveDocument.Content
‘ 3. 検索・置換オブジェクトの設定
With targetRange.Find
.ClearFormatting
.Replacement.ClearFormatting
‘ 検索する文字：強制改行 (^l)
.Text = “^l”
‘ 置き換える文字：段落記号 (^p)
.Replacement.Text = “^p”
‘ 文書全体を対象に、一致するものすべてを置き換える
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWildcards = False
.MatchWholeWord = False
‘ 一括置換を実行し、置換された総数を取得する
.Execute Replace:=wdReplaceAll
‘ 置換が何回行われたかを判定するためにステータスバー等で取得
‘ ※実際には .Execute の戻り値として判定も可能ですが、分かりやすく記述しています。
End With
‘ 4. 画面描画の更新を再開
Application.ScreenUpdating = True
‘ 5. 完了メッセージを優しく通知
MsgBox “改行コードの統一が完了しました！” & vbCrLf & _
“これでレイアウト崩れの心配はありませんよ。”, _
vbInformation, “処理成功”
End Sub
—
4. コードの注目ポイントと知っておくべき極意
初心者のうちは、コードが呪文のように見えてしまうかもしれませんが、重要なポイントはたったの3つです。ここさえ押さえれば、他の置換マクロも自由自在に書けるようになります。
① `Application.ScreenUpdating = False` の魔法
これ、地味ですが非常に重要です。VBAが実行されるたびにWordの画面がパチパチと書き換わると、処理が遅くなるだけでなく、見ていて目が疲れます。処理の最初に画面を「フリーズ」させ、最後に「解除」する。これがプロのエンジニアの作法です。
② `^l` と `^p` の指定
Wordの「検索と置換」機能のVBA版です。UI（画面）で虫眼鏡マークを押して検索するのと同じ挙動を、コードで高速に実行しています。
- `^l`（Shift + Enter）を `^p`（Enter）に書き換えることで、ソフトリターンをハードリターン（段落の区切り）に昇格させています。
③ オブジェクトの使い回し（`Range` オブジェクト）
画面全体を選択状態（`Selection`）にしなくても、見えないところで `ActiveDocument.Content`（文書の中身全体）という範囲を指定して裏で作業を完結させています。
Word VBAでは、画面を選択する `Selection` よりも、範囲をメモリ上で扱う `Range` を使う方が圧倒的に高速で、エラーが起きにくいのです。
—
5. 陥りやすいエラーと初心者がハマる罠
最後に、現場でよくある「あれ、動かない？」というトラブルシューティングをご紹介します。
- Q. エラーは出ないのに、何も変わらない気がする…
- A. 文書の中にそもそも `Shift + Enter`（強制改行）が含まれていない可能性があります。文書のホームタブにある「段落記号の表示/非表示（¶マーク）」をオンにして、矢印の形をした改行マーク（↵）があるか確認してみましょう。
- Q. 置換した後に、行間が開きすぎてカッコ悪くなった！
- A. これは非常によくある現象です。強制改行が「段落」に昇格したことで、段落の前後の間隔（スタイル設定）が新しく適用されたためです。これに対応するには、マクロの最後に「段落の間隔をゼロにするコード」などを追加してあげることで完璧になりますが……それはまた別のステップでお話ししましょう！
—
まとめ
いかがでしたか？
今回は、Wordの「改行コードの混在」という、実務で誰もが一度は直面する悩みをVBAでスマートに解決する方法を解説しました。
- Wordは「段落」の集まりであること。
- 強制改行（`^l`）と段落記号（`^p`）の違い。
- `Range` オブジェクトを使った高速な一括置換。
この基本原則さえ分かっていれば、もうマクロの記録に頼り切る必要はありません。君の書いたコードが、ドキュメント作成の手間を劇的に削減してくれます。
業務自動化の第一歩、まずは自分の手元の汚れた文書でこのマクロを試してみてください。感動すること間違いなしですよ！
