【Word VBA】段落内の「全角英数字」を安全に半角化しフォントを統一する極限の省力・堅牢化アプローチ
Word文書の校正・整形業務において、誰もが一度は直面する「全角英数字の半角化」と「フォントの統一」。一見すると入門書の最初の章に書かれているような単純な処理に思えるかもしれません。
しかし、実務の現場で動くプログラミングにおいて、この処理を「正しく、高速に、かつ既存のレイアウトや書式を破壊せずに」実行することは、Word VBAのオブジェクトモデルを深く理解していなければ不可能です。
ネット上に転がっている簡易的なVBAコードをそのままコピペして実業務に投入すると、以下のような致命的なバグやパフォーマンス障害を引き起こします。
- 惨劇1： `StrConv(Text, vbNarrow)` を文書全体に雑に適用した結果、日本語の「全角カタカナ」まで「半角カタカナ」に潰れ、レイアウトが崩壊する。
- 惨劇2： `Characters` コレクションをループ（`For Each c In ActiveDocument.Characters`）で1文字ずつ処理した結果、100ページを超える大容量文書でWordがフリーズし、強制終了する。
- 惨劇3： 置換によって既存の文字装飾（太字、斜体、下線、文字色、あるいはハイパーリンク）がすべてクリアされ、プレーンテキスト化してしまう。
本記事では、Word VBAの内部仕様をハックし、これらの課題を完全にクリアした「プロダクション環境（本番業務）に耐えうる極限の処理コード」を設計思想から徹底的に解説します。
—
1. なぜあなたのコードは遅く、文書を破壊するのか？
具体的な実装に入る前に、なぜ一般的な書き方が非効率であり、バグを誘発するのかをロジカルに整理しておきましょう。
① `Selection` オブジェクトへの依存（画面描画のオーバーヘッド）
マクロ記録機能（マクロレコーダー）が生成するコードは、常に `Selection`（選択範囲）を操作します。しかし、実務コードで `Selection` を使うのはアンチパターンの最たるものです。
画面のスクロールや再描画（レンダリング）が強制的に発生するため、処理速度が数十倍から数百倍遅くなります。プロフェッショナルは、ユーザーの画面状態とは完全に切り離された `Range` オブジェクト のみを用いてメモリ上で処理を完結させます。
② `StrConv` の乱用による「カタカナ巻き込み問題」
VBA標準の `StrConv(string, vbNarrow)` は、全角英数字だけでなく、全角カタカナもすべて半角（濁点分離の半角カタカナ）に変換してしまいます。公文書やビジネス文書において、半角カタカナの混入は許されません。
「全角英数字のみ」をピンポイントで捕捉するフィルタリング（検索条件の厳密化）が不可欠です。
③ Word特有の「ダブルフォントエンジン」仕様への無理解
Wordは、東アジア言語（日本語など）のフォント（`Font.NameFarEast`）と、ラテン言語（英数字など）のフォント（`Font.Name`）を内部的に分けて管理しています。
単に `Font.Name = “Arial”` と指定するだけでは、日本語部分まで引きずられて意図しないフォントに置き換わったり、逆に英数字部分にフォントが適用されなかったりするバグが発生します。
—
2. 堅牢な設計アーキテクチャ
これらの課題を解決するために、本ソリューションでは以下の3つの設計原則を採用します。
[処理のフローチャート]
1. 画面描画とイベントの抑止（パフォーマンス最大化）
2. Wordの強力な「ワイルドカード検索（MatchWildcards）」を利用
└ 検索パターン: [０-９Ａ-Ｚａ-ｚ]{1,} (全角英数字の連続)
3. マッチしたRangeオブジェクトに対してのみ「StrConv(vbNarrow)」を実行
└ カタカナは完全に保護され、英数字のみが半角化される
4. 半角化されたRangeに対し、英数字専用フォント(Font.Name)をピンポイント適用
5. 変更履歴やUndoバッファを最適化して終了
このアプローチの最大のメリットは、「マッチした最小限のRangeオブジェクトに対してのみ、局所的に書き換えと書式適用を行う」ため、既存の段落書式や他の文字装飾（フォントサイズやカラーなど）を一切破壊しない点にあります。
—
3. プロダクションコード：全角英数字の半角化とフォント統一
以下に、そのまま実務に投入できる堅牢なVBAコードを示します。エラーハンドリング、処理速度向上のための画面更新停止、および「1回のアンドゥ（元に戻す）で処理全体を取り消せる」トランザクション処理（`UndoRecord`）を実装しています。
Option Explicit
”’
”’
Public Sub ConvertFullWidthAlphanumericToHalfWidth()
‘ 1. パフォーマンスチューニング用の宣言
Dim originalScreenUpdating As Boolean
originalScreenUpdating = Application.ScreenUpdating
Application.ScreenUpdating = False
‘ 2. Undo（元に戻す）履歴の一元化（Word 2010以降対応）
Dim objUndo As UndoRecord
Set objUndo = Application.UndoRecord
objUndo.BeginCustomRecord “全角英数字の半角化とフォント統一”
On Error GoTo ErrorHandler
‘ 3. 設定値の定義（保守性を高めるため定数化）
Const TARGET_FONT_NAME As String = “Calibri” ‘ 統一する英数字フォント名
Const SEARCH_PATTERN As String = “[０-９Ａ-Ｚａ-ｚ]{1,}” ‘ 全角英数字の連続にマッチするワイルドカード
Dim doc As Document
Set doc = ActiveDocument
‘ 変更履歴（Track Changes）が有効な場合、処理速度が著しく低下するため一時的に無効化
Dim originalTrackRevisions As Boolean
originalTrackRevisions = doc.TrackRevisions
doc.TrackRevisions = False
‘ 4. Findオブジェクトを用いたメイン処理
Dim rngSearch As Range
Set rngSearch = doc.Content
With rngSearch.Find
.ClearFormatting
.Replacement.ClearFormatting
.Text = SEARCH_PATTERN
.MatchWildcards = True ‘ ワイルドカード検索を有効化
.Forward = True
.Wrap = wdFindStop ‘ 終端に達したら停止（無限ループ防止）
‘ 条件に合致するRangeが存在する限りループ
Do While .Execute
‘ rngSearchは、この時点でマッチした「全角英数字の塊」のRangeに縮退している
‘ A. 書式を保持したままテキストのみを半角変換
Dim originalText As String
originalText = rngSearch.Text
‘ vbNarrowを適用（ワイルドカードで全角英数字のみに限定しているため安全）
rngSearch.Text = StrConv(originalText, vbNarrow)
‘ B. 英数字フォントの適用
‘ Wordの仕様に基づき、Name（英数字用）のみを変更し、NameFarEast（日本語用）は維持する
rngSearch.Font.Name = TARGET_FONT_NAME
‘ C. 検索開始位置を次の位置へシフト（無限ループの回避と処理の進行）
‘ Collapse（虚脱）させることで、置換後の文字列の後ろから次の検索を開始する
rngSearch.Collapse wdCollapseEnd
Loop
End With
‘ 5. 設定の復元
doc.TrackRevisions = originalTrackRevisions
objUndo.EndCustomRecord
Application.ScreenUpdating = originalScreenUpdating
MsgBox “全角英数字の半角化、およびフォント「” & TARGET_FONT_NAME & “」への統一が完了しました。”, _
vbInformation + vbOKOnly, “処理完了”
Exit Sub
ErrorHandler:
‘ 予期せぬエラー発生時のロールバック処理
doc.TrackRevisions = originalTrackRevisions
objUndo.EndCustomRecord
Application.ScreenUpdating = originalScreenUpdating
MsgBox “エラーが発生したため処理を中断しました。” & vbCrLf & _
“エラー番号: ” & Err.Number & vbCrLf & _
“エラー内容: ” & Err.Description, vbCritical, “システムエラー”
End Sub
—
4. プロが解説するコードの急所（ディープダイブ）
① `wdFindStop` による無限ループの完全防御
Word VBAの `Find` オブジェクトをループ処理する際、最も多いバグが「無限ループによるフリーズ」です。
検索にヒットした `Range` は、マッチした文字列の範囲へと自動的に縮小されます。処理の最後で `rngSearch.Collapse wdCollapseEnd` を実行して、検索範囲のポインタを「マッチした箇所の末尾」まで移動（虚脱）させておかないと、同じ場所を永久に検索し続けることになります。
また、`Wrap = wdFindStop` を明示的に指定することで、文書の最後まで検索した時点で安全にループを抜ける設計にしています。
② `UndoRecord` によるUX（ユーザー体験）の向上
実務用のツールにおいて、「マクロを実行したら最後、Ctrl+Zで元に戻せなくなった」というのはユーザーにとって最悪の仕様です。
Word 2010以降で導入された `Application.UndoRecord` を利用することで、数千箇所の置換処理であっても、「Ctrl+Z を1回押すだけでマクロ実行前の状態に完全にロールバックできる」ようになります。この数行の実装が、プロツールとしての品質を分けます。
③ なぜ正規表現（VBScript.RegExp）ではなく「Wordのワイルドカード」なのか？
VBA開発において、高度な文字列操作に `RegExp` オブジェクトを導入することは珍しくありません。しかし、Word文書に対して外部ライブラリの `RegExp` を使うと、一度文字列をVBAのメモリ空間（String変数）に引き出す必要があります。
これを行うと、文字に適用されていた太字やマーカー、コメント、ハイパーリンクなどの「リッチテキスト属性」がすべて消失します。
Word標準の `Find.MatchWildcards` を使えば、Word内のレイアウト情報を維持したまま `Range` オブジェクトを直接操作できるため、文書を一切汚さない安全な処理が可能になります。
—
5. ファイル連携・大規模文書における実務上の注意点
このツールを共有テンプレートに組み込んだり、アドインとして配布したり、あるいは他システム（Excel等）からWordを自動制御（OLEオートメーション）する場合は、以下の点に留意してください。
1. 文書の保護（Protection）への配慮
社内回覧用の文書などで「編集の制限（保護）」がかかっている場合、`rngSearch.Text = …` の書き込み処理でランタイムエラー「4605（このメソッドまたはプロパティは使用できません。）」が発生します。
実務コードに組み込む際は、事前に `ActiveDocument.ProtectionType <> wdNoProtection` をチェックし、必要に応じて保護を解除（Unprotect）するロジックを追加してください。
2. 変更履歴の記録（Track Changes）への配慮
変更履歴がオンになっている文書でこのマクロを実行すると、すべての半角化とフォント適用履歴が「変更履歴の吹き出し」として記録され、ファイルサイズが急膨張し、最悪の場合クラッシュします。
紹介したコードでは、`doc.TrackRevisions = False` によって一時的に記録を無効化し、処理後に元の状態に復元する安全弁を実装しています。
3. 共有フォルダ上のファイルや、クラウド（OneDrive）同期ファイルへの適用
OneDriveやSharePoint上のファイルを直接開きながらマクロを実行すると、自動保存（AutoSave）の同期処理がバックグラウンドで走り、VBAの書き込み処理と競合して実行速度が極端に低下することがあります。
大規模なドキュメントを処理する場合は、一旦ローカルドライブ（`C:\Temp`等）にファイルをコピーしてからローカル上で高速処理し、処理後に元の場所へ上書き保存（Upload）するパイプライン設計を推奨します。
—
6. まとめ
Word VBAは「動けば良い」というレベルのコードであれば誰でも書けます。しかし、数万字におよぶ契約書や仕様書、論文といった「絶対にレイアウトを崩してはならない実務文書」を相手にする場合、エンジニアにはオブジェクトのライフサイクルとパフォーマンスに対する厳密な理解が求められます。
本記事で紹介した「ワイルドカード検索と局所Range操作の組み合わせ」は、Word VBAにおけるテキスト制御の極めて完成された最適解（ベストプラクティス）の一つです。
ぜひあなたの開発プロジェクトに導入し、業務自動化ツールの信頼性とパフォーマンスを劇的に引き上げてください。
