見出しを制する者はWordを制す：スタイル属性を操る「Findオブジェクト」の極意
こんにちは。自動化の世界へようこそ。
マクロの記録ボタンを押して、生成された大量のコードに頭を抱えた経験はありませんか？「なぜか動かない」「どこを直せばいいのか分からない」。それは、WordのFindオブジェクトという「強力なエンジン」を、まだあなたの手足のように扱えていないだけです。
今回は、単なる文字列検索を超えて、「見出しスタイル」というWordの背骨をターゲットにした置換術を伝授します。これさえ理解すれば、ドキュメントの構造を守りながら、瞬時に修正を施す「Wordの魔術師」になれますよ。
—
1. なぜ「スタイル」を検索条件にするのか？
プロの現場では、文字列そのものよりも「その文字列がどの役割を持っているか」が重要です。例えば、「はじめに」という文字を置換したいとき、本文中の「はじめに」まで書き換えてしまったら大惨事ですよね。
Word VBAにおいて、「スタイル」を条件に加えることは、外科手術のような正確な検索を可能にすることを意味します。
—
2. 検索の心臓部：Findオブジェクトを掌握せよ
WordのFindオブジェクトは、設定が非常に「しぶとい」性質を持っています。一度設定した条件は、コードが終わるまで保持され続けるのです。だからこそ、「初期化」と「リセット」が命です。
実践コード：見出しレベルのみを置換する
以下のコードは、「見出し 1」スタイルが適用されている特定の文字列だけを、文書構造を壊さずに置換するサンプルです。
Sub ReplaceHeadingStyleOnly()
‘ Wordの検索エンジンを初期化するためのRangeオブジェクト
Dim rng As Range
Set rng = ActiveDocument.Content
‘ Findオブジェクトの設定（ここが心臓部です）
With rng.Find
.ClearFormatting ‘ 前回の検索設定を完全に消去（必須！）
.Replacement.ClearFormatting
.Text = “旧見出し名” ‘ 検索する文字列
.Replacement.Text = “新見出し名” ‘ 置換後の文字列
‘ スタイルを検索条件にセット
.Style = ActiveDocument.Styles(wdStyleHeading1)
.Forward = True ‘ 文書の先頭から末尾へ検索
.Wrap = wdFindContinue ‘ 文書末まで行ったら最初に戻る
.Format = True ‘ スタイル検索を有効にする
‘ 一気に実行
.Execute Replace:=wdReplaceAll
End With
MsgBox “見出し1の置換が完了しました。”
End Sub
—
3. 初学者が必ずハマる「3つの罠」
このコードを書き写すだけでは、いつか痛い目を見ます。現場で生き残るために、以下の「罠」を覚えておいてください。
① `.ClearFormatting` を忘れる
Wordの検索機能は「前回の設定」を記憶する粘着質な性格です。これを怠ると、「前回の検索で使った太字設定」などが残っていて、全くヒットしない……という悪夢を見ることになります。
② `Range`オブジェクトのスコープ
`Selection`を使って検索するコードをよく見ますが、これは非推奨です。画面がチカチカして遅い上に、ユーザーがうっかり触るとエラーになります。`ActiveDocument.Content`（文書全体）を指す`Range`オブジェクトを使いましょう。
③ スタイル名の日本語環境問題
`ActiveDocument.Styles(wdStyleHeading1)` と書くのが最も安全です。`”見出し 1″` と直接文字列で指定すると、OSの言語環境やテンプレートの作り方によって動かないリスクがあるからです。
—
4. さらなる高みへ：正規表現の併用
もし「見出しレベル1〜3までを一括で……」あるいは「見出しに含まれる特定の連番を置換したい」という高度な要求がある場合、標準のFindオブジェクトでは限界があります。
そんな時は、「VBScript.RegExp」を呼び出すか、Wordの「ワイルドカード検索」を組み合わせます。
- ワイルドカード検索のヒント:
`.MatchWildcards = True` を設定すれば、`[0-9]{1,}` のような正規表現に近いパターンマッチングが可能です。
—
今日のまとめ：ステップアップの指針
1. Findオブジェクトは必ず `.ClearFormatting` から始める。
2. `Selection` ではなく `Range` を使い、見えない場所で処理を完結させる。
3. スタイル指定は定数（`wdStyleHeading1`等）を使い、環境依存を避ける。
この3つを意識するだけで、あなたの書くコードは「動くマクロ」から「信頼できるツール」へと進化します。
Wordの構造が見えてくると、自動化はもっと楽しくなります。次はどの部分を自動化しましょうか？あなたの挑戦を応援しています。
