Word VBAを極める：オブジェクト指向による「書式管理フレームワーク」の構築
Word VBAでドキュメントを自動生成する際、多くの開発者が陥る罠がある。それは、`Selection`や`Range`を直接操作し、散らばったプロパティをその都度設定する「スパゲッティコード」だ。
「段落のインデントを10ptに、フォントはメイリオの12pt、行間は固定値20pt…」といった設定をコードの至る所に散りばめれば、仕様変更のたびに地獄を見る。今回は、この泥沼から脱出し、段落書式を「オブジェクト」として抽象化するプロフェッショナルな設計手法を伝授する。
—
1. なぜ「直接操作」が罪なのか
Wordの`Paragraph`や`Font`オブジェクトは、ドキュメントのライフサイクルと密接に結びついている。これらを場当たり的に操作することは、以下の負債を生む。
- カプセル化の欠如: どのプロパティがどの書式を制御しているのか不明瞭になり、保守コストが爆発する。
- パフォーマンスの劣化: `Selection`を多用すると、Wordの描画エンジンが都度再計算を行い、大規模ドキュメントでは劇的に動作が重くなる。
- 再利用性の放棄: 同じ書式を別のツールで使いたいとき、コピペ以外の手がなくなる。
これを解決するのは、「書式定義をデータとして保持し、適用時にのみWordへコミットする」という設計だ。
—
2. 構築：ParagraphStyleクラスの設計
まずは、書式設定を保持するクラスモジュール `clsParagraphStyle` を作成する。
クラスモジュール：`clsParagraphStyle`
Option Explicit
‘ 保持する書式プロパティ
Public FontName As String
Public FontSize As Single
Public LineSpacingRule As WdLineSpacing
Public LineSpacing As Single
Public LeftIndent As Single
Private Sub Class_Initialize()
‘ デフォルト値の定義
FontName = “游ゴシック”
FontSize = 10.5
LineSpacingRule = wdLineSpaceExactly
LineSpacing = 18
LeftIndent = 0
End Sub
‘ 適用対象のRangeを受け取り、一気に反映する
Public Sub Apply(targetRange As Range)
With targetRange
With .Font
.Name = Me.FontName
.Size = Me.FontSize
End With
With .ParagraphFormat
.LineSpacingRule = Me.LineSpacingRule
.LineSpacing = Me.LineSpacing
.LeftIndent = Me.LeftIndent
End With
End With
End Sub
—
3. 実践：フレームワークの活用
次に、標準モジュールでこのクラスを呼び出す。特筆すべきは、「書式定義」と「文書生成」を分離している点だ。
標準モジュール：`modMain`
Sub GenerateDocument()
Dim doc As Document
Set doc = Documents.Add
‘ 書式を定義
Dim headerStyle As New clsParagraphStyle
headerStyle.FontSize = 16
headerStyle.FontName = “Arial”
Dim bodyStyle As New clsParagraphStyle
bodyStyle.FontSize = 10.5
‘ 文書生成
Call WriteSection(doc, “序章”, headerStyle)
Call WriteSection(doc, “ここに本文が来る。”, bodyStyle)
End Sub
Private Sub WriteSection(doc As Document, text As String, style As clsParagraphStyle)
Dim rng As Range
Set rng = doc.Content
rng.Collapse wdCollapseEnd
rng.InsertAfter text & vbCrLf
style.Apply rng.Paragraphs.Last.Range
End Sub
—
4. 伝説的エンジニアからの提言：堅牢な実装のために
この設計を現場に投入するにあたり、以下の3点に注意せよ。
1. Rangeの再利用を避ける: Word VBAにおいて最もバグを誘発するのは、Rangeの誤った拡張だ。必ず`Paragraphs.Last.Range`のように、操作対象の範囲をその都度明確に取得すること。
2. データベース/外部ファイル連携: 書式情報をJSONやCSVで管理する際は、`ScriptControl`（古い環境）や`VBA-JSON`ライブラリを使用せよ。クラスの各プロパティをJSONからロードする`LoadFromJSON`メソッドを実装すれば、コードを一切修正せずに書式を外出し管理できる。
3. エラーハンドリング: `Apply`メソッド内でプロパティ値を検証（バリデーション）せよ。例えば、`FontSize`が負の値になっていないか、`LineSpacing`が許容範囲内か。単なる代入ではなく、setterを通した制御を行うことが堅牢なシステムの第一歩だ。
まとめ
書式をクラスでラップすることは、単なる「コードの整理」ではない。それは、Wordという複雑で気まぐれなドキュメントエンジンに対して、開発者が主導権を握るための構造化だ。
このフレームワークを使えば、どれほど複雑なドキュメント作成依頼が来ても、あなたは「どのクラスをインスタンス化するか」を決めるだけで終わる。真の自動化エンジニアは、常に「次回の改修」を楽にするための設計を行うものだ。さあ、今すぐ既存のスパゲッティコードをクラスで包み込み、優雅なコードベースへ昇華させよ。
