こんにちは。Word VBAの世界へようこそ。
「マクロの記録」ボタンを押して生成されたコードの羅列に、「なぜ動くのかわからない」という不安を感じていませんか？
今日は、Word VBAにおける「聖域」とも呼べる『ページ番号の取得』という深いテーマに切り込みます。実は、Wordで現在のページ番号を知ることは、Excelでセルを参照するよりも遥かに複雑で、エンジニア泣かせなタスクなのです。
さあ、プロフェッショナルへの第一歩を踏み出しましょう。
—
1. なぜ `wdActiveEndPageNumber` だけではダメなのか？
多くの初心者は、現在のページ位置を知るために `Selection.Information(wdActiveEndPageNumber)` を使います。しかし、大規模な文書を扱うようになると、この値が「あれ？ 何かおかしいぞ」と裏切る瞬間が必ず来ます。
陥りやすい「罠」
- セクション区切りの存在: 文書内にセクション区切りがあると、ページ番号のカウントがリセットされたり、書式が変わったりします。
- 非表示テキストとレンダリング: Wordは「動的レイアウト」エンジンです。画面に見えているものが、必ずしも内部的な計算上のページ位置と一致するとは限りません。
- バックグラウンド処理: 大きな文書では、Wordがページ付け（Pagination）を完了する前にコードが走ってしまい、古い情報を掴んでしまうことがあります。
—
2. ページ番号取得の「真実」：Rangeオブジェクトを使いこなす
Word VBAの肝は、`Selection`（カーソルがある場所）に頼らず、`Range`オブジェクトを「狙い撃ち」することです。`Selection`は画面をスクロールさせるため非常に遅いですが、`Range`はメモリ上で高速に処理されます。
正確にページ番号を取得するロジック
以下は、文書内の任意の場所（Range）の正確なページ番号を算出するための、現場で使える堅牢なコードです。
‘ ———————————————————
‘ 指定したRangeオブジェクトが何ページ目にあるかを返す関数
‘ ———————————————————
Function GetActualPageNumber(targetRange As Range) As Long
‘ Wordに強制的に再レイアウトを促し、最新の情報を計算させる
‘ これを怠ると、ページ番号がずれる最大の要因になります
targetRange.Document.Repaginate
‘ Informationプロパティを使用してページ番号を取得
‘ wdActiveEndPageNumberは範囲の「終了位置」のページを指します
GetActualPageNumber = targetRange.Information(wdActiveEndPageNumber)
End Function
‘ — 実行用サンプルコード —
Sub ShowCurrentPageInfo()
Dim rng As Range
Set rng = Selection.Range
‘ 現在の選択範囲が何ページ目かを表示
MsgBox “現在地は ” & GetActualPageNumber(rng) & ” ページ目です。”
End Sub
—
3. なぜ `Repaginate` が必要なのか？
先ほどのコードにある `targetRange.Document.Repaginate`。これがプロのコードと素人のコードを分かつ境界線です。
Wordは、メモリ節約のために「ページ番号の計算を後回し」にします。しかし、VBAでページ番号を取得しようとすると、計算が終わっていない場所に対して「今の番号を教えて」と聞くことになります。その結果、本来とは異なる値が返ってくるのです。
ここがポイント：
大規模な文書であればあるほど、この `Repaginate` を呼ぶタイミングが重要です。ループ処理の中で毎回呼ぶと非常に低速になるため、処理の開始時に一度だけ呼ぶのが「効率化の極意」です。
—
4. プロの視点：さらなる高みへ
もし、あなたが「ヘッダーの中にある文字」や「図形の中にあるテキスト」のページ番号を知りたいなら、上記のアプローチだけでは限界があります。その場合は、`Range.Information` ではなく、`Window.Panes(1).Pages` コレクションを探索する必要があります。
しかし、まずは今回紹介した `Range` + `Repaginate` の組み合わせをマスターしてください。これができれば、Word VBAのオブジェクトモデルの「呼吸」が理解できたと言っても過言ではありません。
まとめ：今日から意識すべき3つのこと
1. Selection依存からの脱却: `Selection`ではなく、特定の`Range`を操作する。
2. 計算の強制: `Repaginate`を正しく使い、Wordの動的なページングを制御下に置く。
3. 文書の構造を意識: セクション区切りがページ番号にどう影響するか、常に頭の片隅に置いておく。
ここをクリアすれば、あなたはもう「マクロの記録」を使うだけのユーザーではありません。Wordという巨大なシステムを、コードで自由自在に操るエンジニアの仲間入りです。
次は、どのオブジェクトについて深掘りしましょうか？ 質問があればいつでもどうぞ。あなたの成長を心から応援しています。
