こんにちは！Word VBAの世界へようこそ。
マクロの記録ボタンを押して、生成されたコードを眺めてみたものの、なんだかごちゃごちゃしていて「これで本当に合ってるの？」と不安になったことはありませんか？
「文字の色を変えたい」「フォントサイズを大きくしたい」――そう思ったとき、素朴な初心者がやりがちなのが、1文字ずつ、あるいは1段落ずつ `Selection`（選択範囲）を移動させてポチポチとプロパティを変更していく方法です。
でも、ちょっと待ってください。その書き方、実はWord VBAの世界では「重くて遅い」「崩れやすい」の三拍子が揃ったアンチパターンなんです。
今回は、プロのエンジニアが現場で使っている、文書の整合性を保ちながら爆速で書式を書き換える極意――「`Range.Style` プロパティの活用」について、優しく、そして本質的に解説していきますね。ここをクリアすれば、あなたのWord VBAのスキルは一気にワンランク上のステージに到達しますよ！
—
1. なぜ「マクロの記録」のコードは遅いのか？
まずは、敵を知ることから始めましょう。
例えば、「『見出し』という段落に、フォントサイズ16ptの太字を設定する」という操作をマクロの記録で取得すると、大体こんなコードが出てきます。
‘ 【アンチパターンの例】Selectionオブジェクトの多用
Selection.Find.ClearFormatting
Selection.Find.Text = “見出し”
‘ （中略：検索してヒットしたとする）
Selection.Font.Size = 16
Selection.Font.Bold = wdToggle
これの何が問題か分かりますか？
Excelと違い、Wordは「画面上のカーソル（Selection）」の動きとメモリ上の処理がガッチリ連動しているという恐ろしい特徴を持っています。
`Selection` を使うたびに、Wordはわざわざ画面の表示を書き換え（描画更新）、カーソル位置を再計算します。これが文書全体で何千行も行われたら……？ そう、あなたのPCはフリーズ寸前の重たい処理に耐えかねて悲鳴を上げることになります。
救世主「Range」と「Style」の思想
ここで登場するのが、画面を一切汚さずにメモリ上だけで高速に処理を完結させる `Range`（レンジ） オブジェクトです。さらに、個別のフォントや段落の設定をバラバラにいじるのをやめ、Wordにあらかじめ用意されている「スタイル（Style）」という概念を丸ごと流し込みます。
これが、「速くて、美しく、後から一括変更できる」最強のドキュメント自動化の基本方針です。
—
2. 秘伝のコード：`Range.Style` で爆速スタイリング
百聞は一見に如かず。実際に、特定の段落や文書全体に対して、スタイルを一瞬で適用する実用的なコードを見てみましょう。
Sub ApplyStyleHighSpeed()
Dim doc As Document
Dim targetRange As Range
‘ 処理対象のドキュメントを明示的に指定（アクティブ文書）
Set doc = ActiveDocument
‘ 1. 文書全体の範囲（Range）を取得する
Set targetRange = doc.Content
‘ 【重要】画面の描画をロックして、処理速度を限界までブーストさせる
Application.ScreenUpdating = False
On Error GoTo ErrorHandler
‘ 2. 段落スタイルを一括で「標準」に変更（リセットの意味も込めて）
targetRange.Style = “標準”
‘ 3. 特定のキーワードが含まれる段落だけ、独自のスタイルを適用する例
‘ （※あらかじめWord側で「MyHeading」というカスタムスタイルを作っておく想定）
Dim p As Paragraph
For Each p In doc.Paragraphs
If Left(p.Range.Text, 3) = “■” Then
‘ 段落全体のRangeに対して、一発でスタイルを適用！
p.Range.Style = “見出し 1”
End If
Next p
ErrorHandler:
‘ 4. 処理が終わったら必ず画面描画を元に戻す
Application.ScreenUpdating = True
If Err.Number <> 0 Then
MsgBox “エラーが発生しました: ” & Err.Description, vbCritical
Else
MsgBox “スタイルの適用が完了しました！”, vbInformation
End If
End Sub
このコードの何がスゴいのか？
1. `Application.ScreenUpdating = False` による爆速化
処理中の画面描画を強制停止します。これだけで、実行スピードが体感で数倍〜十数倍に跳ね上がります。大量のページを扱う実務では必須のテクニックです。
2. `p.Range.Style` によるスマートな割り当て
文字サイズや色を個別に変更（`p.Range.Font.Size = 16`など）するのではなく、「スタイルというパッケージ」をごっそり割り当てている点に注目してください。これにより、後から「やっぱ見出しの色を青から赤に変えたい」と思ったときも、Wordのスタイル定義を1箇所変えるだけで文書全体のデザインが一瞬で追従します。
—
3. 初学者が必ずハマる「罠」と回避策
Word VBAを書き始めると、誰もが一度は次のようなエラーや絶望に直面します。ここを先回りしてクリアしておきましょう。
罠その1：「そんな名前のスタイルは無い」と怒られる（Run-time error ‘5825’ 等）
- 原因: コード内で指定したスタイル名（例: `”MyCustomStyle”`）が、処理対象のWord文書の中に存在しない場合に発生します。Wordのスタイルは、文書テンプレートやファイルごとに持っている世界が違うため、別のPCや新規作成した文書で動かすと容赦なくエラーを吐きます。
- 対策: コードを実行する前に、文書側に必ず同名のスタイルが存在するか確認するか、VBA側でスタイルがなければ自動作成するロジックを挟みましょう。
罠その2：段落記号（改行マーク）までスタイルが変わってレイアウトが崩れた
- 原因: Wordの段落スタイルは、「段落末尾の改行マーク（Paragraph Mark）」を含んだRangeに対して作用するという厳格なルールがあります。文字の一部（例：文頭の数文字だけ）のRangeに対してスタイルを適用しようとすると、意図しない段落全体の巻き込み事故が起きることがあります。
- 対策: 「段落単位で変えたいのか」「文中の特定ワード（文字単位）だけを変えたいのか」を明確に区別しましょう。
- 段落をごっそり変える → `Paragraph.Range.Style`
- 文字単位でサクッと変える → `Range.Font` プロパティを直接叩く（※ただし極力最小限に！）
—
4. まとめ：コードは「美しく」、ドキュメントは「正しく」
いかがでしたでしょうか？
今回は、`Selection` の呪縛から離れ、`Range` と `Style` を組み合わせることで、なぜWord VBAが劇的に速くなり、保守性が高まるのかを解説しました。
- 画面のカーソル（Selection）をグリグリ動かさない。
- メモリ上の範囲（Range）をターゲットにする。
- 文字装飾をバラバラに設定せず、スタイル（Style）を丸ごと流し込む。
この3つを意識するだけで、あなたが書くマクロは見違えるほど洗練され、プロのエンジニアが書いたような堅牢なコードに生まれ変わります。
ここをクリアできれば、Word VBAの基本はもうバッチリです！
ぜひ明日からの実務で、この「爆速スタイリング」を試してみてくださいね。あなたの自動化ライフが、より快適で知的になりますように。
