【Word・VBA】フッターのページ番号以外を削除したい

Question

複数のWordファイルのフッターの処理（シェイプ等の入れ替え）に取り組んでおります。
処理の前に下記のコードで、既存のフッターを削除しているのですが、ページ番号
だけは、残したいと考えております。

Footer_clear1　ではフッターの全削除には成功しました。
ただし、ページ番号も削除されてしまいます。

Footer_clear2　はページ番号はShapesではないと考えましたが、ページ番号以外の
オブジェクトも残る等の問題があり、却下しました。

Footer_clear1をベースに『Typeが「ページ番号」であれば削除する』処理を加えれば良い
と考えているのですが、typeを調べて取得することはできるのでしょうか？

そのほか、良い方法があればご教授頂きたく、よろしくお願いいたします。

Sub Footer_clear1()
  Dim sec As Section
  Dim hd_ft As HeaderFooter
   For Each sec In ActiveDocument.Sections
   For Each hd_ft In sec.Footers
      hd_ft.Range.Delete
    Next　hd_ft
  Next sec
 End Sub

Sub Footer_clear2()
Dim sect As Section
For Each sect In ActiveDocument.Sections
    For Each ftr_shp In sect.Footers(wdHeaderFooterPrimary).Shapes
        ftr_shp.Delete
    Next ftr_shp
Next sect
End Sub

Comments

[mdj]

コードは見てませんが、全削除後に再度ノンブルのみ設定したほうがシンプルではないでしょうか。ノンブルがイレギュラーな振られ方をしているならば別ですが

[TNF_1023]

コメントありがとうございます。ご指摘の通り、全削除後の再設定がシンプルで良いと思います。ただ、これもご推察の通り「振られ方」に統一性がありません。ページ番号の有無やスタイルについて、取得できる方法があればいいのですが。ご存知でしたらご指摘いただきたく思います。

[mdj]

ページ番号のスタイルは「PageNumbersオブジェクト」にある「numberstyleプロパティ」（https://msdn.microsoft.com/ja-jp/vba/word-vba/articles/pagenumbers-numberstyle-property-word）ではわかりませんでしょうか。有無はこのオブジェクトがheaderfooterに無いのではないかなーと思います。

[TNF_1023]

コメントありがとうございます。PageNumbersオブジェクトで、既存のページ番号の取得やある程度の再現が可能となりました。ただ、既存のフッターを消してしまうので、手作業での「現在位置」への挿入をVBA化する方法を調べてみたいと思います。

[mdj]

「現在位置」がfooter自体と仮定して。PageSetup.FooterDistance プロパティ (https://msdn.microsoft.com/ja-jp/vba/word-vba/articles/pagesetup-footerdistance-property-word）で取得、設定できそうです。PageSetupオブジェクトも合わせてご参照ください。

[mdj]

ついでにググった手順を。「vba footer 位置」で検索　→　検索1件目で「（エクセルVBAで）ヘッダー・フッターを設定するPageSetupオブジェクトのプロパティ」と書かれていたので、たぶんWordも同じ　→　「PageSetup word」で検索、のような感じです。

Answer 1

Footer_clear1の後に、ページ番号を追加するのは駄目ですか＾＾？