Word vbaで、ページ毎に異なる「（セクション１の）ヘッダー」文字列を取得したい

Question

ご覧いただき、ありがとうございます。

Wordにて、ページ毎に異なる「ヘッダー」を持つドキュメントファイルを分割する際に、ファイルネームとして、その「ヘッダー」の文字列を取得したい。

wdHeaderFooterPrimaryでは、どうも初めのヘッダーの文字列しか、取得できない。処理するページが進んでも、そのページのヘッダー文字列を取得できません。

Rangeに問題があるのかとは思っていますが、MSのサイトなども調べましたが、自分では解決策を見つけることができませんでした。
実現したいのは、実際に処理中のページ（アクティブページ）のヘッダーの文字列を取得したい。

以下、最初のヘッダーの文字列を取得するためのコードです。

WordDocument.Sections(1).Headers(wdHeaderFooterPrimary).Range.Text

これは、正しく取得できますが、処理するページが変わり、セクション１ヘッダーの文字列が変わっても、常に同じ最初の値を返してきます。
上記のコードを、ループの中で、アクティブページが移動するたびに実行しています。

同様の経験のある方や、VBAグールーの方のお力をお借りできれば幸いです。
以上、よろしくお願いいたします。

Answer 1

1. 変数xを宣言して値を代入する
2. Replace()などの別の関数で、文字列操作する場合には、明示的に ActiveDocument. など範囲を指定する。

ActiveDocument.Sections(x).Headers(wdHeaderFooterPrimary).Range.Text

例：セクションヘッダーの文字列を取得して、改行コードを除去する

Replace(ActiveDocument.Sections(x).Headers(wdHeaderFooterPrimary).Range.Text, vbCr, "")

Answer 2

処理するページが変わり、ヘッダーを含むセクションが変わるのであれば、
セクション１ではなくセクション２などに変わっていくのではないでしょうか？
なので、コードとして
WordDocument.Sections(1).Headers(wdHeaderFooterPrimary).Range.Text
がセクション１（Sections(1)）のヘッダー文字列を取得できているのであれば、
WordDocument.Sections(2).Headers(wdHeaderFooterPrimary).Range.Text
WordDocument.Sections(3).Headers(wdHeaderFooterPrimary).Range.Text
：
と数字が増加していけばよいわけです。
おっしゃるようにループの中でこの数字部分が増加するようにしてみてはいかがでしょうか。

Comments

[taurus]

直ぐにご回答いただいたのに、レスが遅くなり申し訳ございません。
早速、セクションの指定をループの中で変数にて指定することで、欲しかった値が取得できるようになりました。ご教授ありがとうございます。

当方のVBA不勉強によるところですが、Withを使ってのActiveDocument.の指定が、別の関数内部では使えないことも原因でした。

ご協力とご教授、誠にありがとうございました！