發行者) (Sections 物件

檔中所有 Section 物件的集合。

註解

使用 Item (index) ，其中 (索 引) 是索引編號，可傳回單一 Section 物件。 使用 Sections (索 引) ，其中 (索 引) 是索引編號，也會傳回單一 Section 物件。

使用 Count 可傳回出版物中的節數。

使用 Add (StartPageIndex) ，其中 StartPageIndex 是頁面的索引編號，可傳回新增至檔的新區段。 如果頁面已包含區段標題，則會傳回「許可權遭拒」錯誤。

使用 Section.Delete (索 引) ，其中 (索 引) 是索引編號，可從檔中刪除指定的區段。 如果嘗試刪除第一個區段，則會傳回「許可權遭拒」錯誤。

範例

下列範例會設定使用中檔第一個區段的數位格式和起始編號。

With ActiveDocument.Sections.Item(1) 
 .PageNumberFormat = pbPageNumberFormatArabic 
 .PageNumberStart = 1 
End With

下列範例會繼續編號使用中檔內第二個區段的上一節。

ActiveDocument.Sections(2).ContinueNumbersFromPreviousSection=True

下列範例會顯示第一個開啟檔中的區段數目。

MsgBox Documents(1).Sections.Count

下述範例會新增一個區段到使用中文件的第二頁。

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

屬性

• 應用程式
• 數目
• 項目
• Parent

另請參閱

• Publisher 物件模型參考

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。