Home » ワードマクロ・Word VBAの使い方 » セクション » Word VBAでセクションを追加する－Sections.Add

Word VBAでセクションを追加する－Sections.Add

動作検証バージョン：Windows 11 Home + 64bit Word バージョン 2404（ビルド17531.20000クイック実行）ベータチャネル

どのOfficeアプリケーションなのか不明ですが、
「vba section 追加」
といった検索キーワードで時折アクセスがあります。

この記事では、Word VBAのSections.Addメソッドを使ったコードをご紹介します。

［スポンサードリンク］

Sections.Addでセクションを追加するサンプルマクロ

以下のWordマクロを実行すると、アクティブ文書の末尾に新しいセクションが追加され、その新規セクションの用紙の向きが変更されます。

Sub アクティブ文書の末尾にセクションを追加する()
　Dim sec As Section
　Set sec = ActiveDocument.Sections.Add(Start:=wdSectionNewPage)
　sec.PageSetup.TogglePortrait
End Sub

セクションを追加しているのは、

Set sec = ActiveDocument.Sections.Add(Start:=wdSectionNewPage)

の、右辺「ActiveDocument.Sections.Add(Start:=wdSectionNewPage)」です。

「ActiveDocument.Sections.Add(Start:=wdSectionNewPage)」の意味は以下のとおりです。
まず、「ActiveDocument.Sections」でアクティブ文書の全セクションを表すSectionsコレクションを取得しています。

他の多くのコレクションと同様に、SectionsコレクションもAddメソッドを持っています。

残念ながらオブジェクトブラウザーの詳細ペインからは読み取れませんが、Sections.Addメソッドの引数Startには、WdSectionStart列挙型に定義されている定数を指定できます。

上記のWordマクロでは定数wdSectionNewPage（直値：2）を指定することで、

次のページから新しいセクションを開始しています。

セクションが追加されたことをわかりやすくするため、上記マクロでは新しいセクションの用紙の向きを、PageSetupTogglePortraitメソッドを使って変更しています。

sec.PageSetup.TogglePortrait

［スポンサードリンク］

Home » ワードマクロ・Word VBAの使い方 » セクション » Word VBAでセクションを追加する－Sections.Add

『インストラクターのネタ帳』では、2003年10月から平日のほぼ毎日、Microsoft Officeの使い方などを紹介し続けています。
Excel VBAユーザーを対象とした、Word VBAの基本をキンドル本としてまとめました↓↓

図形を操作するExcel VBAの基本を解説したキンドル本を出しました↓↓

グラフを操作するExcel VBAの基本を解説したキンドル本です↓↓

『インストラクターのネタ帳』を運営する伊藤潔人が、初めて書かせていただいた書籍です↓↓

PowerPoint VBA本は、実はオブジェクトブラウザーの使い方を徹底的に解説した本です↓↓

Pythonの外部ライブラリOpenPyXL（オープンパイエクセル）の入門書を、Excel VBAユーザーに向けに書きました↓↓

数式を使った条件付き書式設定が苦手な方に向けたKindle本を書きました↓↓

Excel VBAユーザーを対象として、Wordの表をVBAで操作する基本をまとめました↓↓

小数とPythonのdecimalモジュールの基本をキンドル本としてまとめました↓↓

Pythonの文字列フォーマットの基本をキンドル本としてまとめました↓↓

日経BP社から出版された、Excel VBAユーザー向けのPython超入門書です↓↓

上記の『Excel VBAユーザーのためのPythonプログラミング』の元になったキンドル本です↓↓

3年前(2021年4月)の
人気記事

「セクション」の記事一覧