Objeto Sections (Publisher)
Uma coleção de todos os objetos Section no documento.
Comentários
Use Item (índice), em que (índice) é o número de índice, para retornar um único objeto Section . Usando Seções (índice), em que (índice) é o número de índice, também retornará um único objeto Section .
Use Count para retornar o número de seções na publicação.
Use Add (StartPageIndex), em que StartPageIndex é o número de índice da página, para retornar uma nova seção adicionada a um documento. Um erro "Permissão negada" será retornado se a página já contiver uma cabeça de seção.
Use Section.Delete (index), em que (index) é o número de índice, para excluir a seção especificada do documento. Um erro "Permissão negada" será retornado se for feita uma tentativa de excluir a primeira seção.
Exemplo
O exemplo a seguir define o formato de número e o número inicial da primeira seção do documento ativo.
With ActiveDocument.Sections.Item(1)
.PageNumberFormat = pbPageNumberFormatArabic
.PageNumberStart = 1
End With
O exemplo a seguir continua a numeração da seção anterior para a segunda seção no documento ativo.
ActiveDocument.Sections(2).ContinueNumbersFromPreviousSection=True
O exemplo a seguir exibe o número de seções no primeiro documento aberto.
MsgBox Documents(1).Sections.Count
O exemplo a seguir adiciona uma nova seção à segunda página da publicação ativa.
Dim objSection As Section
Set objSection = ActiveDocument.Sections.Add(StartPageIndex:=2)
O exemplo a seguir exclui todas as seções do documento ativo, exceto a primeira.
Observação
A iteração é do último ao primeiro para evitar um erro "Subscript fora do intervalo" ao acessar uma seção excluída na coleção Seções .
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
Métodos
Propriedades
Confira também
Suporte e comentários
Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.