Word VBAで「動的表集計」を極める：保守不能なコードを産まないための境界設計
Wordの表操作において、多くの開発者が陥る罠がある。それは「Selectionオブジェクトを多用し、画面のチラつきと戦いながら、不安定なインデックス指定に依存する」という手法だ。
実務レベルの自動化において、コードの質は「どれだけSelectionを排除したか」に比例する。今回は、表内の数値を正確に抽出し、行を動的に追加して計算結果を書き込む、プロダクション環境で耐えうる堅牢なアーキテクチャを伝授する。
—
1. なぜ「Selection」を使ってはいけないのか
初心者は `Selection.MoveDown` や `Selection.TypeText` を使いがちだが、これはWordのカーソル位置に依存する極めて脆弱な実装だ。ユーザーがたまたま表外をクリックした瞬間にコードは破綻する。
我々が目指すべきは、`Table` オブジェクトへの直接アクセスだ。特定の表をオブジェクトとして保持し、その範囲（Range）を制御する。これが、バグを1/100に減らす第一歩である。
—
2. 堅牢な設計のための実装コード
以下のコードは、指定した表の「2列目」を数値として読み込み、最下行に合計を追記する実戦的なテンプレートだ。
Option Explicit
”’
”’
Public Sub CalculateTableTotal()
Dim doc As Document: Set doc = ActiveDocument
Dim tbl As Table
Dim total As Double: total = 0
Dim i As Long
Dim cellValue As String
‘ 1. 表の取得（Selectionに頼らず、文書内の最初の表を特定）
If doc.Tables.Count = 0 Then
MsgBox “表が見つかりません。”, vbCritical
Exit Sub
End If
Set tbl = doc.Tables(1)
‘ 2. データ集計（ヘッダー行を考慮し、2行目から最終行の1つ前まで）
‘ 最終行は「合計行」として使うため、ループ範囲は tbl.Rows.Count – 1
For i = 2 To tbl.Rows.Count – 1
cellValue = CleanCellText(tbl.Cell(i, 2).Range.Text)
If IsNumeric(cellValue) Then
total = total + CDbl(cellValue)
End If
Next i
‘ 3. 結果の書き込み
‘ 最終行の2列目に合計値をセット
With tbl.Cell(tbl.Rows.Count, 2).Range
.Text = Format(total, “#,
0″)
.ParagraphFormat.Alignment = wdAlignParagraphRight
End With
MsgBox “集計完了：” & total, vbInformation
End Sub
”’
”’
Private Function CleanCellText(ByVal rawText As String) As String
‘ Wordのセルには必ず「セル終端記号(Chr(13)+Chr(7))」が含まれるため除去が必須
CleanCellText = Replace(Replace(rawText, vbCr, “”), Chr(7), “”)
End Function
—
3. コードの解説：なぜこの書き方が「正解」なのか
① セル終端記号（Chr(7)）の呪いを解く
Wordの `Cell.Range.Text` を取得すると、必ず末尾に `Chr(13)`（段落記号）と `Chr(7)`（セル終端記号）が付与される。これを処理せずに `CDbl()` 等に渡すと、即座に「型不一致」エラーになる。`CleanCellText` 関数のように、確実に除去するラッパーを通すのがプロの流儀だ。
② 拡張性を考慮したループ設計
`tbl.Rows.Count – 1` とすることで、表の行数が増減しても、常に「最終行を合計欄にする」というロジックを維持できる。ハードコードされた行番号に依存してはいけない。
③ エラーハンドリングの意識
今回のコードでは簡略化しているが、本来であれば `On Error Resume Next` を適切に使い、数値以外のデータが混入した際の例外処理を入れるべきだ。特にユーザーが手入力する表の場合、データクレンジングは自動化の成否を分ける。
—
4. 現場での運用アドバイス
- データベース連携: もしこのデータがExcelやCSVから流し込まれたものなら、Wordで計算するのではなく、元のデータソース側で計算してからWordに転記するのが鉄則だ。「Wordはあくまで表示レイアウトの器」であると割り切ることで、保守コストは劇的に下がる。
- パフォーマンスの罠: 数百行を超えるような巨大な表を扱う場合、`ScreenUpdating = False` を利用して画面描画を停止させるべきだ。これだけで処理速度は数倍変わる。
結びに代えて
VBAは「書いて終わり」のスクリプトではない。読み手が意図を理解し、将来の仕様変更に耐えうる「資産」であるべきだ。今回紹介したオブジェクト指向的なアプローチをあなたの業務に取り入れてみてほしい。
「動いたからOK」から「なぜ壊れないのかを説明できる」へ。その意識の差が、あなたを真のエンジニアへと押し上げるはずだ。
