Classe Section - seção (Word VBA)

A classe Section representa uma única seção em uma seleção, intervalo ou documento. Objeto Section é um membro das seções coleção. A coleção Sections inclui todas as seções em uma seleção, intervalo ou documento. Para usar uma variável de classe Section, ela primeiro precisa ser instanciada por exemplo

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

For Each

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

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

Borders

Retorna uma coleção Borders que representa todas as bordas da seção.

Para obter informações sobre como retornar um único membro de uma coleção, consulte retornando um objeto de uma coleção.

ActiveDocument.Range.Sections(1).Borders =

Footers

Retorna uma coleção HeadersFooters que representa os rodapés na seção especificada. Somente leitura.

Para obter informações sobre como retornar um único membro de uma coleção, consulte retornando um objeto de uma coleção. Para retornar uma coleção HeadersFooters que representa os cabeçalhos da seção especificada, use a propriedade Headers .

With ActiveDocument.Sections(1).Footers(wdHeaderFooterPrimary) 
 .PageNumbers.Add PageNumberAlignment:=wdAlignPageNumberRight 
End With

Headers

Retorna uma coleção HeadersFooters que representa os cabeçalhos da seção especificada. Somente leitura.

Para obter informações sobre como retornar um único membro de uma coleção, consulte retornando um objeto de uma coleção. Para retornar uma coleção HeadersFooters que representa os rodapés da seção especificada, use a propriedade rodapés .

With ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary) 
 .PageNumbers.Add _ 
 PageNumberAlignment:=wdAlignPageNumberCenter, _ 
 FirstPage:=False 
End With

Index

Retorna um Long que representa a posição de um item em uma coleção. Somente leitura.

Dim lngIndex As Long
lngIndex = ActiveDocument.Range.Sections(1).Index

PageSetup

Retorna um objeto PageSetup que está associado à seção especificada.

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

ProtectedForForms

True se a seção especificada estiver protegida para os formulários. Boolean de leitura/gravação.

Quando uma seção está protegida para os formulários, você pode selecionar e modificar apenas o texto em campos de formulário. Para proteger um documento inteiro, use o método Protect do objeto Document .

If ActiveDocument.Sections.Count >= 2 Then _ 
 ActiveDocument.Sections(2).ProtectedForForms = True

Range

Retorna um objeto Range que representa a parte de um documento que está contida no objeto especificado.

Set myRange = ActiveDocument.Sections(1).Range 
With myRange 
 .MoveEnd Unit:=wdCharacter, Count:=-1 
 .Collapse Direction:=wdCollapseEnd 
 .InsertParagraphAfter 
 .InsertAfter "End of section" 
End With