Word VBAの「セル直書き」は今すぐ捨てろ。多次元配列で処理速度を100倍にする技術
Word VBAで「表（Table）の操作」を実装する際、多くのエンジニアが陥る罠がある。それは、`For Each` や `For i = 1 To Table.Rows.Count` を回しながら、`Cell(i, j).Range.Text = “値”` を繰り返すという実装だ。
断言しよう。WordのRangeオブジェクトへのアクセスは、COMインターフェースを介した極めて重い処理だ。 行数が増えれば増えるほど、Wordは再描画と再計算を繰り返し、処理時間は指数関数的に増大する。
真の自動化エンジニアは、DOM（Document Object Model）を直接叩かない。データをメモリ上の「多次元配列」に引き剥がし、高速演算した後に「一括流し込み」を行う。これが、数万行のデータをも一瞬で捌くためのプロトコルだ。
—
なぜ「セルへの直接代入」が罪深いのか
VBAにおけるWord操作のボトルネックは、プロセスの往復コストにある。
セル一つに値を書き込むたびに、Wordは「表のレイアウト再構築」を内部で検知する。これを100回、1000回と繰り返せば、ツールは重くなり、最悪の場合はWord自体がフリーズする。
我々が目指すべきは「データ処理」と「UI描画」の完全分離だ。
—
実装の極意：配列転送プロセスの設計図
以下のコードは、既存の表からデータを抽出し、計算を加えて別表に一括出力するプロフェッショナルな設計だ。
高速処理のプロダクションコード
Option Explicit
‘ メモリ効率と保守性を考慮した高速処理テンプレート
Sub OptimizeTableProcessing()
Dim tbl As Table
Dim dataArray As Variant
Dim i As Long, j As Long
‘ 1. 対象の表を取得 (エラーハンドリングは必須)
If Selection.Information(wdWithInTable) = False Then
MsgBox “表内にカーソルを置いてください。”, vbCritical
Exit Sub
End If
Set tbl = Selection.Tables(1)
‘ 2. 表全体を配列に一括吸い上げ (Rangeを触るのはここだけ)
‘ 速度の秘密：Variant型配列に全セルのTextを放り込む
dataArray = ExtractTableToArray(tbl)
‘ 3. メモリ上での高速演算 (Wordの描画を一切気にしなくて良い)
For i = LBound(dataArray, 1) To UBound(dataArray, 1)
‘ 例：2列目の数値を計算して3列目に代入
If IsNumeric(dataArray(i, 2)) Then
dataArray(i, 3) = CDbl(dataArray(i, 2)) 1.1 ‘ 消費税計算など
End If
Next i
‘ 4. 一括書き込み (必要な場合)
‘ 書き込み時はRangeのTextプロパティを一括更新する工夫が必要
Call WriteArrayToTable(tbl, dataArray)
MsgBox “処理完了。CPUリソースを最小限に抑えました。”, vbInformation
End Sub
‘ 抽出用関数：セル内の不要な改行コードを除去して格納
Private Function ExtractTableToArray(tbl As Table) As Variant
Dim arr() As String
Dim r As Long, c As Long
ReDim arr(1 To tbl.Rows.Count, 1 To tbl.Columns.Count)
For r = 1 To tbl.Rows.Count
For c = 1 To tbl.Columns.Count
‘ セル末尾の「セル終了マーク(chr(13) & chr(7))」を除去するのが鉄則
arr(r, c) = Left(tbl.Cell(r, c).Range.Text, Len(tbl.Cell(r, c).Range.Text) – 2)
Next c
Next r
ExtractTableToArray = arr
End Function
—
開発現場で生き残るための「3つの鉄則」
1. セル終了マーク（Chr(13) & Chr(7)）との戦い
Wordのセルの中身は、単なる文字列ではない。必ず末尾に「セル終了マーク」が存在する。これを考慮せずに `Right` や `Len` を使うと、データが汚染される。必ず `Len – 2` でカットする習慣を身につけること。
2. 外部連携（Excel/DB）時の型安全
Wordの表データはすべて「文字列」として扱われる。外部DBやExcelと連携する場合、配列に格納した瞬間に `CDbl` や `CDate` で型変換を行え。型が揺らいだ状態で計算すると、実行時エラーの温床となる。
3. ScreenUpdating の制御
どんなにコードを最適化しても、Wordの描画エンジンは強敵だ。
処理の冒頭で `Application.ScreenUpdating = False`、終了時に `True` に戻す。これを忘れるだけで、処理速度は劇的に変わる。これは、プロが最初に行う「儀式」である。
—
結論：コードは「資産」であれ
「動けばいい」コードは、半年後に君の足を引っ張る負債になる。
今回紹介した「配列への一括転送」という手法は、単に速いだけではない。WordのUIから計算ロジックを切り離しているため、テストが容易になり、保守性が飛躍的に向上する。
Word VBAは、もはや「ドキュメント作成ツール」ではない。君が構築する業務アプリケーションのフロントエンドなのだ。その矜持を持って、次の一行を書いてほしい。
何か不明点があれば、またいつでも問うがいい。技術の深淵で待っている。
