【実務・中級編】Word VBAで『ページ設定』をセクションごとに動的変更する：Range.PageSetupの活用 – Word VBA解析バイブル

Word VBAを掌握する極限の知見：『ページ設定』の罠を断つ！セクションとRange.PageSetupの完全制御

Word VBAの自動化において、最も多くの開発者を絶望の淵に追い込む要素は何か。それは「レイアウトの崩壊」だ。

特に、1つの文書内で「縦向き」と「横向き」を混在させたり、特定ページだけ余白を変更したりする要件。これを愚直に `ActiveDocument.PageSetup` を操作して実装しようものなら、文書全体が意図しないレイアウトに変貌し、発注元からの冷酷な修正依頼という名の爆弾が降ってくることになる。

今回は、Wordのオブジェクトモデルの深淵にある「セクションのライフサイクル」と、実務で唯一信頼できる「`Range.PageSetup` の活用術」を、チーフアーキテクトの私から授けよう。

—

1. なぜ「全域PageSetup」は悪なのか？（オブジェクトモデルの真実）

多くの初学者が陥るアンチパターンがこれだ。

‘ 【絶対に行ってはならない非効率なコード】
ActiveDocument.PageSetup.Orientation = wdOrientLandscape

Wordにおいて、`Document.PageSetup` は「文書全体のデフォルト設定」を保持するプロパティではない。それを変更するということは、文書内に存在するすべてのセクションのレイアウトを一括で書き換える行為に他ならない。

もし、文書の途中から横向きの表や大きな図を挿入したい場合、このアプローチでは前半の縦向きページまですべて横向きになってしまう。

Wordレイアウトの真の支配者：セクションとブレーク

Wordのページ設定は、セクション（`Section` オブジェクト）単位で独立している。そして、セクションを分けるためには「セクション区切り（Section Break）」を挿入しなければならない。

しかし、ここでさらなる罠がある。セクション区切りを安易にコードから挿入すると、既存の段落書式が引き継がれたり、予期せぬ空段落が生成されてレイアウトのグリッドが崩壊するのだ。

ここで登場するのが、`Range.PageSetup` である。

—

2. 堅牢な設計：Range.PageSetup による動的セクション制御

プロのエンジニアが実装すべき設計思想はこうだ。

1. 対象範囲（Range）を明確に特定する。
2. その範囲の前後に「改ページを伴うセクション区切り」を動的に挿入する。
3. 生成されたセクションの `PageSetup` のみをピンポイントで書き換える。

このアプローチにより、文書全体の他の部分に一切影響を与えることなく、狙った範囲だけを縦・横・余白変更の自由自在な空間に仕立て上げることができる。

—

3. 【プロダクションコード】特定範囲を横向きに変換する実用マクロ

実務の現場でそのままコピー＆ペーストして使える、極限まで堅牢性を高めたプロシージャを提供する。このコードは、指定したレンジ（例：大きな表やグラフが含まれる段落）の前後にセクションを自動生成し、そこだけを横向き（A4横など）に変更する。

Option Explicit

”’

Public Sub ConvertRangeToLandscape(ByVal targetRange As Range)
On Error GoTo ErrorHandler

‘ トランザクション的な処理のため画面描画をロック（パフォーマンス向上とチラつき防止）
Application.ScreenUpdating = False

Dim targetSection As Section
Dim startRange As Range
Dim endRange As Range

‘ 1. 対象範囲の開始位置と終了位置を退避
Set startRange = targetRange.Duplicate
startRange.Collapse wdCollapseStart

Set endRange = targetRange.Duplicate
endRange.Collapse wdCollapseEnd

‘ 2. 範囲の直前にセクション区切り（次のページから開始）を挿入
‘ ※挿入によりRangeの位置がずれるため、セクションオブジェクトを確実に取得する
startRange.InsertBreak wdSectionBreakNextPage
Set targetSection = startRange.Sections(1)

‘ 3. 範囲の直後にもセクション区切りを挿入（後続のページを元の向きに戻すため）
endRange.InsertBreak wdSectionBreakNextPage

‘ 4. 挟まれたセクション（targetSection）のページ設定を「横向き」に変更
With targetSection.PageSetup
.Orientation = wdOrientLandscape

‘ 必要に応じて用紙サイズや余白もここで制御可能
.PageWidth = MillimetersToPoints(297) // A4横の幅
.PageHeight = MillimetersToPoints(210) // A4横の高さ

‘ ヘッダー・フッターのリンクを断ち切る場合はここを設定
‘ .Headers(wdHeaderFooterPrimary).LinkToPrevious = False
End With

CleanUp:
Application.ScreenUpdating = True
Exit Sub

ErrorHandler:
MsgBox “ページ設定の動的変更中に致命的なエラーが発生しました。” & vbCrLf & _
“エラー番号: ” & Err.Number & vbCrLf & _
“エラー内容: ” & Err.Description, vbCritical, “チーフアーキテクトからの警告”
Resume CleanUp
End Sub

—

4. 現場で活きる！ファイル・DB連携時の注意点

このマクロを、外部データベース（SQL ServerやAccessなど）から取得したデータや、Excelの集計結果を元にWord文書を自動生成するバッチ処理（データ駆動型ドキュメント生成）に組み込む場合、以下のポイントを必ず死守してほしい。

① Rangeの崩壊（Reference Lost）を防げ

VBAで `InsertBreak` や文字の挿入を行うと、Word内部のポインタである `Range` オブジェクトの長さや位置が変動する。連続して処理を行う場合は、必ず `Duplicate` メソッドを用いてRangeをクローンするか、処理の都度レンジを再定義すること。これを怠ると、意図しない文字の置換や実行時エラー（インデックスが有効範囲にありません）の温床となる。

② セクションインデックスのハードコーディング禁止

「`ActiveDocument.Sections(2)` を操作する」といったハードコーディングは、文書のテンプレートが少し改修されただけで破綻する。必ず 「操作したい要素から起算してセクションを取得する（`Range.Sections(1)` など）」 という相対的なアプローチをとること。これが保守性の高いコードの絶対条件だ。

—

5. 総括

Word VBAの美しさは、適切なオブジェクトの階層構造を理解した者に対してのみ、完璧なまでの自動化という果実をもたらす点にある。

`Range.PageSetup` を手に入れたあなたにもはや、レイアウト崩れの恐怖はない。セクションの境界を自在に操り、人間が手作業で行えば数時間かかるレイアウト調整を、一瞬で、かつ完璧な品質で完了させる極上のシステムを構築してほしい。

健闘を祈る。