Klasse TabStop - Tabstopp (Word VBA)

Die Klasse TabStop stellt einen einzelnen Tabstopp dar. Um eine TabStop -Klassenvariable zu verwenden, muss sie zuerst instanziert werden, beispielsweise


Dim tsp as TabStop
Set tsp = ActiveDocument.Paragraphs(1).TabStops(Index:=1)

For Each

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


Dim ts As TabStop 
For each ts in ActiveDocument.Paragraphs(1).TabStops 
 If ts.CustomTab = True Then 
 ts.Alignment = wdAlignTabLeft 
 End If 
Next ts

Alignment

Zurückgeben oder Festlegen einer WdTabAlignment -Konstanten, die die Ausrichtung für den angegebenen Tabstopp darstellt. Mögliche Rückgabewerte sind wdAlignTabBar - Balken ausgerichtet, wdAlignTabCenter - Zentriert, wdAlignTabDecimal - Dezimal ausgerichtet, wdAlignTabLeft - Linksbündig, wdAlignTabList - Listen ausgerichtet, wdAlignTabRight - Rechtsbündig.


Sub CenterTabStop() 
 ActiveDocument.Paragraphs(1).TabStops(1) _ 
 .Alignment = wdAlignTabCenter 
End Sub

Clear

Entfernt den angegebenen benutzerdefinierten Tabstopp.


ActiveDocument.Paragraphs(1).TabStops(1).Clear

CustomTab

True, wenn der angegebene Tabstopp ein benutzerdefinierter Tabstopp ist.


Dim tsLoop As TabStop 
 
For each tsLoop in ActiveDocument.Paragraphs(1).TabStops 
 If tsLoop.CustomTab = True Then 
 tsLoop.Alignment = wdAlignTabLeft 
 End If 
Next tsLoop

Leader

Gibt die Führungslinie für das angegebene TabStop -Objekt zurück oder legt Sie fest. Mögliche Rückgabewerte sind wdTabLeaderDashes - Striche, wdTabLeaderDots - Punkte, wdTabLeaderHeavy - Fette Linie, wdTabLeaderLines - Doppelte Linien, wdTabLeaderMiddleDot - Mittelpunkt, wdTabLeaderSpaces - Leerzeichen.


Dim tsLoop As TabStop 
 
For each tsLoop in ActiveDocument.Paragraphs.TabStops 
 If tsLoop.Leader <> wdTabLeaderSpaces Then 
 tsLoop.Leader = wdTabLeaderDashes 
 End If 
Next tsLoop

Gibt das nächste Tabstopp in der Auflistung zurück.


Dim tspNext As TabStop
Set tspNext = ActiveDocument.Lists(1).ListParagraphs(1).TabStops(1).Next

Position

Gibt die Position eines Tabstopps relativ zum linken Seitenrand zurück oder legt sie fest.


With Selection.Paragraphs.TabStops 
 .ClearAll 
 .Add Position:=InchesToPoints(2), Alignment:=wdAlignTabRight 
 MsgBox .Item(1).Position & " or " & _ 
 PointsToInches(.Item(1).Position) & " inches" 
End With

Gibt das vorherige Tabstopp in der Auflistung zurück.


Dim tspPrevious As TabStop
Set tspPrevious = ActiveDocument.Lists(1).ListParagraphs(1).TabStops(1).Previous