こんにちは！Word VBAの世界へようこそ。
マクロの記録ボタンを押して、画面がガチャガチャと切り替わる様子に感動したのもついに束の間、「なんだか処理が遅いな」「意図しないところが選択されてバグるな」と感じていませんか？
ここをクリアすれば、あなたも脱・初心者の仲間入りです。今日は、Word VBAのパフォーマンスと安定性を劇的に引き上げる「RangeとCellの使い分け、そして高速化の極意」を、優しく、そしてディープに解説していきます。
プログラミング初学者の方や、マクロの記録から一歩先へ進みたい方に向けて、基礎から本質までしっかりと噛み砕いてお伝えしますね。ここをクリアすれば、Word VBAの基本はバッチリですよ！
—
1. なぜ「Selection」は悪者扱いされるのか？
Word VBAを書き始めると、真っ先に目にするのがこのオブジェクトです。
‘ よくあるマクロの記録コード
Selection.TypeText Text:=”こんにちは”
画面上でカーソルが動くのが見えるため直感的に感じますが、実はこれ、プログラミングの世界では「劇薬」です。
画面のチラつきと圧倒的な低速化の正体
`Selection`オブジェクトは、常にWordの画面上の「カーソル位置（選択範囲）」と同期しています。つまり、コードが1行実行されるたびに、Wordは「画面の表示を書き換える（再描画する）」という重い処理を強制されています。
もし100行の表データを作成する場合、画面が100回書き換えられます。これが「処理が遅い」と感じる最大の原因です。
プロのエンジニアが「Range」を使う理由
一方、`Range`オブジェクトは、画面の選択範囲とは一切関係なく、「メモリ上のテキストの断片（見えないアドレス）」を直接操作します。画面を書き換えないため、驚異的なスピードで処理が完結します。
—
2. 【核心】「Range」と「Cell」の正しい使い分け
Wordの表（Table）を操作するとき、私たちはつい「Cell（セル）」だけに頼りがちです。しかし、ここに高速化の罠があります。
- `Cell` オブジェクト
- 得意なこと: 行や列の構造的な操作（列幅の変更、セルの結合、セルのプロパティ変更など）。
- 苦手なこと: 大量のテキスト流し込み（文字を入れるたびにCellのオーバーヘッドが発生し、遅い）。
- `Range` オブジェクト
- 得意なこと: 文字列の挿入、書式の変更、データの流し込み。
- 苦手なこと: 表の構造そのものを変えること。
黄金のルール
> 「構造（ガワ）は `Cell` で整え、データ（中身）は `Range` で流し込む」
これが、Word表操作を極限まで高速化するアーキテクチャの真髄です。
—
3. 【実践】100行の表を爆速で生成するコード
百聞は一見に如かず。実際に、画面描画を完全に抑制し、`Range`を使って一瞬で表を構築する実用コードを見てみましょう。現場でそのままコピペして使えます。
Sub CreateFastTable()
Dim wsDoc As Document
Set wsDoc = ActiveDocument
‘ 【極意1】画面の更新と警告を停止して、CPUの全力をVBAに注ぐ！
Application.ScreenUpdating = False
Application.DisplayAlerts = wdAlertsNone
Dim tbl As Table
Dim targetRange As Range
‘ 文書の一番最後に表を作成（3行×3列）
Set targetRange = wsDoc.Content
targetRange.Collapse wdCollapseEnd
Set tbl = wsDoc.Tables.Add(Range:=targetRange, NumRows:=1, NumColumns:=3)
‘ 表の基本設定（構造はCellで操作）
With tbl
.Borders.Enable = True
.Cell(1, 1).Range.Text = “ID”
.Cell(1, 2).Range.Text = “項目名”
.Cell(1, 3).Range.Text = “ステータス”
‘ 見出し行の背景色を変更
.Rows(1).Shading.BackgroundPatternColor = wdColorLightGray
End With
‘ 【極意2】データ流し込みのループ
Dim i As Long
Dim newRow As Row
For i = 1 to 100
‘ 行の追加
Set newRow = tbl.Rows.Add
‘ データの流し込みは、各セルの「Range」に対して一気に行う
‘ Cellそのものを叩くのではなく、Cell.Rangeを指定するのがポイント！
newRow.Cells(1).Range.Text = CStr(i)
newRow.Cells(2).Range.Text = “テスト項目_” & i
newRow.Cells(3).Range.Text = IIf(i Mod 2 = 0, “完了”, “未完了”)
Next i
‘ 【極意3】止めたものは必ず戻す！
Application.ScreenUpdating = True
Application.DisplayAlerts = wdAlertsAll
MsgBox “表の生成が爆速で完了しました！”, vbInformation
End Sub
コードの解説とポイント
1. `Application.ScreenUpdating = False`
これがすべての基本です。画面の再描画をストップすることで、Wordの処理速度は数倍〜数十倍に跳ね上がります。
2. `newRow.Cells(1).Range.Text`
`Cell`そのものにテキストを代入するのではなく、`Cell.Range`（セルの内部にあるRangeオブジェクト）に対してテキストを流し込んでいます。これにより、Wordの内部エンジンが効率よくメモリ上で文字を配置してくれます。
—
4. 陥りやすいエラーと回避のテクニック
初学者が必ずハマる「表操作の罠」を先回りして解説しておきます。
罠①：「表の行を追加しすぎて、文字が消えた・バグった」
Wordの表で `Rows.Add` を行うと、その直前に選択していたRangeの参照が切れたり、意図しないセルがアクティブになったりすることがあります。
- 回避策: 行の追加は必ず `Table.Rows.Add` メソッドを使い、追加された行（`Row`オブジェクト）を一旦変数に受けてから、その中の `Range` を操作するようにしましょう（上記のサンプルコードがまさにこの書き方です）。
罠②：処理の途中でエラーが出て、画面が固まったまま戻らない
`ScreenUpdating = False` にした状態でエラーが発生すると、画面が白飛びしたまま（あるいは更新されないまま）マクロが終了してしまいます。
- 回避策: 本番のコードでは必ず `Error Handler`（On Error Goto 処理）を組み込み、異常終了時でも必ず `ScreenUpdating = True` に戻す安全対策を講じましょう。
—
まとめ
いかがでしたでしょうか？
今日学んだポイントをギュッと凝縮すると、以下の3つに集約されます。
1. `Selection` は使わない。画面描画は `ScreenUpdating = False` で封印する。
2. 表の構造（ガワ）は `Cell` で、データの流し込み（中身）は `Range` で行う。
3. 処理の最後には必ず画面更新を元に戻す。
このアーキテクチャを意識するだけで、あなたの書くWord VBAは見違えるほど高速化し、エラーの少ない堅牢なシステムへと生まれ変わります。
「マクロの記録」の呪縛を解き放ち、ぜひご自身の開発現場でこの「爆速Range操作」を試してみてください。あなたの業務自動化ライフが、より快適で知的になりますように！
