Classe TabStop - parada de tabulação (Word VBA)

A classe TabStop representa uma única parada de tabulação. O objeto TabStop é um membro da coleção TabStops. A coleção TabStops representa todos os custom e paradas de tabulação padrão em um parágrafo ou grupo de parágrafos. Para usar uma variável de classe TabStop, ela primeiro precisa ser instanciada por exemplo


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

For Each

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


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

Retorna ou define uma constante WdTabAlignment que representa o alinhamento da parada de tabulação especificada. Leitura/gravação. Os valores de retorno possíveis são wdAlignTabBar - Barra alinhada, wdAlignTabCenter - Alinhamento centralizado, wdAlignTabDecimal - Decimal alinhado, wdAlignTabLeft - Alinhamento à esquerda, wdAlignTabList - Lista alinhada, wdAlignTabRight - Alinhamento à direita.


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

Clear

Remove a tabulação personalizada especificada.


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

CustomTab

True se a parada de tabulação especificada é uma parada de tabulação personalizada. Boolean somente leitura.


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

Retorna ou define o preenchimento para o objeto TabStop especificado. Leitura/gravação WdTabLeader. Os valores de retorno possíveis são wdTabLeaderDashes - Travessões, wdTabLeaderDots - Pontos, wdTabLeaderHeavy - Uma linha sólida, wdTabLeaderLines - Linhas duplas, wdTabLeaderMiddleDot - Um ponto médio, wdTabLeaderSpaces - Espaços. Padrão.


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

Retorna a próxima parada de tabulação na coleção. Somente leitura.


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

Position

Retorna ou define a posição de uma parada de tabulação relativa à margem esquerda. Leitura/gravação única.


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

Retorna a parada de tabulação anterior na coleção. Somente leitura.


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