Clase TabStop (Word VBA)

La clase TabStop representa una sola tabulación.

El principal procedimiento de la clase TabStop es TabStops.Add

Set

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)

Los siguientes procedimientos se pueden usar para establecer variables de clase TabStop : Next, Previous, TabStops.Add, TabStops.Item, TabStops.After, TabStops.Before, Paragraph.TabStops, ParagraphFormat.TabStops y Paragraphs.TabStops

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

Métodos

Este es el método principal de la clase TabStop

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

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

Propiedades

Alignment Devuelve o establece una constante WdTabAlignment que representa la alineación de la tabulación especificada.

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

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

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

Leader Devuelve o establece el carácter de relleno del objeto TabStop especificado.

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

Next 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

Parent Devuelve un objeto Object que representa el objeto primario del objeto TabStop especificado.

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

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

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

Previous 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

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

TabStops.Parent Devuelve un objeto Object que representa el objeto primario del objeto TabStops especificado.

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