【入門編】【初心者向け】表の各セルに、現在の行番号と列番号を注釈として自動入力するデバッグ用ツール – Word VBA解析バイブル

結合セルの迷宮を攻略せよ。Word VBA開発を劇的に加速させる『座標可視化マクロ』の極意

「マクロの記録」から一歩踏み出し、いよいよ自分でコードを書き始めたあなたへ。
Word VBAの世界へようこそ。

あなたが今、直面している壁。それは、「結合されたセル」ではないでしょうか？

「2行目の3列目のセルに値を書き込みたいのに、`Table.Cell(2, 3)` と書くと『指定したセルが見つかりません』というエラーが出る……」
「結合セルが複雑すぎて、今自分が操作しているセルが、論理的に何行目の何列目なのか分からなくなった……」

安心してください。これは、Word VBAの初学者が必ずと言っていいほどぶつかる、いわば「登竜門」です。
今日は、この迷宮を突破するための最強の武器――「セル座標可視化デバッグツール」の作り方と、その裏にあるWord VBAの真実を伝授します。

これをマスターすれば、あなたは「マクロの記録」を卒業し、設計図を描けるエンジニアへの第一歩を踏み出すことになりますよ。

なぜ `Cell(r, c)` は失敗するのか？ ― Excelとの決定的な違い

まず、ここをクリアにしましょう。Excel VBAを触ったことがある人ほど、ここで躓きます。

Excelは「グリッド（格子）」の概念で動いています。たとえ結合されていても、背後には必ず「A1」「B2」という座標が存在します。
しかし、Wordのテーブルは違います。Wordのテーブルは、「Row（行）オブジェクト」と「Cell（セル）オブジェクト」の集合体なのです。

セルを結合するということは、Wordの内部構造において「それまであったセルオブジェクトを消滅させ、新しい一つの大きなセルオブジェクトに置き換える」という破壊的な操作を行っているのです。

そのため、結合によって「本来あるべきはずの座標」のオブジェクトが消えてしまうと、VBAは「そんなセルは存在しないよ！」と悲鳴を上げるわけです。

解決策：セルの「居場所」を視覚化する

複雑な表をプログラムで制御するとき、最も確実な方法は「今、目の前にあるセルが、物理的に何番目のセルなのか」を直接確認することです。

そこで、以下のマクロを用意しました。このマクロを実行すると、表の中の全セルに、そのセルの「行番号」と「列番号」をテキストとして書き込みます。

【実践】セル座標デバッグ用マクロ

このコードを標準モジュールに貼り付けてみてください。

Option Explicit

''' <summary>
''' 表の各セルに、現在の行番号と列番号を注釈として書き込むデバッグ用ツール
''' </summary>
Sub Debug_MarkTableCoordinates()
    Dim targetTable As Table
    Dim targetCell As Cell
    Dim r As Long, c As Long
    Dim i As Long
    Dim currentCellRow As Long
    Dim currentCellCol As Long
    
    ' 1. カーソルが表の中にあるかチェック
    ' Selection.Information(wdWithInTable) は、カーソルが表内なら True を返します
    If Selection.Information(wdWithInTable) = False Then
        MsgBox "表の中にカーソルを置いてから実行してくださいね。", vbExclamation, "エラー"
        Exit Sub
    End If
    
    ' 2. カーソルがある表を取得
    Set targetTable = Selection.Tables(1)
    
    ' 3. 処理の高速化：画面更新を停止（これぞプロの作法）
    Application.ScreenUpdating = False
    
    On Error GoTo ErrorHandler
    
    ' 4. 全てのセルをループ処理
    ' 「For i = 1 To Rows.Count」ではなく「For Each」を使うのが結合セル攻略の鍵！
    ' これにより、存在するセルオブジェクトだけを確実に辿ることができます
    For Each targetCell In targetTable.Range.Cells
        
        ' 現在のセルの行番号を取得
        currentCellRow = targetCell.RowIndex
        
        ' 【重要】Wordには「ColumnIndex」というプロパティが存在しません。
        ' そのため、その行の中にあるセルを数えて、何番目かを算出します。
        currentCellCol = 0
        For i = 1 To targetCell.Row.Cells.Count
            currentCellCol = currentCellCol + 1
            ' もしループ中のセルが、今見ているセルと一致したら、それが列番号
            If targetCell.Row.Cells(i).Range.Start = targetCell.Range.Start Then
                Exit For
            End If
        Next i
        
        ' 5. セルに座標を書き込む
        ' 元のテキストを消さないよう、先頭に [行, 列] を付与します
        ' ※注意：既存のデータが書き換わるため、実行前にファイルを保存しておきましょう
        targetCell.Range.Text = "[" & currentCellRow & "," & currentCellCol & "] " & targetCell.Range.Text
        
    Next targetCell
    
    Application.ScreenUpdating = True
    MsgBox "座標の書き込みが完了しました！これで迷宮の地図ができましたね。", vbInformation, "完了"
    Exit Sub

ErrorHandler:
    Application.ScreenUpdating = True
    MsgBox "エラーが発生しました: " & Err.Description, vbCritical, "エラー"
End Sub

''' <summary>
''' 書き込んだ座標を削除して、表を元に戻すためのリセット用マクロ
''' </summary>
Sub Reset_TableCoordinates()
    Dim targetTable As Table
    Dim targetCell As Cell
    Dim regEx As Object
    Set regEx = CreateObject("VBScript.RegExp")
    
    ' 正規表現の設定： "[数字,数字] " というパターンを探します
    With regEx
        .Pattern = "^\[\d+,\d+\]\s*"
        .Global = False
    End With
    
    If Selection.Information(wdWithInTable) = False Then
        MsgBox "表の中にカーソルを置いてから実行してください。", vbExclamation
        Exit Sub
    End If
    
    Set targetTable = Selection.Tables(1)
    Application.ScreenUpdating = False
    
    For Each targetCell In targetTable.Range.Cells
        ' 正規表現にマッチしたら、その部分を空文字に置換（削除）する
        If regEx.Test(targetCell.Range.Text) Then
            targetCell.Range.Text = regEx.Replace(targetCell.Range.Text, "")
        End If
    Next targetCell
    
    Application.ScreenUpdating = True
    MsgBox "座標を削除して元に戻しました。", vbInformation, "完了"
End Sub

ここがエンジニアの視点！コードの解説

このコードには、初心者から脱却するための「3つの知恵」を詰め込んでいます。

1. `For Each` によるオブジェクト走査

多くの初心者は `For i = 1 To Rows.Count` のように数字を使ってループを回そうとします。しかし、結合セルがある場合、この方法は「存在しないインデックス」を指してエラーを吐く原因になります。
`For Each targetCell In targetTable.Range.Cells` と書くことで、「今、この表の中に物理的に存在するセルだけを順番に見ていく」という、非常に安全で堅実な動きになります。

2. 「列番号」を自前で計算するロジック

ここが最大のポイントです。Excel VBAには `Cell(r, c)` がありますが、Wordの `Cell` オブジェクトには `ColumnIndex` という便利なプロパティがありません。
そこで、「そのセルの親である `Row`（行）の中にあるセルを、先頭から数えていく」というアプローチを取っています。
「足りない機能は、ロジックで補完する」。これがアーキテクトの考え方です。

3. 正規表現（RegExp）による「元に戻す」機能

デバッグツールは便利ですが、書き込んだ座標がそのまま残ってしまうと実用的ではありません。
`Reset_TableCoordinates` では、正規表現という技術を使っています。`^\[\d+,\d+\]\s*` というパターンを指定することで、「先頭にある `[数字,数字] ` という文字列だけをスマートに消去」しています。

まとめ：迷宮を地図に変えて進もう

プログラミングにおいて、エラーは「敵」ではありません。「ここを理解していないよ」と教えてくれる、親切なガイドです。

今回紹介したツールを使えば、複雑な結合セルも「あぁ、ここは物理的に3行目の2番目のセルなんだな」と一目で分かります。この「視覚化」こそが、デバッグ（バグを見つける作業）の第一歩であり、最も重要な工程です。

「マクロの記録」で生成されたコードを眺めて、「なぜ動かないんだろう？」と悩む時間は、今日で終わりにしましょう。
このツールを手に、あなたのコードに「確信」を持って書き込んでいってください。

ここをクリアすれば、Word VBAの基本はバッチリですよ。応援しています！