Classe RepeatingSectionItem - item de seção recorrente (Word VBA)

A classe RepeatingSectionItem representa um item de seção recorrente em um controle de conteúdo. Para usar uma variável de classe RepeatingSectionItem, ela primeiro precisa ser instanciada por exemplo

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

For Each

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

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

Delete

Exclui o item de seção recorrente especificado.

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

InsertItemAfter

Adiciona um item de seção recorrente depois do item especificado e retorna o novo item.

Você pode chamar este método somente em controles de conteúdo de item de seção de repetição. Se a propriedade ContentControl. AllowInsertDeleteSection estiver definida como false, este método retornará um erro.

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

InsertItemBefore

Adiciona um item de seção recorrente antes do item especificado e retorna o novo item.

Você pode chamar este método somente em controles de conteúdo de item de seção de repetição. Se a propriedade ContentControl. AllowInsertDeleteSection estiver definida como false, este método retornará um erro.

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

Range

Retorna o intervalo do item de seção recorrente especificado, excluindo as marcas de início e de fim. Somente leitura.

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