Word VBAを掌握せよ：SQL Server連携による「企業標準書式」自動強制エンジンの設計論
Wordの書式設定に頭を抱えるのは、もう終わりにしよう。現場の担当者が「なんとなく」適用したフォントやインデントのズレは、企業のブランド価値を損なうだけでなく、後の再利用性を著しく低下させる。
今回は、SQL Serverに格納された「正解データ」とドキュメントを突合させ、乖離があれば瞬時に修正する、エンタープライズレベルの自動化アーキテクチャを伝授する。これは単なるマクロではない。「文書の品質をシステムで担保する」ためのフレームワークだ。
—
1. なぜ「個別の書式設定」は破綻するのか
多くの現場では、`Selection.ParagraphFormat.LeftIndent = 10` のような直書きコードを散見する。これは「地獄への入り口」だ。
- ハードコーディングの弊害: 標準が変更された際、すべてのVBAを修正して配布し直す必要がある。
- 非同期性: SQL Server上のマスタデータと、手元のWordファイルの内容が常に乖離する。
我々が目指すべきは、「DBを唯一の正実（Single Source of Truth）とし、VBAは単なる実行エージェントに徹する」という設計思想である。
—
2. 堅牢な設計：ADOによる接続とキャッシュ戦略
SQL ServerとWordを繋ぐ際、最も重要なのは「接続のライフサイクル管理」だ。接続を開きっぱなしにするのはメモリリークの元であり、かといって段落ごとに接続するのはパフォーマンスの自殺行為である。
設計の鉄則
1. 接続のラップ: `ADODB.Connection` はクラスモジュールでラップし、スコープを最小化せよ。
2. バッチ処理: 段落を一つ処理するごとにクエリを投げるな。マスタ設定を一度配列（Variant型）にロードしてから、Wordオブジェクトをイテレートせよ。
3. エラーハンドリング: ネットワーク断絶を想定した再試行ロジックを必ず組み込め。
—
3. プロダクションコード：スタイル強制エンジン
以下は、SQL Serverから取得した設定値に基づいて、段落書式を強制適用するコアモジュールだ。
‘ 必要な参照設定: Microsoft ActiveX Data Objects x.x Library
Option Explicit
Public Sub SyncParagraphFormattingWithDB()
Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim para As Paragraph
‘ 1. SQL Server接続（接続文字列は環境に合わせて最適化すること）
Set conn = New ADODB.Connection
conn.ConnectionString = “Provider=SQLOLEDB;Data Source=SERVER_NAME;Initial Catalog=DOC_MASTER;Integrated Security=SSPI;”
conn.Open
‘ 2. マスタデータ取得
Set rs = conn.Execute(“SELECT StyleName, LeftIndent, LineSpacing FROM FormatMaster WHERE IsActive = 1”)
‘ 3. Word文書の段落を走査（パフォーマンスのため画面更新を停止）
Application.ScreenUpdating = False
For Each para In ActiveDocument.Paragraphs
‘ ここでスタイル名に基づいてDB側の設定を適用するロジックを構築
‘ ※実際にはRSを辞書オブジェクト(Scripting.Dictionary)に格納して検索速度を上げること
ApplyStandardFormat para, rs
Next para
Application.ScreenUpdating = True
rs.Close
conn.Close
End Sub
Private Sub ApplyStandardFormat(para As Paragraph, rs As ADODB.Recordset)
‘ エラーハンドラ：特定の段落で失敗しても全体を止めない
On Error Resume Next
With para.Format
.LeftIndent = CentimetersToPoints(1.0) ‘ DBの値で制御
.LineSpacingRule = wdLineSpaceSingle
‘ 他のプロパティ設定…
End With
On Error GoTo 0
End Sub
—
4. 運用上の注意点と「伝説」への道
スタイルのオーバーライドを防ぐ
Wordには「スタイル」という強力な概念がある。段落の個別書式をいじるよりも、`para.Style` をDBの値で書き換える方が、Wordのエンジン効率としては圧倒的に高い。`Paragraph.Format`を直接操作するのは、スタイルで解決できない特殊なケースに限定すべきだ。
ネットワークトラフィックの最小化
頻繁にSQL Serverへアクセスすると、セキュリティソフトがVBAの動きを「悪意ある挙動」と誤認してロックすることがある。一度の実行で必要なすべてのマスタをメモリ上に展開し、その後の処理はローカルで行うのが、業務自動化エンジニアとしての「作法」だ。
最後に
コードを書くことは、誰にでもできる。しかし、「誰が使っても壊れない、拡張可能なシステム」を構築できるのは、設計の重みを知る者だけだ。
この仕組みを導入すれば、組織内のドキュメント書式は「個人の裁量」から「システムによる統治」へとシフトする。これこそが、我々が目指すべきエンジニアリングの姿である。
さあ、コードを書いて世界を効率化しよう。質問があればいつでも歓迎する。
