Klasse RepeatingSectionItem (Word VBA)

Die Klasse RepeatingSectionItem stellt ein wiederholtes Abschnittselement in einem Inhaltssteuerelement dar.

Set

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)

Die folgenden Prozeduren können zum Festlegen der RepeatingSectionItem Klassenvariablen verwendet werden : InsertItemAfter, InsertItemBefore, RepeatingSectionItemColl.Item und ContentControl.RepeatingSectionItems

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

Parent

Gibt einen Wert vom Object zurück, der das übergeordnete Objekt des angegebenen RepeatingSectionItem -Objekts darstellt.

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

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

RepeatingSectionItemColl.Count

Gibt einen Wert vom Typ Long zurück, der die Anzahl der wiederholten Abschnittselemente in der Auflistung darstellt.

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

RepeatingSectionItemColl.Item

Gibt ein einzelnes wiederholtes Abschnittselement zurück.

Syntax : expression.Item (Index)

Index: Die Indexnummer des Elements in der Auflistung.

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

RepeatingSectionItemColl.Parent

Gibt einen Wert vom Object zurück, der das übergeordnete Objekt des angegebenen RepeatingSectionItemColl -Objekts darstellt.

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