Word VBAの真髄：表の高速走査術――Cellsループの呪縛から解き放たれる
こんにちは。業務自動化の現場でWordと格闘している皆さん、お疲れ様です。
マクロの記録を卒業し、少し複雑な文書作成を自動化しようとすると、必ずぶつかる壁があります。それが「Wordの表（Table）の処理」です。
多くの人が最初に書くコードは、おそらくこんな形でしょう。
‘ 【アンチパターン】Cellsをループで回す方法
Dim tbl As Table
Dim c As Cell
Set tbl = ActiveDocument.Tables(1)
For Each c In tbl.Range.Cells
Debug.Print c.Range.Text
Next c
一見正しそうに見えますよね？ でも、この書き方は「Word VBAにおける最大のパフォーマンス・キラー」の一つです。数百行の表をこの方法で処理しようとすると、Wordはガクンと動作が重くなります。なぜなら、`Cells`コレクションを一つずつ参照するたびに、Wordは内部で重たいオブジェクトの生成と破棄を繰り返しているからです。
今日は、その呪縛から抜け出し、プロのエンジニアが現場で使う「Rangeオブジェクトによる高速走査術」を伝授します。ここをクリアすれば、あなたのマクロは別次元の速度を手に入れますよ。
—
1. なぜ「Cells」ではなく「Range」なのか？
Wordのドキュメントモデルにおいて、`Cell`は非常に「重い」オブジェクトです。
一方、`Range`はWord内の「地点」や「範囲」を示す、いわば「ポインタ（指し示すもの）」です。
Rangeを使うということは、Wordに対して「この場所からこの場所までをテキストとして読み取れ」と直接命令することになります。余計なオブジェクトを生成せず、メモリを食いつぶさない。これが高速化の核心です。
思考の転換：表を「セルの集まり」ではなく「文字の並び」と見る
Wordの表は、内部的には「セル末尾記号（Cell End Mark）」という特殊な文字で区切られた、ただの文字列の羅列です。これを活用します。
—
2. 実践：Rangeオブジェクトで表を高速走査する
では、実際に表の中身を抽出するコードを見てみましょう。`Cells`を使わず、表全体を一つのRangeとして取得し、そこに含まれる各セルのRangeを直接操作します。
Sub FastTableExtraction()
Dim tbl As Table
Dim cellRange As Range
‘ 最初の表を取得
If ActiveDocument.Tables.Count = 0 Then Exit Sub
Set tbl = ActiveDocument.Tables(1)
‘ 表全体のRangeを取得
Dim fullRange As Range
Set fullRange = tbl.Range
‘ 各セルをRangeとして取り出して処理
For Each cellRange In fullRange.Cells
‘ セル末尾記号を排除してテキストを取得
‘ Left関数を使うのが高速化の秘訣
Dim cellText As String
cellText = Left(cellRange.Text, Len(cellRange.Text) – 2)
Debug.Print “セルの中身: ” & cellText
Next cellRange
End Sub
このコードの「賢いポイント」
1. `fullRange.Cells`の再利用: `Cells`コレクション自体は使いますが、個別の`Cell`オブジェクトを生成するコストを最小限に抑えています。
2. `Len(cellRange.Text) – 2`の魔術: Wordのセル内テキストには、最後に必ず「セル末尾記号（chr(13) & chr(7)）」が含まれています。`Replace`で消すのは遅い。`Left`関数で長さを削るのが、計算コストが最も低い「伝説級のエンジニア」の流儀です。
—
3. さらに先へ：Rangeを動かす「移動」のテクニック
もし、テキストの抽出だけでなく、特定の条件で文字の色を変えたり、置換を行いたい場合は、`Range.MoveEnd`や`Range.SetRange`を使いこなすと、さらなる高速化が可能です。
‘ ヒント：Rangeをずらして処理するイメージ
Dim rng As Range
Set rng = tbl.Cell(1, 1).Range
‘ 次のセルへRangeを移動させる
rng.MoveEnd Unit:=wdCell, Count:=1
このように、オブジェクトを個別に生成するのではなく、「一つのRangeオブジェクトを文書内で行進させる」という意識を持つと、Word VBAの挙動は劇的に軽快になります。
—
最後に：エラーを恐れないために
初心者の方が陥りやすいのは、`Range`が表の範囲外に飛び出した時に起きるエラーです。これを防ぐには、常に`If Not rng Is Nothing Then`で存在確認をすること。そして、マクロを実行する際は、必ず「更新の画面描画を停止」することをお忘れなく。
Application.ScreenUpdating = False
‘ …ここに高速処理コード…
Application.ScreenUpdating = True
これだけで、あなたの作成する自動化ツールは、プロ仕様のクオリティに進化します。
Word VBAは奥が深いですが、`Range`という武器を手にすれば怖いものはありません。まずは、小さな表でこの高速走査を試してみてください。その圧倒的な速さに、きっと驚くはずですよ。
それでは、また次の現場でお会いしましょう。ハッピー・コーディング！
