こんにちは！Word VBAの世界へようこそ。
マクロの記録ボタンを押してコードを眺めてみたものの、「なんだか思っていたコードと違うぞ」「変数ってどうやって使うの？」と立ち止まっていませんか？
大丈夫、心配いりません。ここをクリアすれば、Word VBAの基本はバッチリですよ。
今回は、Word VBAを学ぶ上で誰もが一度はハマる「Document.Contentプロパティの罠」と、巨大な文書をサクサク処理するための『ブロック処理』という極意を、優しく、そして本質的なところまで徹底的に解説します。
—
1. Word VBAの基本：オブジェクトモデルの三兄弟を知ろう
Word VBAを操る上で、まず頭に入れておかなければならないのが「オブジェクトモデル」という概念です。Wordの世界は、次のような親子関係（階層構造）でできています。
1. `Application`（Wordアプリそのもの）
2. `Document`（開いているWordファイル）
3. `Range`（文書の中にある「文字の塊・範囲」）
私たちがマクロで文字を書いたり、置換したりするときは、大体この「`Range`（レンジ）」というオブジェクトを相手にしています。文字のスタート地点とゴール地点を決めて、「ここからここまでを赤くして！」と命令するイメージですね。
—
2. 誰もが陥る罠：`Document.Content` を安易にループさせてはいけない理由
さて、ここで本題です。
「文書全体の文字をすべてチェックしたい！」と思ったとき、初心者のあなたは次のようなコードを書いてしまいたくなるかもしれません。
‘ 【やってはいけない！危険なコード例】
Sub BadExample()
Dim rng As Range
Dim i As Long
‘ 文書全体をRangeとして取得
Set rng = ActiveDocument.Content
‘ 文書の文字数分だけループ（※絶対にやめましょう）
For i = 1 to rng.Characters.Count
‘ ここになんらかの重い処理…
Next i
End Sub
このコード、実はWord VBAにおける最大のタブーの一つです。何万文字もある巨大なWord文書でこれを実行すると、PCのファンが唸りを上げ、最悪の場合はWordがフリーズします。なぜでしょうか？
理由：「文字（Characters）」をひとつずつ数えるコストが重すぎるから
`ActiveDocument.Content` は、「この文書の最初から最後まで」を丸ごと指し示す巨大なオブジェクトです。
その中にある `Characters.Count`（文字数）をループの条件に指定し、さらに `rng.Characters(i)` と一文字ずつアクセスしようとすると、Wordは毎回「文書の先頭からi番目はどこだっけ…？」と数え直す計算を裏で行います。
結果として、処理速度が「指数関数的（文字数が増えれば増えるほど爆発的に）」に遅くなるという罠が潜んでいるのです。これが、巨大Word文書で処理が重くなる正体です。
—
3. 解決策：文書を「段落（Paragraph）」というブロックに分割して走査せよ！
では、どうすればいいのでしょうか？
答えはシンプルです。文書全体を一度に相手にするのではなく、「段落（Paragraph）」という適度な大きさのブロックに切り分けて処理するのです。
Word文書は、通常「段落（改行マークで区切られた単位）」の集まりでできています。この段落ごとに `Range` を切り出してループを回せば、Wordへの負担は劇的に軽くなります。
これが、伝説のエンジニアたちが使っている『ブロック処理』のテクニックです。
実践！サクサク動く『ブロック処理』のコード例
それでは、実際に安全で高速なコードを見てみましょう。ここでは、文書内のすべての段落を順番にチェックし、特定の文字が含まれていたら太字にする処理を書いてみます。
‘ 【推奨：安全で高速なブロック処理のコード例】
Sub GoodExample_BlockProcessing()
Dim para As Paragraph
Dim targetRange As Range
‘ 画面の描画を一時停止して、処理速度をさらに爆速にするお呪い
Application.ScreenUpdating = False
‘ 文書内の「段落（Paragraph）」をひとつずつループする
For Each para In ActiveDocument.Paragraphs
‘ 各段落のRangeオブジェクトを取得
Set targetRange = para.Range
‘ — ここに実際の処理を書く —
‘ 例：「重要」という文字が含まれていたら、その段落を太字にする
If InStr(targetRange.Text, “重要”) > 0 Then
targetRange.Bold = True
End If
——————————–
Next para
‘ 画面描画の停止を解除
Application.ScreenUpdating = True
MsgBox “ブロック処理が完了しました！”, vbInformation
End Sub
このコードの優れたポイント
1. `For Each para In ActiveDocument.Paragraphs`
文字ではなく「段落単位」で巡回するため、ループの回数が圧倒的に少なくなります。
2. `Application.ScreenUpdating = False`
マクロ実行中の画面のチラつきや描き直しをストップすることで、処理スピードを何倍にも跳ね上げます。プログラミングの現場では必須のテクニックです。
—
4. まとめ：今日から使えるエンジニアの心得
今回は、`Document.Content` の罠と、巨大文書を攻略する『ブロック処理』について解説しました。
- NGパターン: `Content` や `Characters` を使って、1文字ずつ泥臭くループを回すこと。
- OKパターン: `Paragraphs` などのまとまり（ブロック）ごとに `Range` を取得してスマートに処理すること。
Word VBAは、オブジェクトの「単位（スコープ）」を正しく意識してあげると、驚くほど軽快に動くようになります。この基本をマスターすれば、何百ページもある社内マニュアルやレポートの自動整形も、怖くありません。
ぜひ、あなたの開発現場でもこの『ブロック処理』を取り入れて、定時退社を勝ち取ってくださいね！それでは、次のレッスンでお会いしましょう。
