Word VBAを「ただの自動化」で終わらせない。表を自在に操る動的ドキュメント生成術
こんにちは。現場で泥臭く、しかしエレガントに自動化を追求するエンジニアです。
皆さんは「マクロの記録」で生成された、読みにくい長大なコードに辟易したことはありませんか？Wordの表（Table）を操作しようとして、`Selection`オブジェクトの迷路に迷い込み、ドキュメントが崩壊して絶望した経験は？
今日は、そんな皆さんに「Wordの表をテンプレートエンジンとして使い倒す」という、中級者への登竜門をお見せします。ただ値を入れるだけではありません。必要に応じて行を増やし、レイアウトを組み替える。Wordを単なるワープロソフトから「動的な帳票生成マシン」へと変貌させましょう。
—
1. なぜ「ブックマーク」を起点にするのか？
Word VBAで最もやってはいけないのが、`Selection.MoveDown`などの「カーソル移動」に頼ったコーディングです。これらは画面の表示状態に依存し、処理速度が遅い上に非常に不安定です。
我々が採用すべきは「ブックマーク（Bookmark）」をアンカー（錨）にする手法です。
表の特定のセルにブックマークを仕込んでおけば、その表が何ページ目に移動しようと、行が追加されようと、VBAは正確に目的地を特定できます。これが、崩れない自動化の第一歩です。
—
2. 現場で使える「動的行追加＆値流し込み」コード
今回は、「受注リスト」というテンプレート表を想定します。データ量に応じて行を動的に増やし、各セルに値を流し込むロジックです。
Sub GenerateDynamicTable()
Dim doc As Document
Dim tbl As Table
Dim rng As Range
Dim dataList As Variant
Dim i As Long
Set doc = ActiveDocument
‘ ブックマーク「TargetTable」から表を取得
Set tbl = doc.Bookmarks(“TargetTable”).Range.Tables(1)
‘ データのサンプル（実際は配列やDBから取得してください）
dataList = Array(“製品A,1000”, “製品B,2500”, “製品C,3000”)
‘ 表の2行目（ヘッダー直後）を基準に行を追加していく
For i = LBound(dataList) To UBound(dataList)
Dim rowData As Variant
rowData = Split(dataList(i), “,”)
‘ 行を追加（一番下の行に追加）
tbl.Rows.Add
‘ 追加した行に値を書き込む
‘ Cells(行番号, 列番号) で指定するのが最も確実です
With tbl.Rows(tbl.Rows.Count)
.Cells(1).Range.Text = i + 1 ‘ No.
.Cells(2).Range.Text = rowData(0) ‘ 品名
.Cells(3).Range.Text = rowData(1) ‘ 金額
End With
Next i
MsgBox “ドキュメント生成が完了しました！”, vbInformation
End Sub
このコードの「賢いポイント」
- `Range`を活用する: `Selection`を使わず、ブックマークから直接`Table`オブジェクトへアクセスしています。
- `Rows.Add`の威力: これを使うことで、表の書式設定（罫線やフォント）を維持したまま、行だけを綺麗に増やすことができます。
—
3. 陥りやすい罠と「極限の知見」
罠1：行を増やすとブックマークが消える
`Range.Text = “値”` と代入すると、ブックマーク自体が上書きされて消滅することがあります。
対策： `Range.Text`ではなく、`Range.InsertAfter`を使うか、代入後に再度`Bookmarks.Add`でブックマークを再定義する癖をつけましょう。
罠2：表のセル内には「改行コード」が潜んでいる
Wordのセルは、末尾に必ず「セル終了記号（Chr(13) + Chr(7)）」を含んでいます。
`Cells(1, 1).Range.Text = “ABC”` とすると、この記号まで含めて上書きしてしまうことがあります。
知見： `Left(cell.Range.Text, Len(cell.Range.Text) – 2)` とすることで、純粋なテキストのみを抽出するテクニックが、中級者への分かれ道です。
—
まとめ：ここをクリアすれば「プロ」への道は近い
Word VBAの醍醐味は、「ドキュメントの構造をオブジェクトとして理解すること」にあります。
1. Selection禁止令: カーソルを動かさない。Rangeオブジェクトで仕留める。
2. ブックマークは地図: どこに何を書き込むか、名前を付けて管理する。
3. 構造を壊さない: 表の行追加は`Rows.Add`を使い、セルの書式を継承させる。
この3つを守るだけで、あなたのマクロは劇的に速く、そして堅牢になります。
プログラミングは「書くこと」よりも「どう壊れないように設計するか」が重要です。まずはこのコードをコピペして、あなたの業務のテンプレート表で試してみてください。エラーが出たら、それはシステムがあなたに「もっと深く知れ」と教えを送っている証拠です。
さあ、退屈な手作業から解放されましょう。次はどんな難問を自動化しますか？応援しています。
