【実務・中級編】【初心者向け】表の行数を動的に取得し、指定した行数に達するまで空行を追加し続けるVBA – Word VBA解析バイブル

「動く」コードではなく「壊れない」設計を。Word VBAにおける表レイアウト制御の極意

業務自動化の現場において、プログラマが直面する最も泥臭く、かつ致命的な問題の一つが「帳票レイアウトの崩壊」である。

データが少ない時に表がスカスカになり、見た目が美しくない。あるいは、データが溢れた時に既存のフォーマットが破壊される。こうした「見た目の不一致」は、ユーザーにとっては「ツールが使いにくい」という直感的な不満に直結し、システムの信頼性を著しく低下させる。

今回扱うテーマは、「表の行数を動的に制御し、最小限のレイアウトを維持する」という、一見シンプルに見えて実は奥深い設計思想についてだ。初心者が陥りがちな「Selection（選択範囲）」への依存を脱却し、プロフェッショナルが書くべき「オブジェクト指向的な堅牢なコード」を伝授する。

1. なぜ、あなたの書いた「行追加」は失敗するのか

多くの初学者は、以下のようなコードを書く。

' 【アンチパターン：現場で通用しないコード】
Sub BadExample()
    Dim i As Integer
    ' 選択している表の末尾に、とりあえず行を追加する
    For i = 1 To 5
        Selection.Tables(1).Rows.Add
    Next i
End Sub

このコードには、プロフェッショナルの視点から見ると3つの致命的な欠陥がある。

① Selectionへの依存（脆弱性）

`Selection`（現在マウスで選択している場所）を起点にする設計は、極めて危険だ。ユーザーが意図しない場所をクリックした瞬間に、プログラムは全く別の箇所を操作し、最悪の場合、文書構造を破壊する。

② 計算ロジックの欠如（非効率）

「指定した行数に達するまで追加する」という要件に対し、単純なループを回すだけでは不十分だ。現在の行数を正確に把握し、「あと何行足りないのか」という差分（Delta）を計算して動くのが、計算資源を最適化するエンジニアの作法である。

③ 書式（Style）の無視（品質不足）

`Rows.Add` を実行しただけでは、直前の行の書式（罫線、背景色、フォント）が正しく継承されないケースがある。帳票において、見た目の統一性は「品質」そのものだ。

2. 堅牢な設計思想：オブジェクト・ドリブン・アプローチ

プロフェッショナルは、`Selection` ではなく `Table` オブジェクトを直接、かつ明確に指定する。また、処理を「データの流し込み」と「レイアウトの調整」に分離（Separation of Concerns）して設計する。

設計の3原則

1. 対象の特定: 文書内のどのテーブルを操作するか、IDやブックマークで厳格に定義する。
2. 差分の算出: `TargetRows – CurrentRows` を計算し、正の値の場合のみ追加処理を行う。
3. 書式の同期: 追加された行に対して、テンプレートとなる行の書式を明示的に適用する。

3. 【プロダクションコード】表の行数制御エンジン

以下に、実務でそのまま利用可能な、堅牢性を極めたコードを示す。このコードは、単に行を追加するだけでなく、書式の継承まで考慮した設計になっている。

''**
'' Module: TableController
'' Description: 表の行数制御およびレイアウト維持のためのユーティリティ
'' Author: Chief Architect
''**

Option Explicit

''' <summary>
''' 指定したテーブルの行数を、最小行数（minRows）に達するまで動的に追加する。
''' </summary>
''' <param name="targetTable">操作対象のWord Tableオブジェクト</param>
''' <param name="minRows">維持すべき最小行数（ヘッダーを除くデータ行数）</param>
''' <returns>成功した場合はTrue</returns>
Public Function EnsureMinimumRows(ByRef targetTable As Table, ByVal minRows As Long) As Boolean
    On Error GoTo ErrorHandler

    Dim currentRowCount As Long
    Dim rowsToAdd As Long
    Dim i As Long
    Dim templateRow As Row
    
    ' 1. 現在の行数を取得（ヘッダーが1行目にあると想定）
    ' 業務要件に基づき、ヘッダーを除いた「データ行数」で判定を行う
    currentRowCount = targetTable.Rows.Count - 1
    
    ' 2. 追加が必要な行数を計算
    rowsToAdd = minRows - currentRowCount
    
    ' 3. 追加が必要な場合のみ実行
    If rowsToAdd > 0 Then
        ' 書式継承用のテンプレート行（既存の1行目と仮定）をセット
        ' ※データが全くない極端なケースは別途考慮が必要
        Set templateRow = targetTable.Rows(2) 
        
        For i = 1 To rowsToAdd
            ' 行の追加
            Dim newRow As Row
            Set newRow = targetTable.Rows.Add
            
            ' 4. 書式の同期（ここがプロの仕事）
            ' 罫線、背景色、フォントなどのプロパティをテンプレートからコピー
            Call CopyRowFormat(templateRow, newRow)
        Next i
    End If

    EnsureMinimumRows = True
    Exit Function

ErrorHandler:
    Debug.Print "Error in EnsureMinimumRows: " & Err.Description
    EnsureMinimumRows = False
End Function

''' <summary>
''' 行の書式をコピーするプライベートメソッド
''' </summary>
Private Sub CopyRowFormat(ByRef sourceRow As Row, ByRef destRow As Row)
    On Error Resume Next
    ' 背景色のコピー
    destRow.Shading.BackgroundPatternColor = sourceRow.Shading.BackgroundPatternColor
    ' 罫線のコピー（簡易実装。必要に応じて詳細に定義）
    destRow.Range.Font.Name = sourceRow.Range.Font.Name
    destRow.Range.Font.Size = sourceRow.Range.Font.Size
    ' 垂直方向の配置
    destRow.Cells.VerticalAlignment = sourceRow.Cells.VerticalAlignment
    On Error GoTo 0
End Sub

''' <summary>
''' 実装テスト用メインルーチン
''' </summary>
Sub TestTableAutomation()
    Dim doc As Document
    Set doc = ActiveDocument
    
    ' 文書内の最初の表をターゲットにする（実務ではブックマーク等で指定すべき）
    If doc.Tables.Count = 0 Then
        MsgBox "対象となる表が見つかりません。", vbCritical
        Exit Sub
    End If
    
    Dim myTable As Table
    Set myTable = doc.Tables(1)
    
    ' 例：データが少なくても、最低5行のデータ行を確保したい場合
    ' (ヘッダー1行 + データ5行 = 合計6行)
    Dim success As Boolean
    success = EnsureMinimumRows(myTable, 5)
    
    If success Then
        MsgBox "レイアウトの最適化が完了しました。", vbInformation
    Else
        MsgBox "エラーが発生しました。ログを確認してください。", vbExclamation
    End If
End Sub

4. 外部連携（DB/Excel）における実装の要諦

実務では、このVBAは「Excelのリスト」や「SQL Serverのデータ」から値を流し込むプロセスの一部として機能する。その際の設計パターンは以下の通りだ。

推奨されるワークフロー

1. Pre-Process (事前処理):
データを流し込む前に、`EnsureMinimumRows` を実行して「器（テーブル）」のサイズを確定させる。
2. Data Injection (データ注入):
確定した行に対して、ループ処理で値を書き込む。
3. Post-Process (事後処理):
もしデータが指定した最小行数を超えた場合、`Rows.Add` を使って動的に「拡張」する。

【重要】 データを流し込みながら行を追加するコードは、インデックスの管理が極めて複雑になり、バグの温床となる。必ず「器を先に作る」→「中身を詰める」という順序を徹底せよ。

5. 結論：エンジニアとしての矜持

「とりあえず行が増えればいい」という考えは、単なる作業員の発想だ。
「どのようなデータが来ても、常に規定のフォーマットを維持し、ユーザーにストレスを与えない」という考えこそが、アーキテクトの視点である。

今回紹介した `EnsureMinimumRows` のような、「状態を担保する関数」をライブラリ化しておくこと。それが、保守性が高く、信頼される業務自動化ツールを構築するための第一歩となる。

コードを書くときは常に自問自えよ。
「このコードは、ユーザーが予期せぬ操作をした時、あるいは予期せぬデータを受け取った時に、美しく振る舞えるか？」と。