Объект Sections (Publisher)

Статья
04/07/2023

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

Замечания

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

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

Используйте команду Add (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)

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

Примечание.

Итерация выполняется от последнего к первому, чтобы избежать ошибки "Subscript out of range" при доступе к удаленному разделу в коллекции 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

Методы

Свойства

См. также

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

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

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

Поделиться через