Classe RepeatingSectionItem - élément de section extensible (Word VBA)

La classe RepeatingSectionItem représente un élément de section extensible dans un contrôle de contenu.

Pour utiliser une variable de classe RepeatingSectionItem, elle doit d'abord être instanciée, par exemple

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

Les procédures suivantes peuvent être utilisés pour définir des variables de la classe RepeatingSectionItem : InsertItemAfter, InsertItemBefore et RepeatingSectionItemColl.Item.

For Each

Voici un exemple de traitement des éléments RepeatingSectionItem dans une collection

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

Delete

Supprime l’élément répétitif spécifié.

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

InsertItemAfter

Ajoute un élément répétitif après l’élément spécifié et renvoie le nouvel élément.

Vous pouvez appeler cette méthode sur les contrôles de contenu d’élément de section extensible uniquement. Si la propriété ContentControl. AllowInsertDeleteSection a la valeur false, cette méthode renvoie une erreur.

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

InsertItemBefore

Ajoute un élément répétitif avant l’élément spécifié et renvoie le nouvel élément.

Vous pouvez appeler cette méthode sur les contrôles de contenu d’élément de section extensible uniquement. Si la propriété ContentControl. AllowInsertDeleteSection a la valeur false, cette méthode renvoie une erreur.

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

Range

Renvoie la plage de l’élément répétitif spécifié, à l’exclusion des balises de début et de fin.

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