Klasse TabStop (Word VBA)

Die Klasse TabStop stellt einen einzelnen Tabstopp dar.

Die wichtigste Prozedur der Klasse TabStop ist TabStops.Add

Set

Um eine TabStop -Klassenvariable zu verwenden, muss sie zuerst instanziert werden, beispielsweise

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

Die folgenden Prozeduren können zum Festlegen der TabStop Klassenvariablen verwendet werden : Next, Previous, TabStops.Add, TabStops.Item, TabStops.After, TabStops.Before, Paragraph.TabStops, ParagraphFormat.TabStops und Paragraphs.TabStops

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

Methoden

Dies ist die Hauptmethode der Klasse TabStop

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

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

Eigenschaften

Alignment Zurückgeben oder Festlegen einer WdTabAlignment -Konstanten, die die Ausrichtung für den angegebenen Tabstopp darstellt.

ActiveDocument.Lists(1).ListParagraphs(1).TabStops(1).Alignment = wdAlignTabBar

CustomTab True, wenn der angegebene Tabstopp ein benutzerdefinierter Tabstopp ist.

Dim booCustomTab As Boolean
booCustomTab = ActiveDocument.Lists(1).ListParagraphs(1).TabStops(1).CustomTab

Leader Gibt die Führungslinie für das angegebene TabStop -Objekt zurück oder legt Sie fest.

ActiveDocument.Lists(1).ListParagraphs(1).TabStops(1).Leader = wdTabLeaderDashes

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

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

Parent Gibt einen Wert vom Typ Object zurück, der das übergeordnete Objekt des angegebenen TabStop-Objekts darstellt.

Dim objParent As Object
Set objParent = ActiveDocument.Lists(1).ListParagraphs(1).TabStops(1).Parent

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

ActiveDocument.Lists(1).ListParagraphs(1).TabStops(1).Position =

Previous Gibt das vorherige Tabstopp in der Auflistung zurück.

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

TabStops.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

TabStops.Parent Gibt einen Wert vom Typ Object zurück, der das übergeordnete Objekt des angegebenen TabStops-Objekts darstellt.

Dim objParent As Object
Set objParent = ActiveDocument.Lists(1).ListParagraphs(1).TabStops.Parent