Clase Sections (Word VBA)

Colección de objetos section de una selección, intervalo o documento.

Para usar una variable de clase Sections, primero debe ser instanciado, por ejemplo

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

Los siguientes procedimientos se pueden usar para establecer variables de clase Sections : Document.Sections, Range.Sections y Selection.Sections.

For Each

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

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

Add

Devuelve un objeto section que representa una nueva sección agregada a un documento.

Add (Range, Start)

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

Arguments

Optional arguments

Los siguientes argumentos son opcionales

Range - Range

Start (WdSectionStart) - El tipo de salto de sección que desee agregar.


Valores posibles son

wdSectionContinuous Salto de sección continua.
wdSectionEvenPage Salto de sección de página par.
wdSectionNewColumn Salto de sección de columna nueva.
wdSectionNewPage Salto de sección de página nueva.
wdSectionOddPage Salto de sección de página impar.

Count

Devuelve un Long que representa el número de secciones de la colección.

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

First

Devuelve un objeto section que representa el primer elemento de la colección Sections .

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

Item

Devuelve un objeto section individual de una colección.

Item (Index)

Index: El objeto individual que se va a devolver.

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

Last

Devuelve el último elemento de la colección Sections como objeto Section.

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

PageSetup

Devuelve un objeto PageSetup que está asociado con el documento, intervalo, sección, secciones o selección especificados.

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