こんにちは！Word VBAの自動化の世界へようこそ。
マクロの記録ボタンを押して「なんだか動いたけれど、コードの中身はチンプンカンプン……」という状態から抜け出し、自分の意のままに文書を操りたい中級者の方に向けて、今日は実務で確実に役立つテクニックを伝授します。
ここをクリアすれば、Word VBAのオブジェクト構造の本質がグッと見えてきますよ。しっかりついてきてくださいね。
—
現場で頻出する「全角英数字の混入」という悪夢
皆さんは、大量のWord文書（仕様書、マニュアル、報告書など）を受け取ったとき、こんなイライラを感じたことはありませんか？
> 「あー、全角の『ＡＢＣ』や『１２３』が半角の『ABC』『123』と混ざっている……。しかもフォントやサイズがバラバラで見た目がダサい！」
これを手作業で直すのは、地獄のような作業です。かといって、Word標準の「置換」機能を使うと、フォントの設定がリセットされてしまったり、意図しない場所まで変わってしまったりして困ることがありますよね。
「フォントや書式設定を完璧に維持したまま、段落内の全角英数字だけをスマートに半角に変換したい」
この現場の切実な願いを、Word VBAの正規表現（VBScript.RegExp）とRangeオブジェクトの操作を組み合わせて、一刀両断で解決してみましょう。
—
今回の自動化アプローチの全体像
Word VBAで文字を置換するとき、最もやってはいけないのが「`Selection`（選択範囲）を画面上でパタパタと選択し直す」という処理です。画面の描画が発生し、処理速度が劇的に遅くなるだけでなく、エラーの温床になります。
プロのアーキテクトが使うアプローチは以下の通りです。
1. 対象範囲（Document または Selection）を特定する
2. VBScriptの正規表現エンジンを使い、文書内から「全角の英数字」を精密にハンティングする
3. ヒットした部分の `Range` オブジェクトに対し、文字種（半角）変換を行う
4. この時、既存のフォントや書式は一切破壊しない
—
実装コード：全角英数字を一網打尽にするマクロ
以下のコードを、WordのVBAエディタ（Alt + F11）の標準モジュールに貼り付けてください。
Option Explicit
‘========================================================================
‘ 処理名: 段落内の全角英数字を半角に一括変換するマクロ
‘ 概要 : 正規表現を用いて文書内の全角A-Z、a-z、0-9を検出し、
‘ 既存のフォント書式を維持したまま半角に置換します。
‘========================================================================
Sub ConvertZen2HanAlphanumeric()
Dim regEx As Object
Dim matches As Object
Dim match As Object
Dim rngTarget As Range
Dim targetText As String
‘ 1. VBScriptの正規表現オブジェクトを生成
‘ （早期バインディングではなく、環境依存を避けるため遅延バインディングを採用）
Set regEx = CreateObject(“VBScript.RegExp”)
With regEx
‘ 全角の英数字（Ａ-Ｚ、ａ-ｚ、０-９）にマッチするパターン
.Pattern = “[Ａ-Ｚａ-ｚ０-９]”
.Global = True D ‘ 文書全体から重複してくまなく探す
.IgnoreCase = False ‘ 大文字・小文字を厳密に区別する
End With
‘ 2. 処理対象の範囲を定義（今回はアクティブドキュメント全体）
Set rngTarget = ActiveDocument.Content
‘ 3. 正規表現によるマッチング実行
If regEx.Test(rngTarget.Text) Then
Set matches = regEx.Execute(rngTarget.Text)
‘ 4. 逆順ループの重要性
‘ ※前方から置換していくと文字数が変わり、Rangeの位置がズレてバグるため
‘ 後ろの文字から順に処理するのがプロの技です。
Dim i As Long
For i = matches.Count – 1 To 0 Step -1
Set match = matches(i)
‘ 文書内の該当位置を指し示すRangeを作成
‘ match.FirstIndex は 0起点のため +1 し、Lengthで長さを指定
Dim rngMatch As Range
Set rngMatch = ActiveDocument.Range( _
Start:=rngTarget.Start + match.FirstIndex, _
End:=rngTarget.Start + match.FirstIndex + match.Length)
‘ ★ここがキモ：文字種のみを半角に変換（書式は自動保持される）
rngMatch.Case = wdLowerCase ‘ 一旦小文字等にする必要はなく、下行の変換メソッドを使用
‘ Wordの組み込み定数 wdWideHalfWidth を使って半角変換
rngMatch.CharacterWidth = wdWidthHalfWidth
Next i
MsgBox “全角英数字の半角変換が完了しました！”, vbInformation, “処理成功”
Else
MsgBox “対象となる全角英数字は見つかりませんでした。”, vbExclamation, “通知”
End If
‘ 5. クリーンアップ
Set regEx = Nothing
Set rngTarget = Nothing
End Sub
—
コードの深掘り：ここが「エンジニアのこだわり」ポイント
初心者から一歩抜け出すために、上記のコードに隠された3つの重要ポイントを解説します。
1. なぜ「逆順ループ (`Step -1`)」なのか？
正規表現で見つかった文字列を頭から順に置換していくと、全角（1文字）が半角（1文字）に変わることで文字列全体の長さが変わり、次に処理すべき `Range` の座標がズレてしまいます（最悪の場合、Wordが強制終了するエラーを引き起こします）。
「後ろから処理する」、これはテキスト操作系マクロの鉄則中の鉄則です。
2. 書式が消えない理由 (`Range.CharacterWidth` の魔力)
Wordの標準「置換」機能を使うと、フォント名やサイズがデフォルトに戻ってしまうことがよくあります。しかし、このコードでは `Range.CharacterWidth = wdWidthHalfWidth` というプロパティを直接叩いています。
これは「文字幅の属性だけをピンポイントで変更する」命令なので、ユーザーが苦労して設定したフォント、文字色、太字などの書式は1ミリも崩れません。
3. 遅延バインディングによる環境依存の排除
`CreateObject(“VBScript.RegExp”)` という書き方（遅延バインディング）をしています。これにより、参照設定のチェックを外す手間が省け、他の人のPC（別バージョンのOfficeや異なるWindows環境）にファイルを配ったときにも「ライブラリが見つからない！」というエラーが出なくなります。実務でマクロを配布するなら必須の配慮です。
—
陥りやすい罠とエラー対策
罠：文書が保護されている、または変更履歴がオンになっている
- 症状: 実行時エラーが発生し、`rngMatch.CharacterWidth` の行で止まる。
- 原因: Wordの「変更履歴の記録」が有効になっていると、VBAからの文字幅変更が拒絶される、あるいは予期せぬ変更履歴のゴミが残ることがあります。
- 対策: マクロの実行前に `ActiveDocument.TrackRevisions = False` を入れるか、事前に変更履歴をオフにするようユーザーに案内するガードを組み込みましょう。
—
おわりに
お疲れ様でした！
今回は「全角英数字の半角統一」という、実務で100回は直面する課題をテーマに、Word VBAの奥深さと美しさを解説しました。
正規表現と `Range` オブジェクトのライフサイクルを正しく理解すれば、Wordはただのワープロソフトから、「あなた専属の超高速ドキュメント製造マシン」へと生まれ変わります。
ここをクリアしたあなたなら、もう初級者卒業です。自信を持って、明日の業務自動化にこの知見を役立ててくださいね！それでは、また次の技術でお会いしましょう。
