ドキュメント内のすべての Section オブジェクトのコレクション。
注釈
単一の Section オブジェクトを返すには、Item (index) を使用します。ここで、(index) はインデックス番号です。 ここで (index) はインデックス番号である Sections (index) を使用すると、単一の Section オブジェクトも返されます。
Count を使用して、文書内のセクション数を返します。
ドキュメントに追加された新しいセクションを返すには、 Add (StartPageIndex) を使用します。ここで StartPageIndex はページのインデックス番号です。 ページにセクション ヘッダーが既に含まれている場合は、"アクセス許可が拒否されました" というエラーが返されます。
Section.Delete (index) を使用します。ここで (index) はインデックス番号) は、ドキュメントから指定されたセクションを削除します。 最初のセクションを削除しようとすると、"アクセス許可が拒否されました" というエラーが返されます。
例
次の例では、作業中の文書の最初のセクションの数値の表示形式と開始番号を設定します。
With ActiveDocument.Sections.Item(1)
.PageNumberFormat = pbPageNumberFormatArabic
.PageNumberStart = 1
End With
次の例では、作業中の文書の 2 番目のセクションについて、前のセクションの段落番号がそのままです。
ActiveDocument.Sections(2).ContinueNumbersFromPreviousSection=True
次の例では、最初に開いている文書のセクション数を表示します。
MsgBox Documents(1).Sections.Count
次の例では、作業中の文書の 2 ページ目に新しいセクションを追加します。
Dim objSection As Section
Set objSection = ActiveDocument.Sections.Add(StartPageIndex:=2)
次の例では、作業中の文書のセクションのうち、最初のセクションを除くすべてのセクションが削除されます。
注:
反復は、 セクション コレクション内の削除されたセクションにアクセスするときに "範囲外の下付き文字" エラーを避けるために、最後から最初まで行われます。
Dim i As Long
For i = ActiveDocument.Sections.Count To 1 Step -1
If i = 1 Then Exit For
ActiveDocument.Sections(i).Delete
Next i
メソッド
プロパティ
関連項目
サポートとフィードバック
Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。