Classe RepeatingSectionItem (Word VBA)

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

Set

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, RepeatingSectionItemColl.Item et ContentControl.RepeatingSectionItems

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

Parent

Renvoie un Object qui représente l’objet parent de l’objet RepeatingSectionItem spécifié.

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

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

RepeatingSectionItemColl.Count

Renvoie un type long qui représente le nombre d’éléments de section extensible dans la collection.

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

RepeatingSectionItemColl.Item

Renvoie un élément répétitif individuel.

Syntaxe : expression.Item (Index)

Index: Numéro d’index de l’élément dans la collection.

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

RepeatingSectionItemColl.Parent

Renvoie un Object qui représente l’objet parent de l’objet RepeatingSectionItemColl spécifié.

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