Объект "Разделы" (издатель)

Коллекция всех объектов раздела в документе.

Примечания

Используйте Item (index), где (index) — номер индекса, для возврата одного объекта Section. Использование Sections (index), где (index) — номер индекса, также вернет один объект Section .

Используйте команду Count , чтобы вернуть количество разделов в публикации.

Используйте команду "Добавить " (StartPageIndex), где StartPageIndex — это номер индекса страницы, чтобы возвратить новый раздел, добавленный в документ. Ошибка "Отказано в разрешении" возвращается, если страница уже содержит заголовок раздела.

Используйте команду Section.Delete (index), где (index) — номер индекса, чтобы удалить указанный раздел из документа. Ошибка "Отказано в разрешении" возвращается при попытке удаления первого раздела.

Пример

В приведенном ниже примере задается числовой формат и начальный номер для первого раздела активного документа.

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)

В следующем примере удаляются все разделы активного документа, кроме первого.

Примечание.

Итерация — от последнего к первому, чтобы избежать ошибки "Подстрочный индекс вне допустимого диапазона" при доступе к удаленному разделу в коллекции "Разделы ".

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
• Item
• Parent

См. также

• Справочник по объектной модели Publisher

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.