Classe Sections (Word VBA)

Uma coleção de objetos Section em uma seleção, intervalo ou documento. Para usar uma variável de classe Sections, ela primeiro precisa ser instanciada por exemplo

Dim scts as Sections
Set scts = ActiveDocument.Range.Sections

For Each

Aqui está um exemplo de processamento dos itens Sections em uma coleção.

Dim sec As Section
For Each sec In ActiveDocument.Range.Sections
	
Next sec

Add

Retorna um objeto Section que representa uma nova seção adicionada a um documento.

Add (Range, Start)

Set myRange = ActiveDocument.Paragraphs(3).Range 
ActiveDocument.Sections.Add Range:=myRange

Arguments

Optional arguments

Os seguintes argumentos são opcionais

Range (Range) - O intervalo antes do qual você deseja inserir a quebra de seção. Se esse argumento for omitido, a quebra de seção será inserida no final do documento.

Start (WdSectionStart) - O tipo de quebra de seção que você deseja adicionar. Pode ser uma das seguintes constantes WdSectionStart. Se esse argumento for omitido, uma quebra de seção próxima página é adicionada.

Os valores possíveis são

Count

Retorna um Long que representa o número de seções na coleção. Somente leitura.

Dim lngCount As Long
lngCount = ActiveDocument.Range.Sections.Count

First

Retorna um objeto Section que representa o primeiro item da coleção Sections .

Dim secFirst As Section
Set secFirst = ActiveDocument.Range.Sections.First

Item

Retorna um objeto Section individual em uma coleção.

Item (Index)

Index: O objeto individual a ser retornado. Pode ser um Long que indica a posição ordinal do objeto individual.

Dim sec As Section
Set sec = ActiveDocument.Range.Sections(Index:=1)

Last

Retorna o último item da coleção Sections como um objeto Section.

Dim secLast As Section
Set secLast = ActiveDocument.Range.Sections.Last

PageSetup

Retorna um objeto PageSetup que está associado ao documento, ao intervalo, à seção, às seções ou à seleção especificada.

Documents("Summary.doc").Sections(1).PageSetup.Gutter = 36