Clase RepeatingSectionItem - elemento de sección de repetición (Word VBA)

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

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 y RepeatingSectionItemColl.Item.

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()

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