【入門編】Word文書のセクション区切りをVBAで制御する：ページ設定の動的変更 – Word VBA解析バイブル

Word VBA

2026.08.24

こんにちは。自動化の深淵へようこそ。
これまで「マクロの記録」ボタンを押して生成された、冗長で脆いコードに悩まされてきませんでしたか？

Word VBAにおいて、最も多くの人が挫折し、かつ最も強力な武器になるのが「セクション（Section）オブジェクト」の操作です。これが理解できれば、Wordは単なるワープロソフトから、あなたの意のままに動く「動的ドキュメント生成エンジン」へと変貌します。

今日は、文書の一部だけを横向きにしたり、ヘッダーを独立させたりするための「セクションの極意」を伝授します。

—

Wordの文書は、一見すると1枚の長い紙に見えますが、内部的には「セクション」という区画の積み重ねで構成されています。

これらはすべて「セクション」単位で管理されています。つまり、文書の特定の場所だけを横向きにするということは、「そこにセクションの境界線を引き、その区画だけに独自の属性を適用する」という作業に他なりません。

—

まずは、現在のカーソル位置（Selection）の直前に、新しいセクションを挿入するコードを見てみましょう。

Sub InsertNewSection()
‘ 現在のカーソル位置にセクション区切り（次のページから開始）を挿入
Selection.InsertBreak Type:=wdSectionBreakNextPage

‘ 新しく作成されたセクションを取得
‘ Selection.Sections(1) は、現在のカーソルがあるセクションを指す
Dim targetSection As Section
Set targetSection = Selection.Sections(1)

‘ ページ設定を変更する（横向きに変更）
With targetSection.PageSetup
.Orientation = wdOrientLandscape
.TopMargin = CentimetersToPoints(2) ‘ 余白を2cmに設定
End With
End Sub

`Selection.InsertBreak`: これが「区切り」の正体です。`wdSectionBreakNextPage`を指定すると、新しいページから新しい設定を開始できます。
`PageSetup`オブジェクト: セクションの「属性」を司る心臓部です。ここを叩くことで、Wordのあらゆる書式をプログラムから制御できます。

—

セクションを分けると、初心者が必ず直面するのが「ヘッダーが前のセクションと連動してしまう」という問題です。

Wordのデフォルト設定では、新しいセクションは「前と同じヘッダー」を使用するようにリンクされています。これを解除しないと、せっかくページ設定を変えても、ヘッダーの内容がすべて同じになってしまいます。

Sub BreakHeaderLink()
‘ 新しいセクションを挿入
Selection.InsertBreak Type:=wdSectionBreakNextPage

‘ セクションのヘッダー（先頭ページ以外）のリンクを解除
‘ LinkToPrevious を False にすることが重要です
Selection.Sections(1).Headers(wdHeaderFooterPrimary).LinkToPrevious = False

‘ ここで自由にヘッダーを書き換える
Selection.Sections(1).Headers(wdHeaderFooterPrimary).Range.Text = “新しい章のタイトル”
End Sub

—

実務では、「文書の3ページ目だけを横にして、あとは縦に戻したい」といった要望がよくあります。その際、闇雲にセクションを増やすと文書構造が崩壊します。

「挿入 → 設定 → 戻す」という一連のライフサイクルを意識してください。

Sub FormatSpecificRange()
‘ 1. 現在のカーソル位置でセクションを切り出す
Selection.InsertBreak Type:=wdSectionBreakNextPage

‘ 2. 横向きにする
Selection.Sections(1).PageSetup.Orientation = wdOrientLandscape

‘ 3. その後、さらに次のセクションを作って縦に戻す
Selection.InsertBreak Type:=wdSectionBreakNextPage
Selection.Sections(1).PageSetup.Orientation = wdOrientPortrait
End Sub

—

VBAをただの「作業記録」から「設計」へと昇華させるコツは、「Wordが内部的にどういう階層構造で世界を見ているか」を想像することです。

1. Application（Wordそのもの）
2. Document（ファイル）
3. Section（区画）
4. PageSetup（設定）

この階層を意識してコードを書くと、エラーは激減し、保守性の高い、伝説的なエンジニアのコードに近づきます。

まずは今日紹介した `InsertBreak` と `PageSetup` を組み合わせて、自分だけの「自動ドキュメント生成機」の第一歩を踏み出してみてください。これさえマスターすれば、Word業務の8割はあなたの手の内に収まります。

何か詰まったら、いつでも戻ってきてください。あなたの自動化の旅を、私は常にここから応援しています。