【Word VBA極限講座】フォームチェックボックスの動的集計：なぜあなたのコードは「消える・ズレる・フリーズする」のか
業務自動化エンジニアの私のもとに、よくこんな相談が舞い込む。
- 「Wordの表にあるチェックボックスの状態を判定して別表に集計したいが、なぜか状態が正しく取得できない」
- 「チェックが入っている行だけを抽出して転記しようとすると、行数が狂ったりWordがフリーズしたりする」
- 「最初は動いていたのに、ドキュメントの修正を挟んだら動かなくなった」
結論から言おう。あなたが遭遇しているそのバグは、あなたのコーディングミスではない。Wordという巨大で歪なオブジェクトモデルの「仕様」を無視してコードを書いているからだ。
Wordの表（Table）とフォームコントロール（CheckBox）の組み合わせは、VBA初中級者が最も踏み抜きやすい「地雷原」の一つである。
今回は、開発現場でそのまま使える、堅牢性・パフォーマンス・保守性を極限まで高めたプロダクションコードと共に、プロが実践する設計思想を授けよう。
—
1. 現場でありがちな「地雷コード」となぜそれがダメなのか
多くのエンジニアは、Excel VBAのノウハウのままWordVBAを書き、そして散る。
❌ ありがちな実装パターン
‘ 【絶対やってはいけないアンチパターン】
Sub BadExample()
Dim i As Long
Dim tbl As Table
Set tbl = ActiveDocument.Tables(1)
For i = 1 to tbl.Rows.Count
‘ セルの中のチェックボックスを無理やり判定しようとする
If tbl.Cell(i, 3).Range.FormFields(1).CheckBox.Value = True Then
‘ そのまま行をコピーして別表に持っていく
tbl.Rows(i).Range.Copy
ActiveDocument.Tables(2).Rows.Add.Range.Paste
End If
Next i
End Sub
このコードが崩壊する3つの致命的理由
1. コレクションのインデックスズレ（Iteratorの破壊）
ループ内で`Rows.Add`や行の削除を行うと、表全体のインデックスが動的に変動し、未処理の行をスキップするか、無限ループ・実行時エラーを引き起こす。
2. FormFieldsのスコープ無視
セル内にフォームフィールドが存在しない場合、`FormFields(1)`の呼び出しは一発で「インデックスが範囲外です」エラーとなる。
3. Rangeのメモリリークと描画負荷
ループ内で無駄にUI（Clipboard）を叩くため、数千行のドキュメントでは激しいフリーズ（あるいはWordのクラッシュ）を引き起こす。
—
2. 堅牢な集計ロジックを構築するための3大原則
プロのエンジニアがWordVBAで動的集計ツールを作る際、以下の3点を厳守する。
1. 下から上へループする（逆順走査）
行の追加・削除・移動を行うロジックでは、必ず `For i = Max To 1 Step -1` を使う。これにより、インデックスのズレ問題完全に出現させない。
2. 存在確認（Guard Clause）の徹底
オブジェクトが存在するか、目的のフォームコントロールが確実にあるかを、処理の実行前に必ず判定する。
3. 不要なUI描画の完全停止（ScreenUpdatingの制御）
処理速度を極限まで引き上げるため、画面描画とバックグラウンドの再計算を一時停止する。
—
3. 【コピペOK】プロダクション品質の完全実装コード
それでは、実務でそのまま稼働する洗練されたコードを提示する。
このコードは、「1番目の表（入力用）」にあるチェックボックスを走査し、チェックが入っている行のデータを安全に抽出し、「2番目の表（集計用）」の末尾に綺麗に転記するものである。
Option Explicit
‘ ==============================================================================
‘ 処理名: CollectCheckedRowsToTargetTable
‘ 概要 : 表1のチェックボックスを判定し、ONの行を情報として表2へ安全に転記する
‘ 著者 : 業務自動化チーフアーキテクト
‘ ==============================================================================
Public Sub CollectCheckedRowsToTargetTable()
‘ 爆速化と安定稼働のための環境設定
Application.ScreenUpdating = False
Application.Calculation = wdCalculationManual
On Error GoTo ErrorHandler
Dim doc As Document
Set doc = ActiveDocument
‘ テーブルの存在チェック（ガード節）
If doc.Tables.Count < 2 Then
MsgBox "ドキュメント内に必要な表が2つ以上存在しません。", vbCritical, "致命的エラー"
GoTo Finally
End If
Dim srcTable As Table, destTable As Table
Set srcTable = doc.Tables(1) ' 抽出元の表
Set destTable = doc.Tables(2) ' 転記先の表
Dim i As Long
Dim targetCell As Cell
Dim chkBox As FormField
Dim isChecked As Boolean
' 【極意】行の追加や操作を行うため、必ず「下から上（逆順）」へループさせる
For i = srcTable.Rows.Count To 1 Step -1
isChecked = False
Set targetCell = srcTable.Cell(i, 3) ' 例：3列目にチェックボックスがあると仮定
' セル内にフォームフィールドが存在するかチェック
If targetCell.Range.FormFields.Count > 0 Then
For Each chkBox In targetCell.Range.FormFields
‘ フォームコントロールのチェックボックスか判定
If chkBox.Type = wdFieldFormCheckBox Then
If chkBox.CheckBox.Value = True Then
isChecked = True
Exit For
End If
End If
Next chkBox
End If
‘ チェックが入っている場合の転記処理
If isChecked Then
Call AppendRowData(srcTable.Rows(i), destTable)
End If
Next i
MsgBox “チェックされた行の集計が正常に完了しました。”, vbInformation, “処理完了”
ErrorHandler:
If Err.Number <> 0 Then
MsgBox “予期せぬエラーが発生しました: ” & Err.Description, vbCritical, “システムエラー”
End If
Finally:
‘ 環境設定の復元（絶対に忘れてはならない）
Application.ScreenUpdating = True
Application.Calculation = wdCalculationAutomatic
End Sub
‘ ——————————————————————————
‘ 補助プロシージャ: 1行分のデータを安全に別表の末尾へコピーする
‘ ——————————————————————————
Private Sub AppendRowData(ByRef sourceRow As Row, ByRef targetTable As Table)
Dim newRow As Row
Dim j As Long
‘ 転記先に行を追加
Set newRow = targetTable.Rows.Add()
‘ 各セルのテキストを安全に転記（スタイルやゴミデータの混入を防ぐため値渡し）
For j = 1 To sourceRow.Cells.Count
‘ 転記先の列数が足りる場合のみコピー（レイアウト崩れ防止）
If j <= newRow.Cells.Count Then
' セル末尾の特殊文字（セルマーカー）を除去してテキストのみをクリーンに転記
Dim cellText As String
cellText = sourceRow.Cells(j).Range.Text
' Wordのセル内テキスト末尾には必ず Chr(13) & Chr(7) が含まれるため除去
cellText = Left(cellText, Len(cellText) - 2)
newRow.Cells(j).Range.Text = cellText
End If
Next j
End Sub
---
4. コードの解説とアーキテクチャの急所
なぜこのコードが「バグらない」のか、設計の裏側を解説しよう。
1. フォームコントロールの厳密な型チェック (`wdFieldFormCheckBox`)
Wordのセル内には、テキストフォームやドロップダウンなど、様々なフォームフィールドが混入し得る。そのため、単に `FormFields(1)` を叩くのではなく、`Type = wdFieldFormCheckBox` で明示的にフィルタリングしている。これが予期せぬ型ミスマッチエラーを防ぐ盾となる。
2. セルマーカー（Chr(13) & Chr(7)）の呪縛からの解放
`AppendRowData` 内で行っている `Left(cellText, Len(cellText) – 2)` の処理に注目してほしい。
Wordのセル範囲をそのまま別のセルに代入すると、セルの書式や改行コード（セルマーカー）ごとコピーされてしまい、転記先の表がグチャグチャに破壊される現象が起きる。「テキストだけを抽出し、クリーンな状態で代入する」このひと手間が、プロとアマを分ける境界線だ。
3. トランザクション的な画面更新の制御
処理の最初に `ScreenUpdating = False`、最後に `True` を置くのは基本中の基本だが、今回はさらに `Application.Calculation = wdCalculationManual` も入れている。これにより、Word内部でのフィールド再計算やレイアウト再描画が抑制され、数十行〜数百行の表であっても一瞬で処理が完了する。
—
5. データベースや外部ファイル連携を見据えた拡張性
実務においては、この集計したデータをWord内だけで完結させず、ExcelやCSV、あるいはデータベース（SQL Server / Access）へ飛ばしたいという要件が必ず出てくる。
その際、上記の `AppendRowData` プロシージャを、以下のように書き換えるだけで、シームレスに外部出力ロジックへと拡張できる。
- Excel連携の場合: `CreateObject(“Excel.Application”)` を使って、ワークブックを開き、配列経由で一気にデータを流し込む。
- データベース連携の場合: ADODB.Connectionを生成し、抽出した行のテキストを `INSERT INTO` クエリで叩き込む。
WordVBAは「文書を作るためだけのもの」ではない。社内ニッチな申請書やチェックリストからデータを回収し、基幹システムへ橋渡しする強力な「データパイプライン」として機能させることができるのだ。
—
総括
Wordの表とチェックボックスの連携は、一見すると厄介なレガシー機能に見える。しかし、オブジェクトのライフサイクルを正しく理解し、適切なガード節と逆順走査を組み合わせれば、これほど頼もしい自動化の武器はない。
あなたの現場にある「手作業のチェック集計地獄」を、このコードで今日から完全にハックしてほしい。
