VBAでWordのページ数を取得したい

Question

前提・実現したいこと

VBAでフッターのページ数を取得したいのですが、思うように取得することができませんでした。

ワードのフィールドにある{PAGE}から取得するようにすればよいのかな?と思って調べてみたのですが
取得する方法が分からなかったので質問させていただきます。
よろしくお願いいたします。

エラーメッセージ

該当のソースコード

VBA

.Sections(1).Footers(wdHeaderFooterPrimary).Range,
↑上記の取得の仕方だとフッターの文字列すべてが取得されてしまう
(　文章のタイトル　P.1　等)

.Information(wdActiveEndPageNumber)
↑上記の取得の仕方だと1章の1ページ　2章の1ページの際に同じく1と出力されてしまう

Comments

[ExcelVBAer]

VBAが　.　から記載されてますけど、
ちゃんと本当のコードを見せてくれませんか？

Answer 1

以下のような指定をするといけるのでは。
.Information(wdNumberOfPagesInDocument)
ソースの全文を載せないと原因、何がダメなのかの判断はつきません。

ex.)

Dim wdApp As Word.Application
Set wdApp = CreateObject("Word.Application")
wdApp.Visible = True
 
Dim wdDoc As Word.Document
Set wdDoc = wdApp.Documents.Open("ファイルパスとファイル名.docx")
 
With wdDoc
    Debug.Print "ページ数:" & .Content.Information(wdNumberOfPagesInDocument)
End With
 
wdApp.Visible = False
Set wdApp = Nothing

上手くいくといいですね。