Sections オブジェクト (Publisher)

ドキュメント内のすべての Section オブジェクトのコレクション。

注釈

1 つの Section オブジェクトを返すには、Item (index) を使用します。ここで 、(index) はインデックス番号です。 セクション (index) を使用すると、(index) がインデックス番号であり、1 つの 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)

次の例では、最初のセクションを除く作業中の文書のすべてのセクションを削除します。

注:

繰り返しは、 Sections コレクション内の削除されたセクションにアクセスするときに "範囲外の添字" エラーを回避するために、最後から最初のセクションまでです。

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

メソッド

• Add

プロパティ

• Application
• Count
• アイテム
• Parent

関連項目

• Publisher オブジェクト モデル リファレンス

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。