Objeto Seções (Word)
Uma coleção de seção objetos em uma seleção, intervalo ou documento.
Use a propriedade seções para retornar da coleção Sections. O exemplo seguinte insere texto no final da última seção do documento ativo.
With ActiveDocument.Sections.Last.Range
.Collapse Direction:=wdCollapseEnd
.InsertAfter "end of document"
End With
Use a Adicionar método ou o InsertBreak método adicionar uma nova seção a um documento. O exemplo a seguir adiciona uma nova seção no início do documento ativo.
Set myRange = ActiveDocument.Range(Start:=0, End:=0)
ActiveDocument.Sections.Add Range:=myRange
myRange.InsertParagraphAfter
O exemplo a seguir exibe o número de seções do documento ativo, adiciona uma quebra de seção acima do primeiro parágrafo da seleção e exibe novamente o número de seções.
MsgBox ActiveDocument.Sections.Count & " sections"
Selection.Paragraphs(1).Range.InsertBreak _
Type:=wdSectionBreakContinuous
MsgBox ActiveDocument.Sections.Count & " sections"
Use Seções (índice), em que o índice é o número do índice, para retornar um único objeto Section . O exemplo seguinte altera as margens esquerda e direita da página para a primeira seção do documento ativo.
With ActiveDocument.Sections(1).PageSetup
.LeftMargin = InchesToPoints(0.5)
.RightMargin = InchesToPoints(0.5)
End With
Referência do modelo de objeto do Word
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.