Word VBA フッターでの文字の置換

ワードのVBAを使って、文章のみならず、フッターの文字の置換をやりたい。
過去ログをいろいろ調べましたが、今一つわかりません。

下のテストマクロにて、本文の文字は置換できます。
そこで、オブジェクトの階層をたどって、使えそうなコマンドに仕上げて
　　[ Selection.HeaderFooter.Range.Find ]
実行しましたが、オブジェクト変数が設定されていませんと、返ってきます。

Sub Test()
With Selection.Find
.Text = "豊臣"
.Replacement.Text = "徳川"
.Wrap = wdFindContinue
.Execute Replace:=wdReplaceAll
End With
ここまでは、本文での話であり、うまく置換はできます。

ここからが、問題のフッターでの置換作業の部分のつもりです。
With Selection.HeaderFooter.Range.Find　’＜－－この行にてエラー
.Text = "豊臣"
.Replacement.Text = "徳川"
.Wrap = wdFindContinue
.Execute Replace:=wdReplaceAll
End With
End Sub

以上、よろしくお願い致します。

質問者からの補足コメント

• エラーは解消、置換はできていません
  Sub Test2()
  Dim sec As Section
  Dim hdr As HeaderFooter
  With Selection.Find
  .Text = "豊臣"
  .Replacement.Text = "徳川"
  .Wrap = wdFindContinue
  .Execute Replace:=wdReplaceAll
  End With
  For Each sec In ActiveDocument.Sections
  For Each hdr In sec.Headers
  With hdr.Range.Find
  .Text = "豊臣"
  .Replacement.Text = "徳川"
  .Wrap = wdFindContinue
  .Execute Replace:=wdReplaceAll
  End With
  Next
  Next
  End Sub

    補足日時：2015/10/31 06:51

No.1 ベストアンサー 回答者： enunokokoro 回答日時： 2015/10/31 10:03

私が回答した過去ログを試してみて。

Word2010特定の名前を置き換えるマクロ
https://oshiete.goo.ne.jp/qa/8497837.html

この回答へのお礼

ありがとうございます。。
うまく行きました。

お礼日時：2015/11/01 21:56