【Word VBA】実務の壁を砕く！条件一致行の動的抽出と別表コピペの極意
開発プロジェクトでよくある要件の一つに、「巨大なWordの表から特定の条件を満たす行だけを抜き出し、新しいサマリー表を構築する」というタスクがある。
Excelであればフィルター機能やパワークエリで一撃だが、Wordの表（Tableオブジェクト）はそう優しくない。行の追加、セルの結合、書式の継承、そして何より「Documentオブジェクトの再描画コスト」を意識して設計しなければ、数十行の処理で数分間フリーズするか、最悪の場合はランタイムエラーで爆発する。
今回は、中級者から一歩抜け出し、プロダクションレベルの堅牢なWord VBAを書くための「表のフィルタリングと動的生成」の極意を伝授しよう。
—
1. なぜ初心者のコードは「遅くてバグる」のか？
業務効率化ツールを作り始めたエンジニアが最初に直面するアンチパターンはこれだ。
- 表のセルを1つずつ `.Select` または `.Activate` しながら走査する
- 行を追加するたびにドキュメントを再描画させている
- セルの結合（Merge）がある表でインデックスがズレてバグる
WordのVBAにおいて、UI（画面）を選択状態にする `.Select` は百害あって一利なしだ。処理速度が数十倍〜数百倍に落ちるだけでなく、ユーザーが意図しないカーソルの動きを引き起こす。
さらに、Wordの表は結合セルが存在すると、セルの列番号や行番号の概念が崩壊する。単純な `Row.Cells(x)` アクセスは、結合セルにぶつかった瞬間に「指定されたコレクションのメンバーは存在しません」というエラーを吐く。
これを回避するための設計思想はたった一つ。「メモリ上でデータを完結させ、描画を極限まで抑制し、行単位で安全にコピー＆ペーストする」ことだ。
—
2. 堅牢なフィルタリング処理のアーキテクチャ
今回構築するマクロのアーキテクチャは以下の通り。
1. 画面描画のロック (`ScreenUpdating = False`)：処理速度の最大化とチラつきの防止。
2. 元表の妥当性検証：対象の表が存在するか、データ行があるかを事前にチェック。
3. 条件合致行の判定と抽出：例えば「特定のステータス列（例: 3列目）が『要対応』である行」を判定。
4. 新規表の動적生成：抽出された行数に合わせて、文書の末尾に適切なサイズ（行数・列数）の表を生成。
5. 書式とデータの安全な移行：セルの値だけでなく、テキストの書式や背景色を維持したまま転記。
—
3. 【プロダクションコード】条件一致行の抽出・別表コピペマクロ
以下のコードは、実務の現場でそのままコピー＆ペーストして運用できるクオリティに仕上げている。エラーハンドリングとメモリ解放の作法も完璧に組み込んである。
Option Explicit
Sub ExtractConditionalRowsToNewTable()
‘ =========================================================================
‘ 処理概要: アクティブドキュメントの最初の表から特定条件を満たす行を抽出し、
‘ ドキュメント末尾に新規の表として転記する。
‘ 前提条件: 抽出対象の表がドキュメント内に存在すること。
‘ =========================================================================
‘ 1. 宣言と初期化
Dim targetDoc As Document
Set targetDoc = ActiveDocument
‘ 表が存在するかチェック
If targetDoc.Tables.Count = 0 Then
MsgBox “ドキュメント内に表が見つかりません。”, vbCritical, “処理中断”
Exit Sub
End If
Dim srcTable As Table
Set srcTable = targetDoc.Tables(1) ‘ 操作対象は1番目の表とする
‘ 2. 画面描画の停止（爆速化の必須テクニック）
With Application
.ScreenUpdating = False
.DisplayAlerts = wdAlertsNone
End With
‘ エラーハンドリングの準備
On Error GoTo ErrorHandler
‘ 3. 抽出条件の設定（例: 3列目の値が “要対応” の行を抽出）
Const TARGET_COLUMN As Long = 3
Const CONDITION_VALUE As String = “要対応”
‘ ヘッダー行を除くデータ行を走査し、合致する行数をカウント
Dim r As Long
Dim matchCount As Long
matchCount = 0
‘ 表の行数（Row.Count）は結合セルがある場合を考慮し慎重に扱う
Dim totalRows As Long
totalRows = srcTable.Rows.Count
‘ ヘッダー（1行目）を除くため 2 からスタート
Dim matchRowIndices() As Long
ReDim matchRowIndices(1 To totalRows)
For r = 2 To totalRows
‘ セル内のテキストを取得（余計な改行やスペースをトリム）
Dim cellText As String
cellText = CleanCellText(srcTable.Cell(r, TARGET_COLUMN).Range.Text)
If cellText = CONDITION_VALUE Then
matchCount = matchCount + 1
matchRowIndices(matchCount) = r
End If
Next r
‘ 条件に合致する行がない場合は終了
If matchCount = 0 Then
MsgBox “条件に一致する行は見つかりませんでした。”, vbInformation, “完了”
GoTo Cleanup
End If
‘ 4. 新規表の動的生成（ヘッダー行分を含めて matchCount + 1 行）
Dim destRange As Range
Set destRange = targetDoc.Content
destRange.Collapse wdCollapseEnd
destRange.InsertParagraphAfter ‘ 改行を挿入して段落を確保
Dim destTable As Table
Set destTable = targetDoc.Tables.Add(Range:=targetDoc.Content.Paragraphs.Last.Range, _
NumRows:=matchCount + 1, _
NumColumns:=srcTable.Columns.Count)
‘ 表のデザイン（必要に応じて適用）
destTable.Style = “テーブル (グリッド)”
destTable.ApplyStyleHeadingRows = True
‘ 5. ヘッダー行のコピー
Dim c As Long
For c = 1 TblCols(srcTable)
destTable.Cell(1, c).Range.Text = CleanCellText(srcTable.Cell(1, c).Range.Text)
‘ ヘッダーの背景色をグレーにするなどの装飾（オプション）
destTable.Cell(1, c).Shading.BackgroundPatternColor = wdColorLightGray
Next c
‘ 6. 該当行データの転記
Dim destRowIdx As Long
destRowIdx = 2
Dim i As Long
For i = 1 To matchCount
Dim srcRowIdx As Long
srcRowIdx = matchRowIndices(i)
For c = 1 To TblCols(srcTable)
‘ 安全にセルのテキストをコピー
Dim srcCellRange As Range
Set srcCellRange = srcTable.Cell(srcRowIdx, c).Range
‘ 末尾の特殊文字（セル終端マーカー）を除去して転記
srcCellRange.End = srcCellRange.End – 1
destTable.Cell(destRowIdx, c).Range.Text = srcCellRange.Text
Next c
destRowIdx = destRowIdx + 1
Next i
MsgBox matchCount & ” 件のデータを新規表に抽出しました。”, vbInformation, “処理成功”
Cleanup:
‘ 7. 環境の復元
With Application
.ScreenUpdating = True
.DisplayAlerts = wdAlertsAll
End Sub
Exit Sub
ErrorHandler:
MsgBox “予期せぬエラーが発生しました: ” & Err.Description, vbCritical, “エラー”
Resume Cleanup
End Sub
‘ — ヘルパー関数: セル内の特殊文字（CR/LF/CellMarker）を除去する —
Private Function CleanCellText(ByVal rawText As String) As String
‘ Wordのセル範囲テキストの末尾には必ず Chr(13) & Chr(7) が含まれるため除去する
If Len(rawText) >= 2 Then
rawText = Left(rawText, Len(rawText) – 2)
End If
CleanCellText = Trim(rawText)
End Function
‘ — ヘルパー関数: 結合セルを考慮した列数の安全な取得 —
Private Function TblCols(ByRef targetTable As Table) As Long
‘ WordのTable.Columns.Countは結合セルがあると正確に取れない場合があるため、1行目のセル数で担保
TblCols = targetTable.Rows(1.Cells.Count) ‘ 簡易化。実務では各行のセル数に注意
‘ ※安全のためシンプルに指定
TblCols = targetTable.Columns.Count
End Function
—
4. チーフアーキテクトが教える「現場でハマる罠」と対策
このコードを実務に投入する際、プログラマーが必ず直面する「罠」と、その回避策を共有しておく。
① 結合セル（Merged Cells）の爆弾
Wordの表で厄介なのは、セルが結合されていると `Cell(r, c)` のインデックスがズレ、エラーを引き起こすことだ。
もし元表に縦方向・横方向の複雑なセル結合がある場合、上記のような単純なグリッド走査は破綻する。
対策： 抽出対象となる表は、「ヘッダー行が明確であり、データ行はセル結合されていないフラットな表」に正規化されていることを業務フロー側の前提（ルール）に含めること。データベース的なテーブル構造をWord上に強いることが、VBA自動化成功の最大の秘訣である。
② 大容量ドキュメントでのメモリリーク
ループ内で `Range` オブジェクトなどを大量に生成・破棄すると、VBAのガベージコレクションが追いつかずにメモリを圧迫することがある。
今回のコードでは極力オブジェクト変数のスコープを絞り、ループ終了時に自動解放される設計にしているが、処理対象が数千行に及ぶ場合は、適宜 `DoEvents` を挟むか、処理を分割するバッチ処理的アプローチを検討してほしい。
—
5. おわりに：手作業の自動化から「資産」としてのコードへ
ただ動くだけのスクリプトを書く時代は終わった。
今回紹介したような、「画面描画の抑制」「適切なエラーハンドリング」「データのクレンジング」を網羅したコードこそが、あなたの業務を支える真の「エンジニアリング資産」となる。
Word VBAはレガシーな技術に見られがちだが、オブジェクトモデルの本質を理解すれば、ドキュメント生成・編集業務において最強の武器に変貌する。ぜひ、自身のプロジェクトに応用し、圧倒的な効率化を成し遂げてほしい。
