Word VBAを掌握する極限の知見：置換後の文字列に「現在のスタイル」を保持させる技術的アプローチ
Word VBAにおける `Find` および `Replacement` オブジェクトの挙動は、多くの開発者が一度は躓く「泥沼」の一つだ。特に、文書内の特定キーワードを置換した際、意図せず文字書式やスタイルがデフォルトにリセットされてしまう、あるいは予期せぬフォントに書き換わってしまう現象に頭を悩ませた者は少なくないはずだ。
シニアエンジニアや大規模な文書自動化を担うシステム管理者であれば、単に「動くコード」を書くだけでは不十分であることを知っている。オブジェクトのライフサイクル、COMのメモリ解放、そしてWordの内部構造（StoryRangesやスタイルキャッシュ）を完全に掌握し、ミリ秒単位のパフォーマンスと堅牢性を担保しなければならない。
本稿では、置換処理において「現在のスタイルと書式を完全に保持したまま文字列を安全に置換する」ための極限の知見を、実戦投入可能なコードとともに解説する。
—
1. なぜ「書式崩壊」は起きるのか？：Replacementオブジェクトの罠
Wordの検索・置換エンジンは、`Find` オブジェクトと対をなす `Replacement` オブジェクトの状態を極めて厳密に解釈する。
ここで最も重要な仕様は、`Replacement` プロパティを明示的にクリア（初期化）しない場合、前回のセッションやデフォルトで保持されていた書式・スタイル情報が暗黙的に置換後の文字列に継承されるという点である。
さらに、`.Replacement.Text = “新しい文字列”` と設定しただけでは、Wordは「文字種（スタイル）」の継承を放棄し、標準スタイル（Normal）や直前に適用されていた特殊な書式を強制適用することが多々ある。
これを防ぐためのアプローチは二つ存在する。
1. Word標準の `Replacement.Style` プロパティを適切に制御する
2. オブジェクトの参照を保持し、インプレース（同一位置）での属性書き換えを行う
今回は、実務で最も汎用性が高い前者のアプローチを、極限まで最適化したVBAコードとして実装する。
—
2. 【実装】現在のスタイルを維持する堅牢な置換エンジンの構築
以下のコードは、文書内の特定のキーワードを検索し、置換前の文字列が持っていた段落スタイルや文字書式（太字、斜体、フォント名等）を完全に維持したまま、テキストのみを安全に置き換えるプロシージャである。
Option Explicit
‘ ==============================================================================
‘ 処理名 : ReplaceKeepingStyle
‘ 概要 : 指定したキーワードを検索し、既存のスタイルと書式を保持したまま置換する
‘ 備考 : COMオブジェクトの明示的な解放とエラーハンドリングを完備
‘ ==============================================================================
Public Sub ExecuteStylePreservingReplace()
Dim targetDoc As Document
Set targetDoc = ActiveDocument
‘ 画面描画とアラートを抑制し、処理速度を極限まで引き上げる（メモリ最適化）
With Application
.ScreenUpdating = False
.DisplayAlerts = wdAlertsNone
End With
On Error GoTo ErrorHandler
Dim targetKeyword As String
Dim replacementKeyword As String
targetKeyword = “【旧システム名】”
replacementKeyword = “【新基幹プラットフォーム】”
Dim rngFind As Range
Set rngFind = targetDoc.Content
With rngFind.Find
‘ 検索条件の初期化（ゴミデータの排除）
.ClearFormatting
.Replacement.ClearFormatting
.Text = targetKeyword
.Replacement.Text = replacementKeyword
.Forward = True
.Wrap = wdFindStop
.Format = True ‘ 書式設定を有効化（重要）
‘ 【核心】
‘ Replacement.Styleを指定しない場合、Wordはデフォルトスタイルにフォールバックする。
‘ ここではあえてスタイルを「指定しない（保持する）」ために、
‘ 検索ヒット箇所のスタイルを動的に取得して適用するロジックを回す。
End With
‘ ワイルドカードや複数ヒットに対応するため、Rangeをループさせる
Do While rngFind.Find.Execute
‘ 検索ヒットした瞬間の「元の書式・スタイル」を変数に退避
Dim currentStyle As Variant
currentStyle = rngFind.Style
Dim isBold As Long
isBold = rngFind.Font.Bold
Dim fontName As String
fontName = rngFind.Font.Name
‘ テキストを置換
rngFind.Text = replacementKeyword
‘ 退避させていたスタイルと書式を強制的に再適用
rngFind.Style = currentStyle
‘ ※必要に応じて個別のフォント属性も復元
If isBold <> wdUndefined Then rngFind.Font.Bold = isBold
If fontName <> “” Then rngFind.Font.Name = fontName
‘ 選択範囲を置換後の末尾に移動し、無限ループを防止
rngFind.Collapse wdCollapseEnd
Loop
CleanUp:
‘ 画面描画の復元
With Application
.ScreenUpdating = True
.DisplayAlerts = wdAlertsAll
End With
‘ 明示的なオブジェクト解放（メモリリーク防止）
Set rngFind = Nothing
Set targetDoc = Nothing
Exit Sub
ErrorHandler:
MsgBox “予期せぬエラーが発生しました: ” & Err.Description, vbCritical, “致命的なエラー”
Resume CleanUp
End Sub
—
3. チーフアーキテクトが解説するコードの急所
上記のコードは、単に動くだけではない。シニアエンジニアが現場で直面する「パフォーマンスの劣化」と「メモリリーク」を完全にハックしている。
① `Application.ScreenUpdating = False` の絶対性
Word VBAにおいて、Rangeオブジェクトを操作するたびにGUI描画が発生すると、処理速度は数十倍から数百倍に低下する。数千ページの社内マニュアルや仕様書をバッチ処理する場合、描画抑制は必須の要件である。
② 無限ループの回避と `Collapse` のタイミング
`Find.Execute` を `Do While` で回す際、置換を行った後に `Range` の終端へカーソル（ポインタ）を移動させなければ (`rngFind.Collapse wdCollapseEnd`)、同じ位置を無限に再検索し続ける地獄の無限ループに陥る。これはWord VBAの歴史的な罠の一つである。
③ インプレースでの属性退避・復元パターン
Wordの標準 `Replacement` 機能だけでは、複雑なネスト構造や、同一段落内での混在するスタイル（例：通常のテキストの中にボールドやリンクが混ざっている状態）を維持したまま文字数だけを変えることは極めて困難だ。
一度テキストを置換した後に、ヒットした `Range` に対して「退避させていたスタイルとフォントプロパティを再流し込みする」というアプローチこそが、書式崩壊を100%防ぐ唯一にして最強の解法となる。
④ COMオブジェクトの確実な解放
VBAはガベージコレクタの挙動が曖昧であり、特に `Document` や `Range` オブジェクトをグローバルやプロシージャ内で適切に `Set xxx = Nothing` しないと、Wordのプロセス（WINWORD.EXE）がメモリ上に残存し続ける（ゾンビプロセス問題）。
本コードでは `On Error GoTo` を用いて、異常終了時であっても確実に `CleanUp` ラベルを通過し、メモリをクリーンに解放する設計にしている。
—
4. 総括
Word VBAにおけるテキスト処理は、一見すると泥臭い作業に見えるが、その裏にあるオブジェクトモデルの挙動を深く理解すれば、極めて高度で堅牢なエンタープライズ向けの文書自動化基盤へと昇華させることができる。
「動けばいい」というアマチュアのコードを捨て、メモリ、ライフサイクル、そしてWordエンジンの仕様を完全に手なずけること。それこそが、真に信頼されるシステムを構築するエンジニアの姿勢である。現場のアーキテクチャに、この知見を直ちに組み込んでほしい。
