【テクニカル・上級編】【中級者向け】Word表の全セルを走査し、空欄のセルに「-」を自動入力するクリーンアップ – Word VBA解析バイブル

Word表を極限まで掌握せよ：未入力セル自動クレーシング機構の設計と実装

Word VBAにおいて、表（Table）の操作はパフォーマンスのボトルネックになりやすい。特に数百行に及ぶ巨大なドキュメントや、複数のセクションが入り組んだ複雑なレイアウトにおいて、全セルの走査と書き換えを安易なコードで行うと、画面のちらつき（ScreenUpdating）や、COMオブジェクトのメモリリーク、最悪の場合はWord自体のフリーズを引き起こす。

今回は、文書作成の最終フェーズにおいて、未入力の空欄セルを検出し、ハイフン（`-`）で自動的に均一化する「表クリーンアップ機構」の設計と実装を解説する。
単なるループ処理ではない。オブジェクトのライフサイクル管理、レンジの効率的利用、そして実務で耐えうる堅牢性を備えたコードの極意を授けよう。

—

1. Word表操作における3つの致命的アンチパターン

シニアエンジニアがコードレビューを行う際、Wordの表操作において以下の実装を見かけたら、即座にリファクタリングを命じるべきだ。

1. `Selection` オブジェクトの乱用
`Selection.MoveDown` や `Selection.TypeText` を使った処理は、GUIの描画エンジンの同期を伴うため、実行速度が数桁落ちる。裏で黙々と処理すべきバッチ処理において、`Selection` は百害あって一利なしである。必ず `Range` または直接オブジェクトの階層（`Cell`, `Row`, `Column`）を叩け。
2. 不十分なセル文字列の判定
Wordのセル内には、必ず「セル終了マーク（Cell End Marker：Unicode `Chr(13)` & `Chr(7)`）」が含まれている。単に `Cell.Range.Text` を評価すると、空に見えてもこの制御文字が含まれており、厳密な「空欄」判定に失敗する。
3. エラーハンドリングの欠如
結合セル（Merged Cells）が存在する表に対して単純なネストループを回すと、存在しないインデックスへのアクセスや、`Err.Number 5991`（このメソッドまたはプロパティは、結合されたセルに対しては使用できません）といったランタイムエラーが容赦なく発生する。

—

2. アーキテクチャ設計：堅牢な走査ロジック

今回のクリーンアップ機構では、以下の設計方針を貫く。

• 画面描画と警告の完全停止: `ScreenUpdating` と `DisplayAlerts` をオフにし、CPUサイクルを演算にのみ集中させる。
• 文字列トリミングの正確性: セル内の文字列長（`Len`）および余計な制御文字の除去。
• 結合セルへの耐性: 結合セル（特に仮想的なセル範囲）を安全にスキップ、あるいはプライマリセルのみを処理対象とする安全弁の設置。

—

3. 実装コード：全自動セルクリーンアップ・エンジン

以下に、実務の現場でそのまま稼働するプロダクション品質のVBAコードを提示する。エラーハンドリングとメモリ効率を極限まで高めた実装だ。

Option Explicit

‘ ==============================================================================
‘ 処理名 : CleanupEmptyTableCells
‘ 概要 : アクティブドキュメント内の全テーブルを走査し、空セルにハイフンを挿入する
‘ アーキ : シニアアーキテクト向け高効率・安全走査モデル
‘ ==============================================================================
Public Sub CleanupEmptyTableCells()
Dim tgtDoc As Document
Dim targetTable As Table
Dim targetCell As Cell
Dim cellText As String
Dim processedCount As Long

‘ 実行前のシステム環境退避と高速化設定
With Application
.ScreenUpdating = False
.DisplayAlerts = wdAlertsNone
.Calculation = wdCalculationAutomatic
End With

Set tgtDoc = ActiveDocument

‘ 文書内にテーブルが存在するか事前チェック
If tgtDoc.Tables.Count = 0 Then
MsgBox “対象となる表がドキュメント内に存在しません。”, vbInformation, “終了”
GoTo CleanUpExit
End If

processedCount = 0

‘ メインループ：すべてのテーブルを走査
For Each targetTable In tgtDoc.Tables

‘ フォーム保護や特定の構造によるエラーを回避するためのトラップ
On Error Resume Next

For Each targetCell In targetTable.Range.Cells

‘ エラーが発生したセル（結合セルの例外等）はスキップ
If Err.Number = 0 Then

‘ セル内のテキストを取得し、Word特有の制御文字（セル終了マーク等）を除去
‘ Wordのセルテキストは末尾に Chr(13) & Chr(7) を含むため、これを取り除く
cellText = targetCell.Range.Text
cellText = Left(cellText, Len(cellText) – 2)

‘ 前後のスペースやタブも空欄とみなしてトリミング
cellText = Trim(cellText)

‘ 完全な空欄、あるいはスペースのみの場合は “-” を流し込む
If cellText = “” Then
‘ Rangeを直接書き換えることでオーバーヘッドを最小化
targetCell.Range.Text = “-”

‘ 中央寄せなどのフォーマットを維持したい場合はここで指定可能
‘ targetCell.Range.ParagraphFormat.Alignment = wdAlignParagraphCenter

processedCount = processedCount + 1
End If

End If
On Error GoTo 0

Next targetCell

Next targetTable

‘ 完了通知
MsgBox “クリーンアップが完了しました。” & vbCrLf & _
“未入力セルを置換した総数: ” & processedCount & ” 箇所”, _
vbInformation, “システム完了通知”

CleanUpExit:
‘ 環境の確実な復元（メモリリーク・UIフリーズ防止）
With Application
.ScreenUpdating = True
.DisplayAlerts = wdAlertsAll
End With

‘ オブジェクトの明示的解放
Set targetCell = Nothing
Set targetTable = Nothing
Set tgtDoc = Nothing

End Sub

—

4. チーフアーキテクトの知見：コードの急所を解説

① セル終了マーク（Cell End Marker）のトラップ

前述の通り、Wordの `Cell.Range.Text` は、純粋な入力文字列に加えて `Chr(13) & Chr(7)` を強制的に付加して返す。これを考慮せずに `If targetCell.Range.Text = “” Then` と書いても、絶対に条件に一致しない。
本コードでは `Left(cellText, Len(cellText) – 2)` によってこの制御文字を確実に削ぎ落とし、純粋な文字列長で判定を行っている。これがレガシー仕様を熟知した者のみが書ける実装だ。

② `On Error Resume Next` の局所的運用

Wordの表において、セルが結合されている場合、`Range.Cells` コレクションの挙動は複雑怪奇である。特定のインデックスに対してプロパティにアクセスした瞬間、VBAは容赦なくクラッシュする。
このリスクに対し、ループ全体を雑に握るのではなく、最小単位（個別のセルへのアクセス）の直前でトラップを張り、エラーが発生したセルは即座に無視して次のループへ進むという「耐障害性（Resilience）」を担保している。

③ 確実なオブジェクトの解放と環境復元

VBAはガベージコレクタの挙動が曖昧であるため、処理の途中でエラー落ちした場合、`ScreenUpdating = False` のままWordが固まるという最悪のUXを招く。
今回は `GoTo` によるジャンプ構文を用いて、必ず `CleanUpExit` ラベルを経由させ、UIの描画フラグを復元しつつ、メモリ上のオブジェクト変数（`Set targetCell = Nothing` 等）を明示的に解放している。大規模なエンタープライズシステム連携のマクロにおいて、この後始末の美しさがエンジニアの格を分ける。

—

総括

Word VBAは、一見するとレガシーでオールドファッションな言語に思われがちだ。しかし、その内部オブジェクトモデルの挙動を完全に理解し、メモリと描画のライフサイクルをコントロール下におくことで、極めて堅牢で高速なドキュメント・オートメーション基盤に変貌する。

今回紹介したクリーンアップ機構をベースに、自社のドキュメント標準化ルールに合わせたカスタムバリデーションを組み込んでほしい。あなたの管理するシステムが、さらなる高みへ到達することを期待する。