皆さん、こんにちは！ Word VBAの世界へようこそ。伝説のチーフアーキテクトがお届けする、実務で役立つWord VBAの極意シリーズです。
今回は、皆さんが日々の業務で「もうちょっとプロフェッショナルな文書にしたいな…」と感じる瞬間を、劇的に解決するテーマに挑戦します。そう、「段落内の英数字」だけを抽出し、別のフォントに一括で変更するという、高度な自動装飾のテクニックです。
「マクロの記録」から一歩踏み出し、Word VBAのオブジェクト操作の醍醐味と、正規表現（ワイルドカード）の強力さを体感できる内容となっています。ここをクリアすれば、Word VBAの基本はバッチリですよ！
【Word VBAの極意】段落内の「英数字」を別フォントに一括変換！正規表現で実現するスマートな自動装飾
なぜ英数字と日本語でフォントを分けるのか？ その美的センスと実用性
皆さんは、プロフェッショナルな書籍やWebサイトで、英数字と日本語のフォントが異なることに気づいたことはありますか？ 例えば、日本語部分は明朝体やゴシック体、英数字部分はセリフ体（Times New Romanなど）やサンセリフ体（Arialなど）が使われていることが多いですよね。
これは単なるデザイン上の好みではありません。
- 可読性の向上: 日本語と英数字では、文字の骨格や視覚的な重心が異なります。それぞれに最適なフォントを適用することで、文章全体の読みやすさが格段に向上します。
- プロフェッショナルな印象: 統一感のあるフォント設定は、文書全体の品質を高め、読み手に洗練された印象を与えます。特に技術文書や報告書では、この細やかな配慮が信頼感に繋がります。
- 視覚的な区別: 英数字が特定の意味を持つ場合（コード、バージョン番号、単位など）、異なるフォントを適用することで、一目でその情報が英数字であると認識しやすくなります。
しかし、これを手作業で行うのは骨が折れる作業です。数百ページにも及ぶ文書で、一つ一つ英数字を探してフォントを変更する…想像するだけでゾッとしますよね。そこでWord VBAの出番です！
Word VBAで「Range」と「Find」を操る：オブジェクト操作の本質
マクロの記録では、`Selection`オブジェクトが多用されます。しかし、真に効率的で堅牢なWord VBAコードを書くためには、`Selection`オブジェクトから卒業し、`Range`オブジェクトと`Find`オブジェクトを使いこなすことが不可欠です。
- `Selection`オブジェクト: ユーザーが「選択した範囲」を指します。マクロ実行中に画面がチカチカしたり、意図しない場所が選択されてしまうリスクがあります。パフォーマンスも低下しやすい傾向にあります。
- `Range`オブジェクト: 文書内の「特定の範囲」をプログラムから指定します。ユーザーの選択範囲に依存せず、画面の更新を伴わないため、高速かつ安定した処理が可能です。Word VBAにおけるオブジェクト操作の核と言えます。
- `Find`オブジェクト: `Range`オブジェクトの強力なメソッドの一つで、指定した検索条件に合致するテキストを検索します。通常の検索だけでなく、正規表現（Word VBAでは「ワイルドカード」と呼びます）を使うことで、複雑なパターンマッチングが可能になります。
今回のテーマでは、「特定の段落内」という限定された範囲で英数字を探し、フォントを変更します。この処理をスマートに実現するためには、`Paragraph`オブジェクトから`Range`オブジェクトを取得し、その`Range`オブジェクトに対して`Find`オブジェクトを適用するのが最も効率的です。
正規表現（ワイルドカード）で英数字を特定する魔法の呪文
Word VBAの`Find`オブジェクトは、通常の文字列検索だけでなく、「ワイルドカード」機能を使って正規表現のようなパターンマッチングが可能です。英数字を特定するための魔法の呪文は、いたってシンプルです。
`[0-9A-Za-z]`
これは、「0から9までの数字」または「大文字AからZまでのアルファベット」または「小文字aからzまでのアルファベット」のいずれか1文字にマッチするという意味です。
では、実際にこのパターンを使って、段落内の英数字だけを抽出してフォントを変更するコードを見ていきましょう。
実践！段落内の英数字を別フォントに一括変更するVBAコード
今回は、アクティブな文書の各段落をループし、その段落内に存在する英数字を特定してフォントを変更するマクロを作成します。
Option Explicit
Sub ChangeNumericAndAlphaFontInParagraphs()
‘ パフォーマンス向上のため、画面更新を停止し、元に戻す操作を一つにまとめる設定
Application.ScreenUpdating = False
Application.UndoRecord.StartCustomRecord “英数字フォント変更” ‘ 元に戻す履歴を統合
‘ 設定したい英数字用フォント名
Const TARGET_FONT_NAME As String = “Arial” ‘ ここを変更して好きなフォントを設定してください
Const TARGET_FONT_SIZE As Single = 10 ‘ フォントサイズも変更可能
Dim objParagraph As Word.Paragraph
Dim objRangeToSearch As Word.Range
Dim objFoundRange As Word.Range
Dim i As Long
On Error GoTo ErrorHandler
‘ ドキュメント内のすべての段落をループ処理
For Each objParagraph In ActiveDocument.Paragraphs
‘ 各段落のRangeオブジェクトを取得
‘ ここがポイント！Selectionを使わず、直接Rangeを操作します
Set objRangeToSearch = objParagraph.Range
‘ 検索設定を初期化
With objRangeToSearch.Find
.ClearFormatting ‘ 検索書式をクリア
.Replacement.ClearFormatting ‘ 置換書式をクリア (今回は置換はしないが念のため)
.Text = “[0-9A-Za-z]” ‘ 検索するパターン（英数字）
.MatchWildcards = True ‘ ワイルドカード（正規表現）を使用することを宣言
.Forward = True ‘ 前方検索
.Wrap = wdFindStop ‘ 検索範囲の終端に達したら停止（無限ループ防止）
.Format = False ‘ 書式は検索しない
.MatchCase = False ‘ 大文字/小文字を区別しない
.MatchWholeWord = False ‘ 単語の区切りを一致させない
.MatchSoundsLike = False ‘ 類義語を検索しない
.MatchAllWordForms = False ‘ すべての単語の形式を検索しない
End With
‘ 段落内の英数字を検索し、見つかったらフォントを変更するループ
‘ .Executeメソッドは、検索条件に合致するものが見つかればTrueを返します
Do While objRangeToSearch.Find.Execute
‘ 見つかった英数字のRangeオブジェクトを取得
‘ Find.Executeが成功すると、objRangeToSearchは次の検索開始位置に移動し、
‘ 見つかったテキストはobjRangeToSearch.Parent（つまり元の段落のRange）の
‘ Found プロパティとしてアクセスできます。
‘ しかし、より安全かつ直感的なのは、見つかった範囲を直接取得することです。
‘ ここでは、見つかった範囲はobjRangeToSearchが指しているため、
‘ そのRangeに対して直接フォント設定を変更します。
‘ 見つかった範囲（objRangeToSearch）のフォントを変更
With objRangeToSearch.Font
.Name = TARGET_FONT_NAME ‘ フォント名を設定
.Size = TARGET_FONT_SIZE ‘ フォントサイズを設定
‘ .Bold = True ‘ 必要であれば太字にすることも可能
‘ .Italic = True ‘ 斜体にすることも可能
‘ .ColorIndex = wdRed ‘ 色を変更することも可能
End With
‘ 次の検索のために、objRangeToSearchの終端をリセット
‘ これが非常に重要です！Find.Executeは検索範囲を自動的に進めますが、
‘ ループ内でRangeオブジェクト自体が変化しているため、
‘ 次の検索が正しく行われるようにRangeを調整する必要があります。
‘ しかし、WordのFindオブジェクトは賢く、Executeが成功すると
‘ objRangeToSearchは自動的に見つかった範囲の次から始まるRangeになります。
‘ そのため、ここでは特に明示的なRangeの調整は不要です。
‘ 重要なのは、`Wrap = wdFindStop`により、段落の終端で確実に停止することです。
Loop
Next objParagraph
MsgBox “段落内の英数字フォントの変更が完了しました。”, vbInformation
CleanExit:
Application.UndoRecord.EndCustomRecord ‘ 元に戻す履歴の統合を終了
Application.ScreenUpdating = True ‘ 画面更新を再開
Exit Sub
ErrorHandler:
MsgBox “エラーが発生しました: ” & Err.Description, vbCritical
Resume CleanExit ‘ エラー発生時もクリーンアップ処理へ
End Sub
コードの徹底解説：なぜこの書き方なのか？（極限の知見）
このコードには、単なる機能実現以上の「Word VBAを掌握する極限の知見」が詰まっています。一つずつ紐解いていきましょう。
1. `Option Explicit`:
- VBAコードの冒頭には必ずこれを入れてください。変数の宣言を強制し、スペルミスによるバグを未然に防ぎます。プロのコードでは必須です。
2. `Application.ScreenUpdating = False` と `Application.UndoRecord.StartCustomRecord`:
- `ScreenUpdating = False`: マクロ実行中の画面のちらつきをなくし、処理速度を劇的に向上させます。Wordは一つ一つの操作を画面に反映しようとしますが、これを一時的に抑制することで、CPUが無駄な描画処理に時間を割かずに済みます。大規模な文書処理では必須のテクニックです。
- `Application.UndoRecord.StartCustomRecord “英数字フォント変更”`: これこそが「極限の知見」の一つ！ Wordの操作はすべて「元に戻す」履歴に残りますが、VBAで大量の変更を行うと、その変更一つ一つが履歴に残り、元に戻すのに何百回もクリックが必要になったり、最悪Wordがクラッシュすることもあります。このメソッドを使うと、マクロ中のすべての変更を「一つの操作」としてまとめて履歴に記録できます。ユーザーは一回の「元に戻す」で、マクロ実行前の状態に戻すことができ、非常にユーザーフレンドリーなマクロになります。`EndCustomRecord`とセットで使いましょう。
3. `For Each objParagraph In ActiveDocument.Paragraphs`:
- `ActiveDocument.Paragraphs`コレクションは、文書内のすべての段落を効率的に取得できます。一つ一つの段落に対して処理を行う、Word VBAの基本的なイテレーション（繰り返し）パターンです。
4. `Set objRangeToSearch = objParagraph.Range`:
- `Selection`オブジェクトを完全に回避し、段落そのものが持つ`Range`オブジェクトを取得しています。これにより、画面に影響を与えることなく、裏側で粛々と処理が進みます。これが「パフォーマンスと安定性」の鍵です。
5. `With objRangeToSearch.Find` … `End With`:
- `Find`オブジェクトの設定は、`With`ステートメントを使って簡潔に記述します。
- `.ClearFormatting` / `.Replacement.ClearFormatting`: 以前の検索や置換で設定された書式情報が残っていると、意図しない結果を招くことがあります。これを確実にクリアすることで、常にクリーンな状態で検索を開始できます。
- `.Text = “[0-9A-Za-z]”`: 前述の正規表現（ワイルドカード）です。
- `.MatchWildcards = True`: これを`True`に設定しないと、`Text`プロパティに指定した`[0-9A-Za-z]`は単なる文字列として検索されてしまいます。ワイルドカードの有効化を忘れずに。
- `.Wrap = wdFindStop`: これも非常に重要な設定です。デフォルトでは`wdFindContinue`（文書の最後まで検索したら、文書の先頭に戻って検索を続ける）になっていますが、ループ内でこれを使ってしまうと無限ループに陥る可能性があります。`wdFindStop`に設定することで、現在の`Range`の終端まで検索したら、それ以上は検索しないようにします。
6. `Do While objRangeToSearch.Find.Execute`:
- `Find.Execute`メソッドは、検索条件に合致するテキストが見つかれば`True`を返し、見つからなければ`False`を返します。この戻り値を利用して、見つからなくなるまでループを続けます。
- 極めて重要な点: `Find.Execute`が`True`を返すと、`objRangeToSearch`オブジェクト自体が、見つかったテキストの「次の位置」から始まるRangeに自動的に更新されます。これにより、同じ箇所を何度も検索することなく、効率的に次の英数字を探し続けることができます。この自動更新の挙動を理解しているかどうかが、Word VBAでの`Find`オブジェクト活用の上級者と中級者を分ける境界線です。
7. `With objRangeToSearch.Font`:
- `Find.Execute`が成功した時点での`objRangeToSearch`は、見つかった英数字の`Range`を指しています。その`Range`の`Font`プロパティにアクセスし、フォント名やサイズを設定します。
8. エラーハンドリング (`On Error GoTo ErrorHandler`):
- どんなに完璧なコードでも、予期せぬエラーはつきものです。エラーが発生した場合にマクロが突然停止するのではなく、適切にメッセージを表示し、`ScreenUpdating`の再開などの後処理（クリーンアップ）を行うようにしておくと、ユーザーエクスペリエンスが向上します。
陥りやすいエラーと対策
- 無限ループ: `objRangeToSearch.Find.Wrap = wdFindStop` を設定し忘れると、`Find.Execute`が文書内を無限に検索し続け、VBAが応答しなくなる可能性があります。必ず設定しましょう。
- 意図しない文字列の変更: ワイルドカードのパターンが不正確だと、英数字以外の文字まで変更してしまうことがあります。`[0-9A-Za-z]`は基本的な英数字のみに限定されますが、例えば全角英数字 (`[０-９Ａ-Ｚａ-ｚ]`) や特定の記号も含めたい場合は、パターンを調整する必要があります。
- パフォーマンス低下: `Application.ScreenUpdating = False` を入れ忘れると、処理が非常に遅く感じられます。必ずペアで設定しましょう。
- 「元に戻す」が効かない、または多すぎる: `Application.UndoRecord.StartCustomRecord` と `EndCustomRecord` を適切に使わないと、ユーザーがマクロの結果を元に戻す際に不便を感じます。
発展的な内容
- 特定のスタイルが適用された段落のみを対象にする: `For Each objParagraph In ActiveDocument.Paragraphs` のループ内で、`If objParagraph.Style = “見出し1” Then … End If` のように条件を追加することで、処理対象の段落を限定できます。
- 全角英数字や特定の記号も対象にする: ワイルドカードのパターンを `[0-9A-Za-z０-９Ａ-Ｚａ-ｚ\.,!?;:]` のように拡張することで、対象文字の範囲を広げられます。ただし、複雑なパターンはパフォーマンスに影響を与える可能性があります。
まとめ：Word VBAで文書作成の達人へ
今回の記事では、Word VBAの核心とも言える`Range`オブジェクトと`Find`オブジェクト、そして正規表現（ワイルドカード）を組み合わせることで、段落内の英数字のフォントを一括で変更する高度な自動装飾テクニックを学びました。
`Application.ScreenUpdating = False` や `Application.UndoRecord` の活用、そして`Find.Execute`の挙動を深く理解することは、安定かつ高速でユーザーフレンドリーなWordマクロを作成するための「極限の知見」です。
このスキルを習得すれば、あなたのWord文書はプロフェッショナルな輝きを放ち、日々の業務効率は飛躍的に向上するでしょう。ぜひこのコードをコピペし、ご自身の文書で試してみてください。そして、この知識を足がかりに、さらに奥深いWord VBAの世界を探求していきましょう！
それでは、また次回の記事でお会いしましょう！
