Word VBAで「動く報告書」を作る：SQL Serverと表データを同期させる極意
こんにちは。自動化の世界へようこそ。
マクロの記録で生成された「冗長なコード」に別れを告げ、システムエンジニアとしての一歩を踏み出したいあなたへ。
今日は、ただの表作成を超えた「Word VBAとSQL Serverの双方向同期」という、実務の最前線で求められるアーキテクチャの核心をお話しします。Wordを単なるワープロソフトではなく、データベースの「プレゼンテーション層」として使いこなすための知見を授けましょう。
—
1. なぜ「同期」が必要なのか？
Wordの表に手入力でデータを打ち込む時代は終わりました。しかし、PDFや紙で出力されるWordのフォーマットは、現場の業務プロセスにおいて依然として強力です。
「DBの正解データ」と「Word上の表示」に乖離が生まれたとき、人間が手作業で修正するのはミスの元。「差分を検知し、必要なセルだけを更新する」。このロジックこそが、業務自動化の真髄です。
—
2. 実装の要諦：オブジェクトのライフサイクルを制御する
Wordの`Table`オブジェクトは、Excelの`Range`よりも遥かに気難しい存在です。特に「セルの結合」が含まれる場合、インデックスの管理を誤ると一瞬でエラーの迷宮入りします。
陥りやすい罠：行の追加とインデックスのズレ
表の行を操作する際、上から順にループ処理を行うと、行を追加した瞬間にインデックスが狂います。「後ろから処理する」、これがWord VBAの鉄則です。
—
3. 実践コード：SQL Serverとの差分同期ロジック
今回は、ADO (ActiveX Data Objects) を使用してSQL Serverに接続し、Word上の表と値を比較する最小構成のコードを紹介します。
‘ 参照設定: Microsoft ActiveX Data Objects 6.1 Library を有効にしてください
Sub SyncWordTableWithSQL()
Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim tbl As Table
Dim i As Long
‘ 1. DB接続
Set conn = New ADODB.Connection
conn.ConnectionString = “Provider=SQLOLEDB;Data Source=YOUR_SERVER;Initial Catalog=YOUR_DB;Integrated Security=SSPI;”
conn.Open
‘ 2. 表の特定（アクティブドキュメントの最初の表）
Set tbl = ActiveDocument.Tables(1)
‘ 3. データの比較と更新（2行目から最終行まで）
‘ ※結合セルを避けるため、各行の特定の列をキーとして比較
For i = 2 To tbl.Rows.Count
Dim keyVal As String
keyVal = CleanCellText(tbl.Cell(i, 1).Range.Text) ‘ ヘルパー関数でゴミを除去
‘ SQLで値を取得
Set rs = conn.Execute(“SELECT Status FROM TaskTable WHERE TaskID = ‘” & keyVal & “‘”)
If Not rs.EOF Then
‘ 差分があれば更新（不必要な書き込みはWordを重くするため条件分岐が必須）
If tbl.Cell(i, 2).Range.Text <> rs!Status Then
tbl.Cell(i, 2).Range.Text = rs!Status
End If
End If
rs.Close
Next i
conn.Close
MsgBox “同期完了しました。”, vbInformation
End Sub
‘ Wordのセル特有の終了記号(Chr(13) + Chr(7))を除去する関数
Function CleanCellText(txt As String) As String
CleanCellText = Left(txt, Len(txt) – 2)
End Function
—
4. このコードを「現場レベル」に引き上げるための知見
① データの「ゴミ」を掃除せよ
Wordのセルの中身を取得すると、必ず最後に`Chr(13) & Chr(7)`という制御文字が付随します。これをそのままDBのキーと照合しようとすれば、当然マッチングは失敗します。上記の`CleanCellText`関数のような処理を必ず挟んでください。
② 更新は「最小単位」で
Wordの表全体の値を毎回全クリアして再描画するのは、描画負荷が高く、ユーザーにとってもストレスです。「変更があったセルのみ値を書き換える」という条件分岐（`If`文）を丁寧に入れるだけで、処理速度は劇的に向上します。
③ エラーハンドリングは「オブジェクトの解放」を忘れずに
`On Error GoTo ErrorHandler` を必ず入れ、エラー発生時には確実に `conn.Close` と `Set conn = Nothing` を実行してください。接続を掴んだままWordがフリーズすると、DB側にロックが残り、業務が止まります。
—
最後に：エンジニアとしてのマインドセット
Word VBAは「古い技術」だと言う人もいます。しかし、現場の人間にとっては「最も使い慣れたインターフェース」であり、そこにデータを自動で流し込む技術は、現場の生産性を10倍にする魔法です。
まずはこのコードをコピペして、あなたの環境のDBに合わせて動かしてみてください。
「動いた！」という感動の先には、単なる自動化を超えた、業務プロセスそのものを設計するエンジニアとしての視界が広がっているはずです。
何か詰まったら、いつでも聞いてください。私たちは「動くコード」を通じて、世界を少しずつ効率化していきましょう。
