Clase TabStops (Word VBA)

Colección de objetos TabStop que representa las tabulaciones personalizadas y predeterminadas de un párrafo o grupo de párrafos. Para usar una variable de clase TabStops, primero debe ser instanciado, por ejemplo


Dim tss as TabStops
Set tss = ActiveDocument.Paragraphs(1).TabStops

For Each

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


Dim tsp As TabStop
For Each tsp In ActiveDocument.Lists(1).ListParagraphs(1).TabStops
	
Next tsp

Add

Devuelve un objeto TabStop que representa una tabulación personalizada agregada a un documento.

Add (Position, Alignment, Leader)


Selection.Paragraphs.TabStops.Add Position:=InchesToPoints(2.5)

Arguments

Un argumento con nombre

Position (Single) - Posición de la tabulación (en puntos) con respecto al margen izquierdo.

Optional arguments

Los siguientes argumentos son opcionales

Alignment (WdTabAlignment) - Alineación de la tabulación.

Valores posibles 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.

Leader (WdTabLeader) - El tipo de relleno de la tabulación.

Valores posibles son

wdTabLeaderDashes	Guiones.
wdTabLeaderDots	Puntos.
wdTabLeaderHeavy	Línea gruesa.
wdTabLeaderLines	Línea doble.
wdTabLeaderMiddleDot	Punto mediano.
wdTabLeaderSpaces	Espacios.

After

Devuelve el siguiente objeto TabStop a la derecha de Position.

After (Position)

Position: Posición de la regla, en puntos.


Dim tabTemp as TabStop 
 
Set tabTemp = ActiveDocument.Paragraphs(1).TabStops _ 
 .After(InchesToPoints(1)) 
 
tabTemp.Alignment = wdAlignTabCenter

Before

Devuelve el siguiente objeto TabStop a la izquierda de Position.

Before (Position)

Position: Posición de la regla, en puntos.


Dim tsTemp As TabStop 
 
Set tsTemp = ActiveDocument.Paragraphs(1) _ 
 .TabStops.Before(InchesToPoints(2)) 
tsTemp.Alignment = wdAlignTabCenter

ClearAll

Borra todas las tabulaciones personalizadas de los párrafos especificados.

Para borrar una tabulación individual, utilice el método Clear del objeto TabStop.


ActiveDocument.Paragraphs.TabStops.ClearAll

Count

Devuelve un Long que representa el número de tabulaciones de la colección.


Dim lngCount As Long
lngCount = ActiveDocument.Lists(1).ListParagraphs(1).TabStops.Count

Item

Devuelve un objeto TabStop individual de una colección.

Item (Index)

Index: El objeto individual que se va a devolver.


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