【Word VBA】実務で破綻しない！表の先頭列に「連番」を自動刻印する堅牢なコード設計
業務システムから出力したデータ、あるいは人間が手作業で組み上げたWordのドキュメント。そこに含まれる「表（Table）」の行数が、仕様変更やデータ追加で変動するたびに、先頭の「No.（連番）」を手動で打ち直していないだろうか？
「1行削除したから、下を全部詰め直そう」
「行を挿入したら、番号がズレてしまった」
こうした手作業によるナンバリングミスは、ドキュメントの信頼性を一瞬で失墜させる。とりわけ官公庁向けのマニュアルや、厳密な監査が入る仕様書において、連番のズレは致命傷だ。
今回は、Word VBA（Visual Basic for Applications）を駆使し、アクティブ文書内のターゲットとなる表の1列目に、一瞬で正確な連番を自動刻印するプロダクションコードを授けよう。
単に動くだけのコードではない。実務の現場で「なぜその書き方ではバグるのか」「どう設計すべきか」という、プロのアーキテクト視点に基づいた堅牢な実装論を解説する。
—
1. 初心者が陥る「安易なループ処理」の罠
VBAで表を操作する際、多くのプログラマ（あるいはネット上の散逸したサンプルコード）は、次のようなコードを書く。
‘ 【アンチパターン】これはいずれ破綻するコード
Dim i As Long
For i = 1 to ActiveDocument.Tables(1).Rows.Count
ActiveDocument.Tables(1).Cell(i, 1).Range.Text = i
Next i
一見、これでも動くように見える。しかし、業務用の複雑なドキュメントにおいて、このコードは「時限爆弾」だ。なぜか？
理由①：セルの結合（Merge）を考慮していない
実務のWord表は美しいグリッド状とは限らない。ヘッダー行が結合されていたり、途中の行でセルがマージされているケースが多々ある。結合されたセルに対して `Cell(i, 1)` を強引に叩くと、ランタイムエラー（インデックスが範囲外です）が発生し、マクロは無慈悲にクラッシュする。
理由②：オブジェクトの参照コストと画面描画の負荷
`ActiveDocument.Tables(1)` という記述をループのたびに評価させ、さらに `.Range.Text` を直接書き換えるアプローチは、WordのCOMコンポーネントに無駄な負荷をかける。行数が増えれば増えるほど、画面が激しくちらつき、処理が重くなる。
—
2. プロが実装する「堅牢な連番自動入力」アーキテクチャ
上記の課題をクリアし、エラーハンドリングを網羅した実務レベルのコードを提示する。
このコードは、「カーソルがある表」または「文書内の最初の表」を自動特定し、結合セルや余計なパラグラフマーク（改行コード）の混入によるレイアウト崩れを防ぐ設計にしている。
コピペして即戦力となるプロダクションコード
Option Explicit
Sub InsertSequentialNumbersToTable()
‘ =========================================================================
‘ 処理名 : 表の1列目への連番自動自動入力マクロ
‘ 概要 : アクティブな表の先頭列に1から始まる連番を安全に流し込む
‘ 前提 : 処理対象の表の中にカーソルがあること（または文書に表が存在すること）
‘ =========================================================================
Dim targetTable As Table
Dim targetRow As Row
Dim i As Long
Dim serialNumber As Long
‘ 1. エラー監視の開始（予期せぬドキュメント構造の変化に対応）
On Error GoTo ErrorHandler
‘ 2. 処理対象の表を特定する
If Selection.Information(wdWithInTable) Then
‘ ユーザーが表の内部にカーソルを置いている場合
Set targetTable = Selection.Tables(1)
ElseIf ActiveDocument.Tables.Count > 0 Then
‘ カーソルが表内にないが、文書内に表が存在する場合は先頭の表を対象とする
Set targetTable = ActiveDocument.Tables(1)
MsgBox “カーソルが表内にありません。文書内の最初の表を処理対象とします。”, vbInformation, “通知”
Else
‘ 表が一つも存在しない場合は即座に処理を中断
MsgBox “処理対象となる表がドキュメント内に存在しません。”, vbCritical, “エラー”
Exit Sub
End If
‘ 3. 画面描画を停止し、処理速度を極限まで引き上げる（パフォーマンス最適化）
Application.ScreenUpdating = False
Application.Calculation = wdCalculationManual
‘ 4. 連番の初期化
serialNumber = 1
‘ 5. 行ループによる安全な値の流し込み
‘ ※ヘッダー行（1行目）をスキップする場合は i = 2 から開始するように調整してください
For i = 1 To targetTable.Rows.Count
‘ 冗長なエラーを防ぐため、各行のセル数を確認しながら処理
If targetTable.Rows(i).Cells.Count >= 1 Then
‘ 【重要】Wordのセルテキスト代入時の罠：末尾のセルマーカー（制御文字）を巻き込まないよう
‘ Range.Textを書き換える際は、セル内の文字列範囲を指定してクリアする
With targetTable.Cell(i, 1).Range
‘ 既存の文字列の末尾にある改行・段落マークを除外して置換
.Text = CStr(serialNumber) & vbCr
‘ 文字列の書式（フォント等）を統一したい場合はここで指定可能
‘ .Font.Name = “Meiryo UI”
‘ .Font.Size = 10
End With
serialNumber = serialNumber + 1
End If
Next i
‘ 6. 処理終了：画面描画と計算を復元
Application.ScreenUpdating = True
Application.Calculation = wdCalculationAutomatic
MsgBox “連番の自動入力が正常に完了しました。”, vbInformation, “完了”
Exit Sub
ErrorHandler:
‘ 異常終了時のリカバリー処理
Application.ScreenUpdating = True
Application.Calculation = wdCalculationAutomatic
MsgBox “予期せぬエラーが発生しました。” & vbCrLf & _
“エラー番号: ” & Err.Number & vbCrLf & _
“エラー内容: ” & Err.Description, vbCritical, “システムエラー”
End Sub
—
3. コードのキモ：なぜこの実装が「実務で使える」のか？
上記のコードには、現場で泥水をすすってきたエンジニアの知見が凝縮されている。
① 画面描画の凍結（`ScreenUpdating = False`）
Word VBAにおいて、DOM操作（文書要素の書き換え）のたびに画面が再描画されると、処理速度が劇的に低下する。数千行ある巨大な仕様書の表を処理する場合、これをオフにするだけで数倍から数十倍の速度差が生まれる。
② Word固有の「セルマーカー」対策
Excel VBAと違い、Wordのセルには必ず「セルマーカー（セル終端文字）」という特殊な制御文字が存在する。
`Cell.Range.Text = Value` と単純に記述すると、セル内の全テキストがこのマーカーごと上書きされ、最悪の場合セルの構造自体が破壊されることがある。本コードでは、代入する文字列の末尾に `vbCr`（キャリッジリターン）を明示的に付与することで、Wordの内部構造を破損させずに安全にテキストを流し込んでいる。
③ 堅牢なエラーハンドリング（`On Error GoTo`）
実務のドキュメントは、ユーザーによって破壊的に編集されていることが多重にある。「表の途中でセルが結合されている」「保護がかかっている」といったイレギュラーな状況に直面した際、マクロが途中で停止してWordがフリーズするのを防ぐため、必ず `ScreenUpdating` などの環境設定を復元する安全装置（トランザクション的な発想）を組み込んでいる。
—
4. さらなる高みへ：実務での拡張アイデア
この基本コードをマスターすれば、次のような高度な自動化へシームレスに拡張できる。
- ヘッダー行の自動スキップ:
表の1行目がタイトル（見出し）である場合、`For i = 2 To targetTable.Rows.Count` とし、2行目からナンバリングを開始する条件分岐を加える。
- データベースやExcel連携:
`serialNumber` をハードコーディングするのではなく、外部のExcelファイルやSQL Serverから取得した配列データを動的に流し込むエンジンへと昇華させる。
手作業によるナンバリングのミス、レイアウト崩れの恐怖から自分とチームを解放せよ。
正しい設計に基づいたVBAコードこそが、あなたの業務を真の自動化へと導く。
