なぜVBAで「スタイル」を操作する必要があるのか？
実務においてWord文書を作成する際、見出しや本文のフォントサイズ、インデントなどを一つひとつ手作業で調整していませんか？もし数十ページある報告書で、後から「見出しのフォントを全部変えてほしい」と言われたら、気が遠くなるような修正作業が待っています。
ここで役立つのが「スタイル」です。スタイルとは、書式設定（フォント、サイズ、色、段落設定など）を名前付きで一括登録する機能です。さらに、これをVBAで制御することで、文書のフォーマットを一瞬で統一でき、修正が必要な際もコードを一行変えるだけで済むようになります。今回は、VBAを使ってスタイルを適用・制御する方法を解説します。
基礎知識：スタイルとVBAの関係
Word VBAでは、段落（Paragraph）や範囲（Range）に対して、Styleプロパティを設定することでスタイルを適用します。
スタイルにはWordにあらかじめ用意されている「組み込みスタイル（”見出し 1″など）」と、自分で作成した「ユーザー定義スタイル」があります。VBAで指定する際は、これらのスタイル名を文字列で指定するのが基本です。
実装/解決策：VBAでスタイルを自在に操る
VBAでスタイルを適用するには、対象となるオブジェクトのStyleプロパティに、スタイルの名前を代入します。
実装の手順：
1. スタイルを適用したい対象（段落や範囲）を特定する。
2. そのオブジェクトのStyleプロパティに、適用したいスタイル名を指定する。
3. 必要に応じて、スタイルそのものの定義を変更する（フォントサイズや色など）。
サンプルプログラム：見出しと本文を一括設定する
以下のコードは、文書内の特定の段落に対して「見出し 1」スタイルを適用し、スタイル自体のフォント色を一括で変更する実用的なサンプルです。
Sub ApplyAndModifyStyle()
‘ 文書の先頭段落に「見出し 1」を適用
ActiveDocument.Paragraphs(1).Style = “見出し 1”
‘ スタイル自体の設定（フォント色）をコードから変更する
‘ これにより、そのスタイルを使っている箇所すべてに反映されます
With ActiveDocument.Styles(“見出し 1”).Font
.Color = wdColorDarkBlue ‘ フォント色を濃い青に変更
.Bold = True ‘ 太字にする
End With
MsgBox “スタイル適用と設定変更が完了しました。”
End Sub
応用・注意点：現場で陥りやすいバグを回避する
1. スタイル名の言語依存に注意
Wordのスタイル名は、インストールされているOfficeの言語設定に依存します。例えば、日本語版Wordでは「見出し 1」ですが、英語版では「Heading 1」となります。多言語環境で配布するツールを作成する場合は、定数を利用するか、Wordの組み込み定数（wdStyleHeading1など）を活用するようにしましょう。
2. スタイルの存在確認
存在しないスタイル名を指定すると、実行時エラーが発生します。スタイルを適用する前に、そのスタイルが文書内に存在するかを判定するチェック処理を挟むのが、プロフェッショナルなコードの書き方です。
3. 「標準」スタイルに戻す
不要な書式を解除したい場合は、`.Style = wdStyleNormal` を指定することで、手軽に標準スタイルへリセットできます。
スタイルを使いこなすことは、Word文書を「文書として構造化」することと同義です。VBAと組み合わせることで、属人化しない効率的なドキュメント管理を実現してください。
