TabStops-Objekt (Publisher)
Eine Auflistung von TabStop Objekte, die die benutzerdefinierte und Standardtabstopps für einen Absatz oder eine Absatzgruppe.
Verwenden Sie die ParagraphFormat.Tabs-Eigenschaft , um die TabStops-Auflistung zurückzugeben. Verwenden Sie Tabs (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.
Verwenden Sie die Hinzufügen Methode, um einen Tabstopp hinzuzufügen.
Im folgende Beispiel werden alle benutzerdefinierten aus dem ersten Absatz in der aktiven Publikation Tabstopps gelöscht.
Sub ClearAllTabStops()
ActiveDocument.Pages(1).Shapes(1).TextFrame.TextRange _
.ParagraphFormat.Tabs.ClearAll
End Sub
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.
Sub Tabs()
Dim intTab As Integer
Selection.TextRange.ParagraphFormat.Tabs _
.Add Position:=InchesToPoints(2.5), _
Alignment:=pbTabAlignmentLeading, Leader:=pbTabLeaderNone
With Selection.TextRange.ParagraphFormat
For intTab = 1 To .Tabs.Count
MsgBox "Position = " & PointsToInches _
(.Tabs(intTab).Position) & " inches"
intTab = intTab + 1
Next intTab
End With
End Sub
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.
Sub AddNewTabs()
With Selection.TextRange.ParagraphFormat.Tabs
.Add Position:=InchesToPoints(1), _
Leader:=pbTabLeaderDot, Alignment:=pbTabAlignmentLeading
.Add Position:=InchesToPoints(2), _
Leader:=pbTabLeaderNone, Alignment:=pbTabAlignmentCenter
End With
End Sub
Das folgende Beispiel entfernt den ersten benutzerdefinierten Tabstopp aus dem ersten Absatz in der aktiven Publikation an.
Sub ClearTabStop()
ActiveDocument.Pages(1).Shapes(1).TextFrame.TextRange _
.ParagraphFormat.Tabs(1).Clear
End Sub
Das folgende Beispiel ändert den zweiten Tabstopp in der Auswahl in einen rechtsbündigen Tabstopp.
Sub ChangeTabStop()
Selection.TextRange.ParagraphFormat.Tabs(2) _
.Alignment = pbTabAlignmentTrailing
End Sub
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.