こんにちは！ Word VBAの世界へようこそ。
マクロの記録ボタンを押してコードを生成する日々から、自分の手でドキュメントを意のままに操るステージへステップアップしようとしているあなたへ。今日は、実務で非常に多くの人が頭を悩ませる「あるあるトラブル」を鮮やかに解決する、とっておきの知見を授けましょう。
ここをクリアすれば、Wordの内部構造（オブジェクトモデル）に対する理解が一段と深まり、あなたも立派な中級エンジニアの仲間入りです。温かく導いていきますので、ゆっくりついてきてくださいね。
—
現場の悲鳴：なぜ脚注の書式は崩れてしまうのか？
Wordで報告書や論文、マニュアルを作成しているとき、こんな現象に遭遇したことはありませんか？
1. 本文の段落に、こだわりのフォントやサイズ、行間を設定した。
2. その段落から「脚注（または文末脚注）」挿入した。
3. ……あれ？ 脚注の番号やテキストのフォントが、親段落のスタイルを無視して標準フォントに戻ってしまった！
Wordの仕様上、脚注や文末脚注は、親段落の書式を自動で完璧には継承してくれないことが多々あります。特にスタイルをゴリゴリにカスタマイズしているドキュメントでは、脚注だけが浮いてしまい、全体の見栄えが台無しに。
これを手動で一つひとつ直していくのは、気の遠くなるような作業です。もちろん、標準スタイル（「脚注テキスト」など）を一括変更する方法もありますが、「特定の親段落のニュアンスに合わせたい」という局所的な要求には応えられません。
ならば、VBAで親段落のフォント設定を検出し、脚注の内部文字列（および番号）へ強制的に同期させてしまいましょう！
—
オブジェクトのライフサイクルを理解する
Word VBAでドキュメントを操作するとき、私たちが最も意識しなければならないのは「どこを起点に、どのオブジェクトを指しているか（コンテキスト）」です。
今回のミッションの構造はこうです。
- 文書中のすべての段落 (`Paragraphs`) を走査する
- 各段落の中に含まれる「脚注参照（Footnote Reference）」という特殊な文字を探す
- その参照が紐づいている「実際の脚注（Footnote）」オブジェクトを特定する
- 親段落のフォント名やサイズを取得し、脚注内のフォントをごっそり書き換える
言葉で書くと難しそうですが、コードにするとWord VBAの本質が見えてきます。さっそく、現場でそのまま使える実用コードを見てみましょう。
—
実装コード：親段落と脚注の書式を同期させるマクロ
以下のコードを、WordのVBAエディタ（`Alt + F11`）の標準モジュールに貼り付けて実行してください。
Sub SyncFootnoteStylesWithParent()
Dim p As Paragraph
Dim fn As Footnote
Dim rngParent As Range
Dim targetFontName As String
Dim targetFontSize As Single
Dim targetFontColor As Long
‘ 画面描画を停止してマクロの実行速度を爆発的に上げる（お約束のテクニックです）
Application.ScreenUpdating = False
‘ 文書内のすべての段落をループ処理
For Each p In ActiveDocument.Paragraphs
‘ 段落内に脚注（Footnote）が存在するかチェック
If p.Range.Footnotes.Count > 0 Then
‘ 親段落の基本フォント情報を取得
‘ ※段落全体でフォントが混在している場合は、先頭の文字の書式を基準にします
targetFontName = p.Range.Font.Name
targetFontSize = p.Range.Font.Size
targetFontColor = p.Range.Font.Color
‘ その段落に紐づく脚注をすべて取得してループ
For Each fn In p.Range.Footnotes
‘ 1. 脚注内のテキスト本体のフォントを親段落に合わせる
With fn.Range.Font
.Name = targetFontName
.Size = targetFontSize
.Color = targetFontColor
End With
‘ 2. 本文側にある「脚注番号（参照文字）」のフォントも親段落に合わせる場合
‘ ※fn.Referenceで本文中の参照箇所をRangeとして取得できます
With fn.Reference.Font
.Name = targetFontName
‘ 参照番号は少し小さくしたい等の要件がなければ、同じサイズに
.Size = targetFontSize 0.9 ‘ 例: 少し小さくするなら調整可能
End With
Next fn
End If
Next p
‘ 画面描画を再開
Application.ScreenUpdating = True
‘ 完了メッセージ
MsgBox “すべての脚注書式が親段落と同期されました！”, vbInformation, “処理完了”
End Sub
—
コードの注目ポイント（ここがエンジニアの腕の見せ所）
初心者から一歩抜け出すために、このコードの「美味しいポイント」を解説します。
1. `Application.ScreenUpdating = False` の魔法
Word VBAでドキュメントを1段落ずつ操作するマクロを書くとき、画面描画をオンにしたままだと、画面がチラつき、処理速度が何倍も遅くなります。
プロのエンジニアは、処理の最初に画面をフリーズさせ、最後に一気に描画を復元させます。この「お作法」だけでも覚えて帰ってくださいね。
2. `p.Range.Footnotes.Count` による無駄撃ちの回避
すべての段落をループしつつ、「そもそもこの段落に脚注はあるのか？」を `If` で判定しています。
Wordのオブジェクトモデルでは、存在しないものを取得しに行こうとするとエラー（または無駄な処理）が発生するため、事前に存在チェック（ガード節）を入れるのが安全なコードの基本です。
3. 本文側の「参照（Reference）」と「実体（Range）」の分離
ここが最大のハイライトです。
Wordの脚注システムは、「本文中にある小さな数字（脚注参照）」と、「ページ下部にある解説文（脚注本体）」の2つに分かれています。
今回のコードでは、`fn.Range`（本体）だけでなく、`fn.Reference`（本文の参照番号）のフォントも同時に書き換えています。これにより、本文と脚注の一体感が劇的に向上します。
—
陥りやすいエラーと回避策
実際にこのコードを運用する中で、いくつか躓きやすいポイントがあります。あらかじめ知っておけば怖くありません。
- 「実行時エラー 4605: このメソッドまたはプロパティは、選択されている領域が脚注範囲ではないため使用できません」
- 原因: 選択範囲（Selection）に依存したコードを書いている場合に発生します。
- 対策: 今回のコードのように、`Selection` を一切使わず、`ActiveDocument.Paragraphs` や `Paragraph.Range` といった完全修飾されたRangeオブジェクトを操作していれば、このエラーは完全に回避できます。これが「オブジェクト指向的な書き方」の強みです。
- フォントサイズが「999,999（未定義）」になるケース
- 原因: 1つの段落の中に、明朝体とゴシック体が混在しているようなカオスな状態のとき、`p.Range.Font.Size` が特殊な値を返すことがあります。
- 対策: 基本的には「段落スタイル」そのものを統一しておくことが大前提ですが、どうしても混在しうる場合は、エラーハンドリング（`On Error Resume Next`）を適切に挟むとより堅牢になります。
—
まとめ
お疲れ様でした！
今回は「段落内の脚注書式を親段落と同期させる」という、一見マニアックでありながら実務では喉から手が出るほど欲しくなるテーマを解説しました。
- 画面描画の制御でパフォーマンスを担保する
- Rangeオブジェクトを起点にして、本文と脚注を正確にターゲティングする
- `Selection` に頼らない、安全でモダンなVBAコードを書く
ここをクリアできたあなたなら、もう「マクロの記録の奴隷」ではありません。ご自身の業務を自動化するだけでなく、周囲のメンバーをあっと言わせる美しいツールが作れるはずです。
次回のテーマでも、現場で使える実践的な知見をお届けします。お楽しみに！
