TabStops-Objekt (Word)
Eine Auflistung von TabStop Objekte, die die benutzerdefinierte und Standardtabstopps für einen Absatz oder eine Absatzgruppe.
Mit der TabStops-Eigenschaft können Sie die TabStops-Auflistung zurückgeben. Im folgenden Beispiel werden alle benutzerdefinierten Tabstopps aus dem ersten Absatz im aktiven Dokument gelöscht.
ActiveDocument.Paragraphs(1).TabStops.ClearAll
Im folgenden Beispiel wird den markierten Absätzen an der Position 2,5 Zoll ein Tabstopp hinzugefügt und anschließend in der TabStops-Auflistung die Position der einzelnen Elemente angezeigt.
Selection.Paragraphs.TabStops.Add Position:=InchesToPoints(2.5)
For Each aTab In Selection.Paragraphs.TabStops
MsgBox "Position = " _
& PointsToInches(aTab.Position) & " inches"
Next aTab
Verwenden Sie die Hinzufügen Methode, um einen Tabstopp hinzuzufügen. Im folgenden Beispiel wird den markierten Absätzen zwei Tabstopps hinzugefügt. Der erste Tabstopp ist ein linksbündiger Tabulator mit ein punktiertes Füllzeichen auf 1 Zoll (72 Punkt) positioniert. Zum zweite Tabstopp ist zentriert und bei 2 Zoll positioniert.
With Selection.Paragraphs.TabStops
.Add Position:=InchesToPoints(1), _
Leader:=wdTabLeaderDots, Alignment:=wdAlignTabLeft
.Add Position:=InchesToPoints(2), Alignment:=wdAlignTabCenter
End With
Tabstopps können Sie auch hinzufügen, indem Sie eine Position mit der TabStops-Eigenschaft angeben. Im folgenden Beispiel wird den markierten Absätzen ein rechts ausgerichteter Tabstopp mit einer Schrittweite von zwei Zoll hinzugefügt.
Selection.Paragraphs.TabStops(InchesToPoints(2)) _
.Alignment = wdAlignTabRight
Verwenden Sie TabStops (Index), wobei Index die Position des Tabstopps (in Punkt) oder die Indexnummer ist, um ein einzelnes TabStop-Objekt zurückzugeben. Tabstopps werden von links nach rechts am Lineal numerisch indiziert. Im folgenden Beispiel wird der erste benutzerdefinierte Tabstopp aus dem ersten Absatz im aktiven Dokument entfernt.
ActiveDocument.Paragraphs(1).TabStops(1).Clear
Im folgenden Beispiel wird den markierten Absätzen ein rechts ausgerichteter Tabstopp mit einer Schrittweite von zwei Zoll hinzugefügt.
Selection.Paragraphs.TabStops(InchesToPoints(2)) _
.Alignment = wdAlignTabRight
Wenn Sie mit der Paragraphs-Auflistung (oder einem Bereich mit verschiedenen Absätzen) arbeiten, müssen Sie jeden Absatz der Auflistung einzeln ändern, wenn die Tabstopps nicht in allen Absätzen identisch sind. Im folgenden Beispiel wird der Tabulator an der Position 1 Zoll aus allen Absätzen des aktiven Dokuments entfernt.
For Each para In ActiveDocument.Content.Paragraphs
para.TabStops(InchesToPoints(1)).Clear
Next para
Referenz zum Word-Objektmodell
Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.