こんにちは！Word VBAの世界へようこそ。
マクロの記録ボタンを押して出てきたコードをそのまま動かしたら、なぜかエラーになったり、予期せぬページで余白が狂ったりして頭を抱えた経験はありませんか？
「特定のページだけ横向きにしたいのに、前のページまで一緒に横向きになってしまった…」
「ヘッダーの会社名を変えたら、表紙の裏まで同じ名前が入ってしまった…」
Word文書の自動化において、この「セクション」と「ヘッダーのリンク」の壁を突破できるかどうかが、マクロの記録から脱却し、真の自動化エンジニアになれるかの分かれ道です。
今回は、大規模文書のレイアウトをVBAで自在にコントロールするための極意を、優しく、そして本質的なところまで徹底的に解説していきますね。ここをクリアすれば、Word VBAの基本はバッチリですよ！
—
1. Word VBAの心臓部：「セクション」と「Range」の正体
まず、Wordのオブジェクトモデルの基本を押さえましょう。Excelが「セル（Cell）」の集合体であるなら、Wordは「ストーリー（StoryRanges）」と「セクション（Sections）」の集合体です。
- Document: 文書全体という大宇宙。
- Section: ページ設定（余白・向き・段組み）を独立させるための「区画」。
- Range: 文書内の「位置（始点と終点）」を示す帯。文字だけでなく、書式も宿ります。
マクロの記録を使うと `Selection`（選択範囲）を操作するコードが大量生産されますが、実務の大規模文書で `Selection` を使うのは、暗闇の中で目隠しをしてナイフを振り回すようなものです。処理が遅くなるうえに、意図しない場所を選択してエラーの原因になります。
私たちは、「裏側でオブジェクトを直接指名して操作する（RangeやSectionの明示的指定）」というプロの作法を身につけましょう。
—
2. 誰もがハマる罠：「ヘッダーのリンク」のメカニズム
セクションを新しく区切ったとき、Wordは親切心（お節介とも言います）で「前のセクションと同じヘッダーを使う（リンクする）」という設定をデフォルトで有効にします。
VBAで新しくセクションを追加して、そこだけ余白や向きを変えたとします。その直後、何もしないでヘッダーを書き換えると、文書全体のヘッダーが書き換わるという大惨事が起きます。
これを防ぐための鉄則が、新しいセクションのヘッダー・フッターにおける `LinkToPrevious = False` の宣言です。
‘ 新しく追加したセクションのヘッダーのリンクを断ち切る
ActiveDocument.Sections(2).Headers(wdHeaderFooterPrimary).LinkToPrevious = False
この「リンクを断ち切る」という一手間を忘れないことが、レイアウト崩れを防ぐ最大の防御壁となります。
—
3. 【実践】動的セクション制御とヘッダー分離のフルコード
それでは、現場で即戦力として使える実用コードを見てみましょう。
このコードは、「現在のカーソル位置（または文書の特定箇所）に新しいセクションを挿入し、そこからを用紙の向きを横（Landscape）に変更しつつ、前のセクションとのヘッダーのつながりを完全に断つ」という一連の処理を行います。
Sub InsertIsolatedLandscapeSection()
Dim targetRange As Range
Dim newSection As Section
‘ 1. 処理の安定化のため、画面描画を停止
Application.ScreenUpdating = False
On Error GoTo ErrorHandler
‘ 2. 現在のカーソル位置を基準とする（または特定の段落を指定）
Set targetRange = Selection.Range
‘ 3. 「セクション区切り（次のページから開始）」を挿入
‘ これで文書が物理的に分断され、新しいセクションが誕生します
targetRange.Collapse wdCollapseEnd
targetRange.InsertBreak wdSectionBreakNextPage
‘ 4. 新しく生まれたセクション（末尾のセクション）を取得
Set newSection = ActiveDocument.Sections(ActiveDocument.Sections.Count)
‘ 5. 【最重要】前のセクションとのヘッダー・フッターのリンクを確実に断つ
‘ ※奇数ページ用、偶数ページ用、先頭ページ用など、必要に応じてすべて解除します
Dim hf As HeaderFooter
For Each hf in newSection.Headers
hf.LinkToPrevious = False
Next hf
Dim ft As HeaderFooter
For Each ft in newSection.Footers
ft.LinkToPrevious = False
Next ft
‘ 6. 新しいセクションのページ設定を個別に適用（ここでは横向きに設定）
With newSection.PageSetup
.Orientation = wdOrientLandscape
.PageWidth = InchesToPoints(11) ‘ A4横などの幅設定（必要に応じて）
.PageHeight = InchesToPoints(8.5)
End With
‘ 7. 新しいセクションのヘッダーに独自の文字列を流し込む
newSection.Headers(wdHeaderFooterPrimary).Range.Text = “【新規セクション専用ヘッダー】”
MsgBox “セクションの独立とページ設定の変更が完了しました！”, vbInformation
CleanUp:
‘ 8. 画面描画を復元
Application.ScreenUpdating = True
Exit Sub
ErrorHandler:
MsgBox “エラーが発生しました: ” & Err.Description, vbCritical
Resume CleanUp
End Sub
—
4. コードの深掘り解説：なぜこの書き方なのか？
初心者から一歩抜け出すために、上記のコードの「エンジニアとしてのこだわりポイント」を解説します。
① `Application.ScreenUpdating = False` の魔法
Word VBAは、画面の描画（スクロールやレイアウトの再計算）をしながら処理をすると極端に遅くなります。特に数百ページある大規模文書では、処理の最初に画面描画を止め、最後に `True` に戻すだけで、実行速度が数倍〜十数倍に跳ね上がります。これはプログラミングの基本マナーです。
② コレクションの「末尾」を正確に捉える
`ActiveDocument.Sections.Count` を使うことで、「今、追加されたばかりのホヤホヤのセクション」を正確に変数に格納できます。マジックナンバー（`Sections(2)` のような固定値）を使うと、文書の構造が変わったときにバグの温床になりますが、`.Count` を使えば動的な文書に対しても無敵の強さを発揮します。
③ ヘッダーのループ処理
ヘッダーには「初めだけ違うものを使う（FirstPage）」や「偶数・奇数で変える（EvenPages）」といったバリエーションが存在します。そのため、単に `Headers(1)` をいじるだけでなく、`For Each` を使って存在するすべてのヘッダー・フッター（`Headers` / `Footers`）の `LinkToPrevious = False` を一網打尽にするのが、実務で絶対に崩れない堅牢なコードの書き方です。
—
5. 陥りやすいエラーと回避の知恵
最後に、現場でよくあるトラブルシューティングをご紹介します。
- エラー：「この操作は、現在のセクションでは無効です」
- 原因: すでにリンクが切れている、あるいは単一セクションの文書に対して `LinkToPrevious = False` を実行しようとした場合に発生します。セクションが2つ以上存在するかどうかを `If ActiveDocument.Sections.Count > 1` などで担保する防衛的コードを書きましょう。
- 「ヘッダーを消したつもりが、前のセクションまで消えてしまった」
- 原因: まさに `LinkToPrevious = True` の状態でテキストを上書きしてしまったためです。テキストを流し込む前に、必ずリンクが切れている（`False` である）ことをイミディエイトウィンドウなどでデバッグ確認する習慣をつけましょう。
—
まとめ
Word VBAにおけるセクション制御とヘッダーの独立は、最初は少し難しく感じるかもしれませんが、「文書を分割する ＝ 新しいセクション ＝ すぐにリンクを断つ」という黄金律さえ体に染み込ませれば、どんなに複雑な契約書やマニュアルの自動生成も自由自在です。
「マクロの記録」の呪縛を解き放ち、オブジェクトを意のままに操る楽しさをぜひ実感してください。あなたの業務自動化ライフが、よりスマートで快適なものになりますように！
