こんにちは！Word VBAの世界へようこそ。
マクロの記録ボタンを押して、生成されたコードの山に圧倒されていませんか？「なんだかよく分からないけれど動くからいいや」と、文字サイズやフォントの色をチマチマとコードで指定してしまう……。実は、それこそが「保守しにくい壊れやすいマクロ」を生み出す原因なんです。
今回は、プロのエンジニアが実践している「スタイルをVBAで完全制覇する」ための極意を伝授します。ここをクリアすれば、あなたのWord VBAのスキルは一気にプロの領域へ到達しますよ。
—
なぜ「直接書式」ではなく「スタイル」なのか？
Wordで文書を作るとき、こんな絶望を味わったことはありませんか？
- 「見出しのフォントを明朝体からゴシック体に変えてほしい」と言われ、100ページある文書を最初からめくって手動で直した。
- コピペを繰り返したら、あちこちで文字サイズや行間がバラバラになった。
素人がやりがちなのは、プログラムから `Selection.Font.Size = 14` のように、「その場しのぎの直接書式（ダイレクトフォーマット）」を当てまくることです。これは、砂の上にビルを建てるようなもの。少しレイアウト変更が入っただけで、文書全体が崩壊します。
一方、プロは「スタイル（Style）」を使います。「見出し1」「標準」「箇条書き」といった役割（セマンティクス）だけを段落に指示し、見た目のデザイン（フォント、色、余白など）はスタイル側に一任するのです。
VBAでこれを実現できれば、「中身の構造だけをきれいなコードで指示し、デザインの変更はスタイル側の定義をいじるだけで一発完結する」という、極めて堅牢な文書整形エンジンが完成します。
—
基礎知識：Wordオブジェクトモデルの「三種の神器」
スタイルを自在に操る前に、Word VBAの基本地図を確認しておきましょう。Wordのオブジェクトモデルは、ロシアの民芸品「マトリョーシカ」構造になっています。
Application （Wordアプリケーション）
└─ Document （開いている文書）
└─ Range / Paragraph （文書の中身・段落）
└─ Style （スタイル）
- `Application`: Wordそのもの。
- `Document`: あなたが編集しているファイル。
- `Range`: 文書内の「位置と範囲」。文字のコンテナ。
- `Style`: 段落や文字に纏わせる「着物（デザインのセット）」。
「どこに（Range / Paragraph）、何のスタイル（Style）を適用するか」をコードで指定するのが、Word VBAの基本方針になります。
—
実践！プロ仕様のスタイル適用エンジン
それでは、実際に動かせるプロフェッショナルなコードを見てみましょう。
このコードは、アクティブな文書の中身をスキャンし、特定のキーワードが含まれる段落や、先頭行を自動判別して適切なスタイルを一括適用する「文書整形エンジン」です。
Sub ApplyProfessionalStyles()
‘ 変数の宣言
Dim doc As Document
Dim para As Paragraph
Dim targetRange As Range
‘ 処理対象の文書を明示的に取得（アクティブドキュメント）
Set doc = ActiveDocument
‘ 画面描画を停止してマクロの実行速度を爆発的に上げる（お作法）
Application.ScreenUpdating = False
‘ 文書内のすべての段落を上から順にループ処理
For Each para In doc.Paragraphs
‘ 段落のテキストの前後スペースや改行コードを除去して取得
Dim paraText As String
paraText = Trim(para.Range.Text)
paraText = Replace(paraText, vbCr, “”)
paraText = Replace(paraText, vbLf, “”)
‘ 空行は何もしない（スキップ）
If paraText <> “” Then
‘ 条件分岐：文書の先頭行（タイトル想定）
If para.Range.Start = doc.Content.Start Then
para.Style = “タイトル” ‘ あらかじめWord側にあるスタイル名
‘ 条件分岐：「第～章」から始まる行は「見出し1」
ElseIf paraText Like “第章” Then
para.Style = “見出し 1”
‘ 条件分岐：「・」や「-」から始まる行は「箇条書き」
ElseIf Left(paraText, 1) = “・” Or Left(paraText, 1) = “-” Then
para.Style = “箇条書き”
‘ それ以外の通常の段落は「標準」
Else
para.Style = “標準”
End If
End If
Next para
‘ 画面描画を再開
Application.ScreenUpdating = True
‘ 完了メッセージ
MsgBox “文書のスタイル適用が完了しました！”, vbInformation, “整形エンジン”
End Sub
コードのここがポイント！
1. `Application.ScreenUpdating = False`
大規模な文書に対してループ処理を行う際、画面を描画し続けると処理が極端に遅くなります。これをオフにすることで、処理速度が何倍にも跳ね上がります。プロの必須テクニックです。
2. `para.Style = “見出し 1″`たったこれだけ
直接フォントサイズや色を代入するのではなく、`Style`プロパティにWordのスタイル名（文字列）を代入するだけ。これだけで、その段落は指定された美しいデザインに一瞬で生まれ変わります。
3. `Like`演算子によるパターンマッチング
`paraText Like “第章”` を使うことで、「第1章」や「第十章 序論」といった揺らぎのある見出し文字列をスマートに検知できます。
—
陥りやすい罠：エラーを防ぐための極意
初心者が必ずと言っていいほどハマる落とし穴が2つあります。ここをクリアしておけば安心です。
罠1：指定したスタイルが存在しないエラー（Runtime Error 5111）
コード内で `para.Style = “MyOriginalStyle”` のように独自スタイルを指定したとき、そのスタイルが文書内に存在しないと、容赦なくエラーで止まります。
【対策】
スタイルを適用する前に、そのスタイルが文書に登録されているかチェックするか、あるいは確実に存在するデフォルトのスタイル（`見出し 1`、`標準`など）を使いましょう。
罠2：改行コード（`vbCr`）の罠
Wordの段落のテキスト（`para.Range.Text`）の末尾には、必ず段落記号（改行コード：`vbCr`）が含まれています。これを無視して `If paraText = “第1章”` と判定しようとすると、完全一致せず判定に失敗します。
先ほどのコードのように、あらかじめ `Replace` 関数で改行を取り除いておくのが鉄則です。
—
まとめ：ここをクリアすれば、Word VBAは怖くない！
今回は、Word VBAでスタイルを完全に制御し、文書全体の一貫性を保つための自動化ロジックを解説しました。
- 直接書式を捨て、スタイル（Style）をコードから割り当てる。
- `ScreenUpdating = False` で高速化する。
- 段落の末尾の改行コードに気をつける。
手動での地道なコピペや書式調整から解放され、コード一発で美しいドキュメントを生成できる爽快感をぜひ味わってみてください。この基本さえ押さえば、どんなに分厚い仕様書やレポートの自動化も思いのままです。
あなたのVBAライフが、よりスマートで創造的なものになりますように！
