【脱・マクロ記録】Word VBAの真髄：クラスモジュールで「書式エンジン」を構築する
Word VBAを触り始めたばかりの頃、誰もが通る道があります。`Selection.Font.Name = “ＭＳ 明朝”` といった「操作の羅列」です。しかし、ドキュメントの規模が大きくなると、この手法はすぐに限界を迎えます。
「見出しのスタイルを変えたいが、あちこちにコードが散らばっていて修正できない」
「似たような書式を何度も書くのが面倒だ」
もしあなたがそう感じているなら、おめでとうございます。「手続き的な記述」から「オブジェクト指向的な設計」へ脱皮するタイミングです。今日は、Word VBAを「操作」するのではなく、クラスモジュールを使って「書式エンジン」を構築する、プロフェッショナルな手法を伝授します。
—
1. なぜ「クラス」を使うのか？
Wordの`Paragraph`オブジェクトや`Font`オブジェクトを直接叩くのは、言わば「手作業で一つずつネジを締める」ようなものです。一方、クラスモジュールを作ることは「専用の自動組立機」を設計することに等しい。
クラスを使うメリットは3つです。
1. 抽象化: 「見出しを作る」という目的だけを意識すればよくなる。
2. 保守性: 書式定義を一箇所に集約できる。
3. 可読性: `SetStyle` のような直感的な命令で制御できる。
—
2. 書式エンジンの中核：クラスモジュールの設計
まずは、VBE（Visual Basic Editor）で「クラスモジュール」を挿入し、名前を `ParagraphStyler` としてください。
‘ クラスモジュール: ParagraphStyler
Option Explicit
‘ 内部で保持する段落オブジェクト
Private pPara As Paragraph
‘ 初期化メソッド：どの段落を操作するかを注入する（依存性の注入）
Public Sub Initialize(targetPara As Paragraph)
Set pPara = targetPara
End Sub
‘ 「見出し」として書式を適用するメソッド
Public Sub ApplyHeadingStyle(fontSize As Single, fontName As String, isBold As Boolean)
If pPara Is Nothing Then Exit Sub
With pPara.Range.Font
.Name = fontName
.Size = fontSize
.Bold = isBold
.Color = wdColorDarkBlue
End With
‘ 段落前後の余白もセットで管理する
pPara.Format.SpaceBefore = 12
pPara.Format.SpaceAfter = 6
End Sub
このクラスは、特定の段落を「受け取り」、あらかじめ定義されたルールに従って「変身させる」役割を担います。
—
3. 書式エンジンを呼び出す（実行用コード）
次に、標準モジュールでこのエンジンを動かしてみましょう。ここでのポイントは、「操作の命令」をクラスに丸投げすることです。
‘ 標準モジュール
Sub Main()
Dim doc As Document
Dim p As Paragraph
Dim styler As ParagraphStyler
Set doc = ActiveDocument
Set styler = New ParagraphStyler
‘ ドキュメント内の全段落を走査
For Each p In doc.Paragraphs
‘ もし特定の条件（例：文字数が少ない＝見出しの可能性がある）なら適用
If Len(p.Range.Text) < 20 Then
styler.Initialize p
styler.ApplyHeadingStyle 16, "ＭＳ ゴシック", True
End If
Next p
MsgBox "自動装飾が完了しました。"
End Sub
---
4. 陥りやすい「罠」と解決策
初心者がよくやる失敗が、`Selection`オブジェクトへの過度な依存です。
- 罠: `Selection.Paragraphs(1)` を多用する。
- 理由: ユーザーのカーソル位置に左右されるため、実行のたびに結果が変わる不安定なコードになります。
- 解決: 今回のように `Document.Paragraphs` コレクションを直接操作するか、`Range`オブジェクトを引数として渡す設計にしましょう。
また、「オブジェクトの解放」も重要です。巨大なドキュメントを処理する際は、ループ内で生成したオブジェクトを適切にクリア（`Set styler = Nothing` 等）する意識を持つと、メモリリークを防ぎ、驚くほど高速に動作します。
—
最後に：ここをクリアすれば、あなたはエンジニアです
「マクロの記録」は便利なツールですが、それはあくまで「Wordがどう動いているかを知るための辞書」に過ぎません。
今回紹介した「クラスによる抽象化」は、一見遠回りに見えるかもしれません。しかし、ドキュメントの構造が複雑になればなるほど、この構造があなたの時間を劇的に節約し、修正の恐怖から解放してくれるはずです。
Word VBAは単なる自動化ツールではありません。あなたの手でドキュメントを「制御」するための強力なフレームワークです。ぜひ、今日から「コードを書く」のではなく「エンジンを設計する」視点を取り入れてみてください。
さあ、次はどんなドキュメントを「自動生成」しましょうか？ 応援しています。
