【入門編】【初心者向け】表の行末に「合計」行を自動挿入し、数式フィールドを埋め込むVBA – Word VBA解析バイブル

Word VBA

2026.10.29

マクロ記録の限界を超えろ。Word VBAで「動的な合計行」を操る技術

マクロ記録の限界を超えろ。Word VBAで「動的な合計行」を操る技術

こんにちは。今日もコードを書いていますか？

「マクロの記録」機能を使って、作業を自動化しようとしたことはありますか？
実は、そこが「自動化エンジニア」への分かれ道なんです。

マクロの記録は非常に便利ですが、致命的な弱点があります。それは、「その時の状況（データの行数や位置）が少しでも変わると、二度と動かなくなる」という点です。

例えば、行数が変わる表に対して「3行目に合計を入れる」という記録を作っても、データが10行に増えた瞬間、そのマクロは無力化します。

今日は、そんな「記録マクロの呪縛」を解き放ち、データの増減に左右されない「動的な表の操作」をマスターしましょう。テーマは、表の末尾に自動で「合計行」を追加し、Wordの強力な計算機能（フィールド）を埋め込む技術です。

ここをクリアすれば、Word VBAの基本はバッチリですよ。

1. 「記録」ではなく「オブジェクト」で考える

プログラミング初学者が最初にぶつかる壁は、「画面上の動きをどうコードにするか」です。
マクロの記録は「マウスでここをクリックした」「ここを選択した」という動作（Action）を記録します。

しかし、プロの設計者は「オブジェクト（Object）」を操作します。

記録マクロ： 「今選択されている場所（Selection）に、文字を打つ」
プロのVBA： 「この表（Table）の、最後の行（Rows.Count）の、特定のセル（Cell）に、数式を入れる」

この考え方の違いが、コードの「強さ（堅牢性）」を決めるのです。

2. 実践：合計行を自動挿入するマスターコード

それでは、実際に動くコードを見てみましょう。
以下のコードは、現在カーソルがある表の最後に新しい行を追加し、1列目に「合計」、2列目に「上の行をすべて合計する数式」を流し込むものです。

Sub InsertDynamicTotalRow()
    ' ===========================================================
    ' 目的: 表の最終行に「合計」行を追加し、SUM関数を埋め込む
    ' 設計思想: Selection（選択範囲）への依存を最小限にし、
    '           Tableオブジェクトを直接制御する
    ' ===========================================================
    
    Dim targetTable As Table
    Dim lastRowIndex As Integer
    Dim targetCell As Cell
    
    ' 1. エラーハンドリング: カーソルが表の中にいない場合に備える
    On Error Resume Next
    Set targetTable = Selection.Tables(1)
    On Error GoTo 0
    
    If targetTable Is Nothing Then
        MsgBox "エラー: カーソルを表の中に置いてから実行してください。", vbCritical
        Exit Sub
    End If
    
    ' 2. 現在の最終行のインデックスを取得
    ' Rows.Count は表の全行数を返すので、これを利用して「次」の行を特定する
    lastRowIndex = targetTable.Rows.Count
    
    ' 3. 表の末尾に新しい行を追加
    targetTable.Rows.Add
    
    ' 新しく追加された行のインデックス（元の最終行 + 1）
    Dim newRowIndex As Integer
    newRowIndex = lastRowIndex + 1
    
    ' 4. 「合計」ラベルの入力
    ' 1列目の新しい行のセルを指定
    targetTable.Cell(newRowIndex, 1).Range.Text = "合計"
    
    ' 5. 【重要】SUMフィールド（数式）の挿入
    ' 単なるテキストとしての "=SUM(ABOVE)" ではなく、
    ' Wordの計算機能である「Field」として挿入するのがプロの技
    Set targetCell = targetTable.Cell(newRowIndex, 2)
    
    ' セル内の範囲（Range）に対して、数式フィールドを追加する
    ' Type:=wdFieldFormula は「数式を入れる」という命令
    ' Text:="=SUM(ABOVE)" は、Wordの標準的な合計指示
    targetTable.Range.Fields.Add _
        Range:=targetCell.Range, _
        Type:=wdFieldFormula, _
        Text:="=SUM(ABOVE)"
        
    ' 6. 仕上げ: 書式を少し整える（太字にする）
    targetTable.Cell(newRowIndex, 1).Range.Font.Bold = True
    targetTable.Cell(newRowIndex, 2).Range.Font.Bold = True
    
    MsgBox "合計行の挿入が完了しました！", vbInformation
End Sub

3. コードの深掘り：なぜこう書くのか？

このコードには、初学者がステップアップするために必要な「3つのエッセンス」が詰まっています。

① `Rows.Count` による動的な位置特定

`targetTable.Rows.Count` を使うことで、表が5行でも100行でも、常に「一番下」を特定できます。これが「記録マクロ」との決定的な違いです。

② `Field` オブジェクトの活用

ここが一番のポイントです。
単に `targetCell.Range.Text = “=SUM(ABOVE)”` と書くと、セルにはただの「文字列」が入るだけで、計算はされません。
Wordには「フィールド（Field）」という概念があり、これを使うことで、Excelのように「値が変わったら自動計算される数式」を埋め込むことができるのです。

③ オブジェクトの存在確認（エラーハンドリング）

`If targetTable Is Nothing Then` の部分は、プロが必ず書く「守り」のコードです。もしユーザーが表の外でボタンを押してしまったとき、マクロがエラーで強制終了するのを防ぎ、優しくメッセージを表示させます。

4. 陥りやすい「落とし穴」と対策

この機能を実装する際、以下の2点には注意してください。

1. セルの結合（Merge）がある場合
表の中でセルを結合していると、`Rows.Count` や `Cell(row, col)` の指定が複雑になり、エラー（実行時エラー 5941）が出ることがあります。

対策: 基本的に、計算を行う列は「結合されていない綺麗な構造」にしておくのが、自動化設計の鉄則です。

2. 数値が「文字列」として認識されている
セルの中に数字が入っていても、それが「テキスト形式」として保存されていると、`SUM(ABOVE)` が正しく計算できないことがあります。

対策: データを流し込む段階で、数値として正しく入力されるように制御しましょう。

まとめ：次の一歩へ

今回のコードを理解できれば、あなたはもう「マクロの記録」に頼るだけのユーザーではありません。

「表」というオブジェクトを掴む
「行数」というプロパティを使って位置を特定する
「フィールド」を使って高度な機能を埋め込む

この3つができるようになったことで、Word VBAの制御能力は飛躍的に向上しました。次は、この合計行の書式を自動で変更したり、特定の条件（例えば合計が予算を超えたら赤字にするなど）で色を変える処理に挑戦してみてください。

自動化の道は、一歩ずつ確実に進んでいけば必ずマスターできます。応援していますよ！