Clase Section - sección (Word VBA)

La clase Section representa una sola sección en un documento, selección o intervalo. Para usar una variable de clase Section, primero debe ser instanciado, por ejemplo

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

For Each

A continuación, se muestra un ejemplo de cómo procesar los elementos Section en una colección.

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

Borders

Devuelve una colección Borders que representa todos los bordes de la sección.

Para obtener información sobre cómo devolver un solo miembro de una colección, vea devolver un objeto de una colección.

ActiveDocument.Range.Sections(1).Borders =

Footers

Devuelve una colección HeadersFooters que representa los pies de página de la sección especificada.

Para obtener información sobre cómo devolver un solo miembro de una colección, vea devolver un objeto de una colección.

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

Headers

Devuelve una colección HeadersFooters que representa los encabezados de la sección especificada.

Para obtener información sobre cómo devolver un solo miembro de una colección, vea devolver un objeto de una colección.

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

Index

Devuelve un valor de tipo Long que representa la posición de un elemento en una colección.

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

PageSetup

Devuelve un objeto PageSetup que está asociado a la sección especificada.

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

ProtectedForForms

True si la sección especificada está protegida para formularios.

Cuando una sección está protegida para formularios, puede seleccionar y modificar sólo el texto de los campos de formulario.

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

Range

Devuelve un objeto Range que representa la parte de un documento incluida en el 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