こんにちは！Word VBAの世界へようこそ。
マクロの記録ボタンを押して「なんだか動いたぞ！」と感動したのも束の間、いざ何百ページもある分厚い仕様書や契約書を相手にマクロを走らせたら……。
「あれ、画面が固まった？ 終わる気配がない……コーヒーでも淹れてくるか」
そんな絶望を味わったことはありませんか？
もしかして、あなたはその巨大な文書を操作するために、こんなコード書いていませんか？
‘ 【やってはいけない！実務で即死するアンチパターン】
ActiveDocument.Content.Find.Execute …
ふふふ、大丈夫。今日はその原因と、「巨大文書でも秒速で終わらせるプロの技」を、優しく、そして徹底的に伝授しちゃいますよ。
ここをクリアすれば、あなたのWord VBAスキルは「初学者」の域を完全に脱却し、現場で一目置かれる「チーフ級」に一歩近づきます。一緒にその極意を紐解いていきましょう！
—
1. なぜ「`ActiveDocument.Content`」は巨大文書で重くなるのか？
まずは、Wordの心臓部である「オブジェクトモデル」の裏側の話をしましょう。
初心者のうちは、「文書全体＝`ActiveDocument.Content`」と覚えるのが一番手っ取り早いです。これは間違いではありません。`Content`プロパティは、文書の最初から最後までを丸ごと包み込んだ、いわば「超巨大な風呂敷」のようなRangeオブジェクトを返してくれます。
ですが、考えてみてください。
たった1文字のフォントの色を変えるためだけに、何万文字、何十メガバイトもある文書全体の風呂敷を毎回ガバッと広げて重労働させていたら……？ Word君のCPUは悲鳴を上げます。
さらに悪いことに、`Content`や`Find`オブジェクトを不適切にループの中で回すと、Wordの「画面描画（スクリーン・アップデート）」や「ストーリー（本文、ヘッダー、フッターなど）の再計算」が何度も走り、メモリリークやフリーズの原因になります。
—
2. 【図解】プロが使う「Range細分化」の思想
巨大文書を高速処理するための鉄則、それは「全体をいっぺんに何何しようとしないこと」です。
イメージとしてはこうです。
- 素人（アンチパターン）： 巨大なジャガイモ（文書全体）を、ナイフを持たずに丸ごと一口で飲み込もうとして喉に詰まらせる。
- プロのエンジニア： 巨大なジャガイモを、「段落（Paragraph）」や「セクション（Section）」という一口サイズの`Range`に切り分けて、一つずつサクサク処理していく。
Word VBAには、文書を効率よく切り分けるための強力なパーツが用意されています。これらを使いこなすのが、高速化への一番の近道です。
—
3. 実践！巨大文書を秒速で処理する最適化コード
百聞は一見に如かず。実際に「特定のキーワードを検索して太字にする」という処理を例に、「重いコード」と「爆速なコード」を比較してみましょう。
【改善前】重くてフリーズしやすいコード（アンチパターン）
Sub SlowMacro()
Dim rng As Range
Set rng = ActiveDocument.Content
‘ 文書全体から一気に検索＆置換をかけようとする
With rng.Find
.Text = “機密”
.Replacement.Font.Bold = True
.Execute Replace:=wdReplaceAll
End With
MsgBox “処理完了！”
End Sub
※一見シンプルですが、文書が大きくなるとWordが沈黙します。
—
【改善後】段落ごとにRangeを絞り込む「爆速」コード
ここからが本番です。段落（`Paragraphs`）コレクションをループさせ、それぞれの段落の範囲（`Range`）に対してピンポイントで処理を行います。
Sub FastMacro_ByParagraphs()
Dim para As Paragraph
Dim targetRange As Range
‘ 1. 画面のチラつきと自動再計算をストップ（爆速化の基本中の基本！）
Application.ScreenUpdating = False
Application.Calculation = wdCalculationManual
‘ 2. 状態バーにメッセージを表示（ユーザーへの優しさ）
StatusBar = “処理を実行中です…”
‘ 3. 文書の「段落」という一口サイズごとにループを回す
For Each para In ActiveDocument.Paragraphs
Set targetRange = para.Range
‘ 各段落のRangeに対してのみ検索・置換を実行
With targetRange.Find
.Text = “機密”
.Forward = True
.Wrap = wdFindStop ‘ 検索が文書全体に暴走するのを防ぐ
Do While .Execute
‘ ヒットした部分だけをピンポイントで太字にする
targetRange.Font.Bold = True
‘ 次の検索へ進むためにRangeの末尾に移動
targetRange.Collapse wdCollapseEnd
Loop
End With
Next para
‘ 4. 設定を元に戻す
Application.ScreenUpdating = True
Application.Calculation = wdCalculationAutomatic
StatusBar = “”
MsgBox “爆速で処理が完了しました！”, vbInformation
End Sub
—
4. チーフアーキテクトが教える、現場で役立つ3つの極意
上記のコードには、単に範囲を絞る以外にも、実務で絶対に知っておくべき「プロの技」が散りばめられています。おさらいしておきましょう。
① `Application.ScreenUpdating = False` は絶対的正義
Wordは、マクロのコードが1行動くたびに、画面の見た目を更新（再描画）しようとします。これが処理を何倍も遅くする最大の犯人です。処理の最初に画面更新を止め、最後に `True` に戻す。これだけで体感速度が数倍〜数十倍跳ね上がります。
② `Wrap = wdFindStop` で暴走を防ぐ
`Find`オブジェクトを使う際、検索範囲の末尾に達したときの挙動を `wdFindStop`（そこで止まる）にしておくのが安全です。これをサボると、予期せぬ場所から文書の先頭に戻ってループが無限地獄（無限ループ）に陥ることがあります。
③ 処理が終わったら `Range.Collapse` で縮める
検索にヒットしたあとの `Range` は、「ヒットしたキーワード全体」を包み込むサイズに広がっています。そのまま次の検索をするとズレが生じるため、`wdCollapseEnd`（末尾に折りたたむ）を使って、次の文字を探すための「新しい起点」にスリム化してあげるのがコツです。
—
5. まとめ：ここをクリアすれば、Word VBAの基本はバッチリですよ！
お疲れ様でした！
今回は `Document.Content` が抱える罠と、それを回避して巨大文書を爆速で処理する `Range` の細分化テクニックを解説しました。
- 文書全体を大雑把に扱うのではなく、段落やセクションという「適切な単位（Range）」に切り分けること。
- 画面描画を止めてWord君の負担を減らしてあげること。
この2つを意識するだけで、あなたが書くマクロは見違えるほど洗練され、実務で絶対に音を上げない「強靭なプログラム」に生まれ変わります。
最初は難しく感じるかもしれませんが、オブジェクトモデルの「どこを触っているのか」を頭の中でイメージできるようになれば、Word VBAはあなたの最高の相棒になります。
ぜひ、今日のコードを実際の業務データで試してみてくださいね。それでは、また次の技術でお会いしましょう！
