Klasse TabStops (Word VBA)

Eine Auflistung mit TabStop -Objekten, die die benutzerdefinierten und Standardtabstopps für einen Absatz oder eine Absatzgruppe darstellen. Um eine TabStops -Klassenvariable zu verwenden, muss sie zuerst instanziert werden, beispielsweise

Dim tss as TabStops
Set tss = ActiveDocument.Paragraphs(1).TabStops

For Each

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

Dim tsp As TabStop
For Each tsp In ActiveDocument.Lists(1).ListParagraphs(1).TabStops
	
Next tsp

Add

Gibt ein TabStop -Objekt zurück, das einen benutzerdefinierten Tabstopp darstellt, der einem Dokument hinzugefügt wurde.

Add (Position, Alignment, Leader)

Selection.Paragraphs.TabStops.Add Position:=InchesToPoints(2.5)

Arguments

Ein benanntes Argument

Position (Single) - Die Position des Tabstopps (in Punkt) relativ zum linken Rand.

Optional arguments

Die folgenden Argumente sind optional

Alignment (WdTabAlignment) - Die Ausrichtung des Tabstopps.

Möglichen Werte sind

Leader (WdTabLeader) - Der Typ des Füllzeichens für den Tabstopp.

Möglichen Werte sind

After

Gibt das nächste TabStop -Objekt rechts von Position zurück.

After (Position)

Position: Gibt eine Position auf dem Lineal in Punkt an.

Dim tabTemp as TabStop 
 
Set tabTemp = ActiveDocument.Paragraphs(1).TabStops _ 
 .After(InchesToPoints(1)) 
 
tabTemp.Alignment = wdAlignTabCenter

Before

Gibt das nächste TabStop -Objekt Links von der Position zurück.

Before (Position)

Position: Gibt eine Position auf dem Lineal in Punkt an.

Dim tsTemp As TabStop 
 
Set tsTemp = ActiveDocument.Paragraphs(1) _ 
 .TabStops.Before(InchesToPoints(2)) 
tsTemp.Alignment = wdAlignTabCenter

ClearAll

Löscht alle benutzerdefinierten Tabstopps aus den angegebenen Absätzen.

Um einen einzelnen Tabstopp zu löschen, verwenden Sie die Clear -Methode des TabStop -Objekts.

ActiveDocument.Paragraphs.TabStops.ClearAll

Count

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

Dim lngCount As Long
lngCount = ActiveDocument.Lists(1).ListParagraphs(1).TabStops.Count

Item

Gibt ein einzelnes TabStop -Objekt in einer Auflistung zurück.

Item (Index)

Index: Das einzelne Objekt zurückgegeben werden soll.

Dim tsp As TabStop
Set tsp = ActiveDocument.Lists(1).ListParagraphs(1).TabStops(Index:=1)