こんにちは！いつも業務自動化やドキュメントの整理、お疲れ様です。優しく知的な先輩エンジニアとして、今日も皆さんのVBAライフをワンランク上のステージへ導くお手伝いをしますね。
さて、今回のテーマは「Word文書内の全角英数字をすべて半角に変換し、さらに英数フォントを美しく統一する」という、実務で極めて遭遇頻度の高いタスクです。
「マクロの記録」を卒業し、Word VBAの内部構造を思い通りに制御できるようになると、数万ページある契約書や仕様書も、ものの数秒で完璧に美しく整えることができるようになります。
一見シンプルに思えるこの処理ですが、実はWord VBA特有の「落とし穴」がいくつも隠されています。ここをきれいにクリアできれば、Word VBAの基本と本質はバッチリマスターしたと言っていいでしょう。
それでは、Wordの内部オブジェクトを優雅にコントロールする極限の知見を、分かりやすく丁寧に紐解いていきましょう！
—
1. なぜ「マクロの記録」ではダメなのか？
Word VBAを支配する「Range」という概念
VBAを始めたばかりの頃は、「画面上のカーソルを動かして、選択した部分を書き換える」というSelection（選択範囲）の操作を記録することからスタートしがちです。
しかし、実務で何十ページもの文書を処理する際、Selectionを使うと大きな問題が発生します。
1. 画面が激しくチラつく（スクロールや選択が高速で繰り返されるため）
2. 処理速度が圧倒的に遅い（画面描画の負荷が大きいため）
3. ユーザーの操作と競合する（実行中にユーザーが画面をクリックすると誤動作する）
これらを一挙に解決するのが、メモリ上で文書のテキストデータを直接操作する「Range（範囲）オブジェクト」です。画面を動かすことなく、裏側で静かに、かつ超高速で処理を完了させることができます。今回はこのRangeオブジェクトを徹底的に使いこなします。
—
2. Word VBA最大の罠：「段落記号（改行）」に気をつけろ！
Word VBAを扱う上で、絶対に避けて通れない超重要な「仕様」があります。
Wordにおける段落（Paragraph）の末尾にある改行マーク（段落記号）には、その段落のすべての書式情報（フォント、行間、インデントなど）が格納されているという点です。
もし、段落全体を選択して一括でフォントを書き換えたり、末尾の改行コード（`vbCr`）を含めて文字変換を行ったりすると、段落全体のスタイルやインデントの設定がすべて吹き飛んで初期化されてしまうという恐ろしい現象が起きます。
【イメージ図】段落の末尾には見えない「書式のボス」がいる
[ 吾輩は猫である。名前はまだ無い。 ] [¶ (改行マーク)]
└─ ここが本文テキスト ─┘ └─ ここに段落書式が詰まっている！
今回のコードでは、この「改行マーク」を絶対に傷つけないように、「全角英数字だけにピンポイントでマッチさせて、その部分のRangeだけを書き換える」という非常にスマートなアプローチを採用します。
—
3. 【実践】全角英数字を半角にし、フォントを統一する極限のコード
では、具体的かつ実用的なコードを見てみましょう。このコードは、Wordの強力な「ワイルドカード検索（正規表現のようなもの）」をメモリ上で駆動させ、対象の文字だけを正確に捉えて変換します。
標準モジュールに以下のコードを貼り付けてみてください。
Sub ConvertFullWidthAlphanumericToHalfWidth()
‘ =================================================================
‘ 処理名：全角英数字の半角化 ＆ 英数フォント統一マクロ
‘ 開発者：あなたの頼れる先輩エンジニア
‘ 概要：文書全体の全角英数字を検出し、半角に変換した上で、
‘ 指定した英数フォント（例: Arial）に統一します。
‘ =================================================================
Dim doc As Document
Set doc = ActiveDocument
‘ 1. 処理高速化と画面チラつき防止のための画面更新停止
Application.ScreenUpdating = False
‘ 2. 検索条件を設定するためのRangeオブジェクトを生成
Dim rngSearch As Range
Set rngSearch = doc.Content ‘ 文書全体を対象にする
‘ 3. Wordの検索・置換（Find）機能をセットアップ
With rngSearch.Find
.ClearFormatting ‘ 既存の検索書式をクリア
.Replacement.ClearFormatting ‘ 既存の置換書式をクリア
‘ 【重要】ワイルドカード（正規表現）を使用して全角英数字を指定
‘ [０-９] = 全角数字、[Ａ-Ｚ] = 全角大文字、[ａ-ｚ] = 全角小文字
.Text = “[０-９Ａ-Ｚａ-ｚ]”
.MatchWildcards = True ‘ ワイルドカードを有効化
.Forward = True ‘ 文頭から文末へ前方検索
.Wrap = wdFindStop ‘ 文末に達したら検索を停止
End With
‘ 4. ループ処理：ヒットする全角英数字がある限り繰り返す
Do While rngSearch.Find.Execute
‘ 検索にヒットした瞬間、rngSearchの範囲は「ヒットした1文字」に縮小されています。
‘ これがWord VBAのFindオブジェクトの非常に便利な特性です！
‘ A. 全角文字を半角文字に変換 (StrConv関数を使用)
‘ vbNarrowを指定することで、全角を半角に変換します。
rngSearch.Text = StrConv(rngSearch.Text, vbNarrow)
‘ B. フォントを美しい英数フォントに統一
‘ ここでは「Arial」を指定していますが、お好みで「Century」などに変更可能です。
rngSearch.Font.Name = “Arial”
‘ C. 【超重要】次の文字を検索するために、Rangeの始点を現在位置の直後に進める
‘ これを怠ると、同じ文字を無限にループ処理してフリーズしてしまいます。
rngSearch.Collapse Direction:=wdCollapseEnd
Loop
‘ 5. 画面更新を再開（元に戻す）
Application.ScreenUpdating = True
‘ 6. 完了通知
MsgBox “英数字の半角化とフォントの統一が完了しました！”, vbInformation, “処理完了”
End Sub
—
4. コードの徹底解説：なぜこの書き方なのか？
マクロの記録から脱却する上で、コードの一行一行が持つ「意味」と「動機」を理解することはとても大切です。先輩と一緒にポイントを絞って見ていきましょう。
① `[０-９Ａ-Ｚａ-ｚ]` という魔法のフィルター
Wordのワイルドカード検索は非常に強力です。
この記述は、「全角の0から9、大文字のAからZ、小文字のaからzのいずれか1文字」にマッチします。
これによって、漢字やひらがな、そしてデリケートな「段落記号（改行）」を一切避けて、英数字だけをピンポイントで狙い撃ちできます。
② `rngSearch.Find.Execute` の挙動
このメソッドが実行されると、Wordは文書内を検索し、ヒットした場所へ `rngSearch` の範囲を自動的にギュッと縮めてくれます。
[ 初期状態 ]
rngSearch ＝ 文書全体の巨大な範囲
[ Execute実行後（「Ａ」が見つかった！） ]
rngSearch ＝ 「Ａ」という1文字だけの極小範囲
この仕様のおかげで、`rngSearch.Text = …` と書くだけで、見つかったその1文字だけを安全に書き換えることができるのです。
③ `rngSearch.Collapse wdCollapseEnd` の役割
「Collapse（折りたたむ）」は、Rangeオブジェクトを操作する上での必須テクニックです。
文字を変換したあと、Rangeの範囲を「その文字の右端の『隙間（点）』」にギュッと折りたたみます。こうすることで、次の `Execute`（検索）がその右隣からスタートし、無限ループを防ぐことができます。
—
5. 陥りやすいエラーとプロが実践する回避策
実務の現場でこのマクロを動かしたとき、後輩の皆さんが遭遇しがちなトラブルとその対策を先回りしてお伝えしておきますね。
トラブル：処理中にWordがフリーズしたように見える
- 原因：非常に長い文書（数百ページなど）で実行すると、画面の描画処理が追いつかずにWordが応答なしになることがあります。
- 対策：コード内で `Application.ScreenUpdating = False` を記述しています。これにより、裏側での高速処理が可能になり、実行速度が最大で数倍〜数十倍に跳ね上がります。処理が終わったら必ず `True` に戻すのを忘れないようにしましょう。
トラブル：フォントの適用範囲がずれて、日本語までフォントが変わってしまう
- 原因：ワイルドカードの指定を誤って “（任意の文字列）などにしてしまうと、英数字以外の文字まで巻き込んでフォントが変更されてしまいます。
- 対策：今回のように `[０-９Ａ-Ｚａ-ｚ]` と1文字ずつのクラス指定を行うことで、意図しない文字へのフォント波及を100%防ぐことができます。
—
まとめ：ここをクリアすれば、Word VBAの基本はバッチリです！
お疲れ様でした！
今回学んだ内容は、Word VBAにおける最重要コンセプトである以下の3点です。
1. 画面を動かさずにメモリ上で高速処理する `Range` オブジェクトの操作
2. 改行マーク（段落記号）を傷つけないための スマートな検索・置換の設計
3. ループ処理を安全に走らせるための `Collapse` による範囲制御
これらは、Wordのドキュメント作成を自動化する上で、どんな高度なプログラムにも共通する「一生物の基盤技術」です。
このロジックさえマスターしてしまえば、次は「特定の英単語だけを斜体にしたい」「特定の記号だけを赤字にしたい」といった応用も、検索パターン（`.Text`）を変えるだけで自由自在に作れるようになりますよ。
一歩一歩、確実にスキルを自分のものにしていきましょう。何かわからないことがあれば、いつでも聞いてくださいね。応援しています！
