Klasse RepeatingSectionItem - wiederholtes Abschnittselement (Word VBA)

Die Klasse RepeatingSectionItem stellt ein wiederholtes Abschnittselement in einem Inhaltssteuerelement dar. Um eine RepeatingSectionItem -Klassenvariable zu verwenden, muss sie zuerst instanziert werden, beispielsweise

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

For Each

Hier ist ein Beispiel für die Verarbeitung der RepeatingSectionItem -Elemente in einer Sammlung

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

Delete

Löscht das angegebene wiederholte Abschnittselement.

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

InsertItemAfter

Fügt ein wiederholtes Abschnittselement nach dem angegebenen Element hinzu und gibt das neue Element zurück.

Sie können diese Methode nur für wiederholte Abschnittselement-Inhaltssteuerelemente aufrufen. Wenn die ContentControl. AllowInsertDeleteSection -Eigenschaft auf falsefestgelegt ist, gibt diese Methode einen Fehler zurück.

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

InsertItemBefore

Fügt ein wiederholtes Abschnittselement vor dem angegebenen Element hinzu und gibt das neue Element zurück.

Sie können diese Methode nur für wiederholte Abschnittselement-Inhaltssteuerelemente aufrufen. Wenn die ContentControl. AllowInsertDeleteSection -Eigenschaft auf falsefestgelegt ist, gibt diese Methode einen Fehler zurück.

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

Range

Gibt den Bereich des angegebenen wiederholten Abschnittselements ohne Start- und Ende-Tags zurück.

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