Word VBAを掌握する極限の知見：段落内の「全角英数字」を秒速で半角化しフォントを統一するアーキテクチャ
WordVBAの現場において、「全角英数字が混在したレガシー文書のクレンジング」ほど開発者を絶望させる作業はない。
標準の `Range.Case = wdLowerCase` や `StrConv` 関数を安易に適用すれば、文書全体のフォント情報がリセットされ、行送りが崩れ、図表のアンカーが狂い、エンドユーザーからのクレームという名のシステム障害が雪崩れ込む。
今回は、Wordのオブジェクトモデルの暗部を突き詰め、「フォント設定や書式を完璧に維持したまま、特定の文字種のみを安全かつ高速に半角変換する」ための実践的アーキテクチャを提示する。
—
1. なぜ標準の `StrConv` では実務で使い物にならないのか？
VBA標準の `StrConv(Text, vbNarrow)` は、文字列を一括変換するには強力だが、WordのRangeオブジェクトに対して無慈悲に適用すると以下の致命的な問題が発生する。
1. 書式情報のロスト: `Range.Text` を書き換えるアプローチは、その範囲に紐づいていた文字装飾（太字、斜体、個別フォント、ハイパーリンク等）をすべて吹き飛ばす。
2. パフォーマンスの劣化: ドキュメント全体をパラグラフ単位、あるいは文字単位でループさせると、COMのラウンドトリップ（VBAとWordエンジン間通信）のオーバーヘッドにより、数百ページの文書で数分単位の硬直を招く。
シニアエンジニアが取るべきアプローチは一つ。「VBAの正規表現（VBScript.RegExp）」と「WordのRangeオブジェクトの最小限の操作」を融合させ、必要な箇所ピンポイントで置換を実行することだ。
—
2. 実装コード：実務に耐えうる堅牢な一括変換エンジン
以下のコードは、エラーハンドリング、画面描画のロック（パフォーマンス劇的改善）、そしてオブジェクトのライフサイクル管理を徹底したプロダクションコードである。
Option Explicit
‘ =========================================================================
‘ 処理名: 全角英数字半角化・フォント統一エンジン
‘ 概要 : 文書内の全角英数字（Ａ-Ｚ、ａ-ｚ、０-９）を検出し、
‘ 既存の書式を維持したまま半角に変換し、指定フォントを適用する。
‘ =========================================================================
Public Sub NormalizeFullWidthAlphanumeric()
‘ 処理時間計測用（パフォーマンス監視）
Dim startTime As Double
startTime = Timer
‘ 1. 画面描画とバックグラウンド再計算の完全停止（極限の高速化）
With Application
.ScreenUpdating = False
.DisplayAlerts = wdAlertsNone
.Calculation = wdCalculationManual
End With
Dim targetDoc As Document
Set targetDoc = ActiveDocument
On Error GoTo ErrorHandler
‘ 2. VBScript正規表現エンジンの初期化
Dim regEx As Object
Set regEx = CreateObject(“VBScript.RegExp”)
With regEx
‘ 全角英数字（Ａ-Ｚ：FF21-FF3A, ａ-ｚ：FF41-FF5A, ０-９：FF10-FF19）
.Pattern = “[０-９Ａ-Ｚａ-ｚ]”
.IgnoreCase = False
.Global = True
End With
‘ 3. 段落単位での走査（ストーリー範囲全体を対象）
Dim para As Paragraph
Dim rngTarget As Range
Dim match As Object
Dim matches As Object
‘ 統一したいフォント名
Const TARGET_FONT_NAME As String = “Meiryo UI”
Dim processedCount As Long
processedCount = 0
‘ 各段落をイテレート
For Each para In targetDoc.Paragraphs
Set rngTarget = para.Range
‘ 検索ヒットの有無を事前確認（無駄なRange操作を排除）
If regEx.Test(rngTarget.Text) Then
Set matches = regEx.Execute(rngTarget.Text)
‘ マッチした文字を逆順（後ろから）処理
‘ ※前方から置換すると文字長の変化によりRangeのオフセットがズレるため
Dim i As Long
For i = matches.Count – 1 To 0 Step -1
Set match = matches(i)
‘ マッチした位置のRangeを取得
‘ 注: Rangeの起点(Start)は段落の起点からの文字数オフセット
Dim subRng As Range
Set subRng = para.Range
subRng.Start = para.Range.Start + match.FirstIndex
subRng.End = subRng.Start + match.Length
‘ 文字種を半角に変換
subRng.Text = StrConv(subRng.Text, vbNarrow)
‘ フォントの強制適用（必要に応じて）
subRng.Font.Name = TARGET_FONT_NAME
processedCount = processedCount + 1
‘ オブジェクトの明示的解放（メモリリーク防止）
Set subRng = Nothing
Next i
End If
Set rngTarget = Nothing
Next para
‘ 正常終了処理
MsgBox “全角英数字の半角化が完了しました。” & vbCrLf & _
“処理件数: ” & processedCount & ” 箇所” & vbCrLf & _
“実行時間: ” & Format(Timer – startTime, “0.00”) & ” 秒”, _
vbInformation, “VBA処理完了”
CleanUp:
‘ 4. アプリケーション状態の復元（最重要）
With Application
.ScreenUpdating = True
.DisplayAlerts = wdAlertsAll
.Calculation = wdCalculationAutomatic
End With
‘ オブジェクトの完全解放
Set regEx = Nothing
Set targetDoc = Nothing
Exit Sub
ErrorHandler:
MsgBox “予期せぬエラーが発生しました。” & vbCrLf & _
“Error: ” & Err.Number & ” – ” & Err.Description, _
vbCritical, “致命的エラー”
Resume CleanUp
End Sub
—
3. チーフアーキテクトが解説するコードの急所
A. なぜ「逆順（`Step -1`）」で処理するのか？
正規表現でヒットした文字列の長さを置き換える際、全角から半角への変換は文字数が変わらない（通常1文字は1文字）が、もしマルチバイト文字の処理や置換文字列の長さに揺れがある場合、前方から処理を進めると `Range` のインデックスが狂い、予期せぬ文字列の破壊や無限ループを誘発する。
「位置が変動するコレクションやRangeの置換は、常に末尾から処理する」これはVBA自動化における鉄則中の鉄則である。
B. COMコンテキストとメモリ管理の極意
VBAはガベージコレクションを持たないため、`For Each` やオブジェクト生成を繰り返すとメモリリーク（COMオブジェクトの参照カウントの残留）を引き起こす。
特に `Paragraphs` コレクションや `Range` オブジェクトはメモリを大量に消費するため、ループの内部で生成した `subRng` などの変数は、処理の都度 `Set subRng = Nothing` で解放し、プロシージャ終了時にはすべてのルートオブジェクトを確実に解放している。この一手間が、何百ページもある巨大な仕様書を処理する際の「突然のメモリ不足クラッシュ」を防ぐ防壁となる。
C. 描画・再計算エンジンのハードウェアロック
`Application.ScreenUpdating = False` と `Application.Calculation = wdCalculationManual`。
Wordは段落のテキストが書き換わるたびに、レイアウトの再計算と画面描画を裏で行おうとする。これを放置すると、VBAの実行速度は数十分の一に低下する。処理の最初に完全にシステムをサイレントモードにし、最後に原状復帰させることで、C#製ツール並みの爆速処理を実現している。
—
4. レガシー環境・システム間連携における実務的注意点
1. Wordのバージョン差異への配慮:
Word 2010以前の環境や、Office 365のモダン環境が混在する社内インフラにおいて、`VBScript.RegExp` はOS標準のVBscriptランタイムに依存するため、Wordのバージョンに左右されず安定して動作する。ただし、Windows Server上のHeadless（非表示）環境で実行する場合は、ユーザープロファイルの権限やCOMコンポーネントの初期化タイミングに注意が必要だ。
2. システム間連携（RPAや外部バッチからのキック）:
このマクロを外部のRPA（UiPathやPower Automate）やVBScriptから呼び出す場合、Wordのセキュリティ設定（マクロの有効化）が障壁となる。必ず信頼できる場所（Trusted Location）にドキュメントを配置するか、デジタル署名を付与した上で、`Application.Run` 経由で安全に呼び出すアーキテクチャを構築すること。
総括
コードとは単に動けばいいものではない。巨大な文書、不安定なレガシー環境、そしてリソースの限られたPCのハードウェア特性を熟知した上で、「システムに負荷をかけず、正確に、美しく完遂する」ことこそが、プロフェッショナルなVBAエンジニアの仕事である。この知見をあなたの現場の自動化基幹に組み込んでほしい。
