Clase RepeatingSectionItem (Word VBA)

La clase RepeatingSectionItem representa un elemento de sección de repetición en un control de contenido.

Set

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

Dim rsi as RepeatingSectionItem
Set rsi = ActiveDocument.Range.ContentControls(1).RepeatingSectionItems(Index:=1)

Los siguientes procedimientos se pueden usar para establecer variables de clase RepeatingSectionItem : InsertItemAfter, InsertItemBefore, RepeatingSectionItemColl.Item y ContentControl.RepeatingSectionItems

For Each

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

Dim rsi As RepeatingSectionItem
For Each rsi In ActiveDocument.Range.ContentControls(1).RepeatingSectionItems
	
Next rsi

Delete

Elimina el elemento de sección de repetición especificado.

ActiveDocument.Range.ContentControls(1).RepeatingSectionItems(1).Delete

InsertItemAfter

Agrega un elemento de la sección de repetición después del elemento especificado y devuelve el elemento nuevo.

Solo puede llamar a este método en controles de contenido de elemento de sección de repetición. Si la propiedad ContentControl. AllowInsertDeleteSection está establecida en false, este método devolverá un error.

Dim rsiInsertItemAfter As RepeatingSectionItem
Set rsiInsertItemAfter = ActiveDocument.Range.ContentControls(1).RepeatingSectionItems(1).InsertItemAfter()

InsertItemBefore

Agrega un elemento de sección de repetición antes del elemento especificado y devuelve el elemento nuevo.

Solo puede llamar a este método en controles de contenido de elemento de sección de repetición. Si la propiedad ContentControl. AllowInsertDeleteSection está establecida en false, este método devolverá un error.

Dim rsiInsertItemBefore As RepeatingSectionItem
Set rsiInsertItemBefore = ActiveDocument.Range.ContentControls(1).RepeatingSectionItems(1).InsertItemBefore()

Parent

Devuelve un objeto Object que representa el objeto primario del objeto RepeatingSectionItem especificado.

Dim objParent As Object
Set objParent = ActiveDocument.Range.ContentControls(1).RepeatingSectionItems(1).Parent

Range

Devuelve el intervalo del elemento de sección de repetición especificado, excepto las etiquetas de inicio y finalización.

Dim rngRange As Range
Set rngRange = ActiveDocument.Range.ContentControls(1).RepeatingSectionItems(1).Range

RepeatingSectionItemColl.Count

Devuelve un Long que representa el número de elementos de la sección de repetición de la colección.

Dim lngCount As Long
lngCount = ActiveDocument.Range.ContentControls(1).RepeatingSectionItems.Count

RepeatingSectionItemColl.Item

Devuelve un elemento individual de sección de repetición.

Sintaxis : expression.Item (Index)

Index: Número de índice del elemento de la colección.

Dim rsiRepeatingSectionItemColl As RepeatingSectionItem
Set rsiRepeatingSectionItemColl = ActiveDocument.Range.ContentControls(1).RepeatingSectionItems(Index:=1)

RepeatingSectionItemColl.Parent

Devuelve un objeto Object que representa el objeto primario del objeto RepeatingSectionItemColl especificado.

Dim objParent As Object
Set objParent = ActiveDocument.Range.ContentControls(1).RepeatingSectionItems.Parent