Clase TabStop - una sola tabulación (Word VBA)

La clase TabStop representa una sola tabulación. Para usar una variable de clase TabStop, primero debe ser instanciado, por ejemplo


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

For Each

A continuación, se muestra un ejemplo de cómo procesar los elementos TabStop en una colección.


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

Devuelve o establece una constante WdTabAlignment que representa la alineación de la tabulación especificada. Posibles valores de retorno son wdAlignTabBar - Alineada a la barra, wdAlignTabCenter - Centrada, wdAlignTabDecimal - Alineación decimal, wdAlignTabLeft - Alineada a la izquierda, wdAlignTabList - Alineada a la lista, wdAlignTabRight - Alineada a la derecha.


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

Clear

Quita la tabulación personalizada especificada.


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

CustomTab

True si la tabulación especificada es una tabulación personalizada.


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

Devuelve o establece el carácter de relleno del objeto TabStop especificado. Posibles valores de retorno son wdTabLeaderDashes - Guiones, wdTabLeaderDots - Puntos, wdTabLeaderHeavy - Línea gruesa, wdTabLeaderLines - Línea doble, wdTabLeaderMiddleDot - Punto mediano, wdTabLeaderSpaces - Espacios.


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

Devuelve la siguiente posición de tabulación de la colección.


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

Position

Devuelve o establece la posición de una tabulación con relación al margen izquierdo.


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

Devuelve la posición de tabulación anterior de la colección.


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