Classe TabStops (Word VBA)

Uma coleção de objetos TabStop que representa as tabulações padrão e personalizadas para um parágrafo ou grupo de parágrafos. Para usar uma variável de classe TabStops, ela primeiro precisa ser instanciada por exemplo

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

For Each

Aqui está um exemplo de processamento dos itens TabStops em uma coleção.

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

Add

Retorna um objeto TabStop que representa uma parada de tabulação personalizada adicionada a um documento.

Add (Position, Alignment, Leader)

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

Arguments

O seguinte argumento é necessário

Position (Single) - A posição da parada de tabulação (em pontos) em relação à margem esquerda.

Optional arguments

Os seguintes argumentos são opcionais

Alignment (WdTabAlignment) - O alinhamento da parada de tabulação. Pode ser uma das constantes WdTabAlignment.

Os valores possíveis são

Leader (WdTabLeader) - O tipo de preenchimento da parada de tabulação. Pode ser uma das constantes WdTabLeader. Se esse argumento for omitido, wdTabLeaderSpaces será usado.

Os valores possíveis são

After

Retorna o próximo objeto TabStop à direita de position.

After (Position)

Position: Especifica uma posição na régua, em pontos.

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

Before

Retorna o próximo objeto TabStop à esquerda da posição.

Before (Position)

Position: Especifica uma posição na régua, em pontos.

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

ClearAll

Limpa todas as paradas de tabulação personalizadas a partir do parágrafo especificado.

Para limpar uma parada de tabulação individual, use o método Clear do objeto TabStop. O método ClearAll não limpa o padrão paradas de tabulação. Para manipular a guia padrão interrompe, use a propriedade DefaultTabStop para o documento.

ActiveDocument.Paragraphs.TabStops.ClearAll

Count

Retorna um Long que representa o número de paradas de tabulação na coleção. Somente leitura.

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

Item

Retorna um objeto TabStop individual em uma coleção.

Item (Index)

Index: O objeto individual a ser retornado. Pode ser um Long que indica a posição ordinal ou uma cadeia de caracteres que representa o nome do objeto individual.

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