Auf Englisch lesen

Freigeben über


TabStops-Objekt (Publisher)

Eine Auflistung von TabStop Objekte, die die benutzerdefinierte und Standardtabstopps für einen Absatz oder eine Absatzgruppe.

Hinweise

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.

Beispiel

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

Methoden

Eigenschaften

Siehe auch

Support und Feedback

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.