Objeto TabStops (Publisher)

  • Artigo

Uma coleção de objetos TabStop que representam o sinalizador tabulações padrão e para um parágrafo ou grupo de parágrafos.

Comentários

Use a propriedade ParagraphFormat.Tabs para retornar a coleção TabStops . Use Tabs (index), em que o índice é o local da parada de guia (em pontos) ou o número do índice, para retornar um único objeto TabStop . Paradas de tabulação são indexadas numericamente da esquerda para direita ao longo da régua.

Use o método Add para adicionar uma parada de tabulação.

Exemplo

O exemplo a seguir limpa todas as paradas de tabulação do primeiro parágrafo na publicação ativa.

Sub ClearAllTabStops() 
 ActiveDocument.Pages(1).Shapes(1).TextFrame.TextRange _ 
 .ParagraphFormat.Tabs.ClearAll 
End Sub

O exemplo a seguir adiciona uma parada de tabulação posicionada a 2,5 polegadas aos parágrafos selecionados e, em seguida, exibe a posição de cada item na coleção TabStops.

Sub Tabs() 
 Dim intTab As Integer 
 Selection.TextRange.ParagraphFormat.Tabs _ 
 .Add Position:=InchesToPoints(2.5), _ 
 Alignment:=pbTabAlignmentLeading, Leader:=pbTabLeaderNone 
 With Selection.TextRange.ParagraphFormat 
 For intTab = 1 To .Tabs.Count 
 MsgBox "Position = " & PointsToInches _ 
 (.Tabs(intTab).Position) & " inches" 
 intTab = intTab + 1 
 Next intTab 
 End With 
End Sub

O exemplo a seguir adiciona duas paradas de tabulação aos parágrafos selecionados. A primeira parada de tabulação é uma tabulação alinhada à esquerda com um preenchimento de tabulação pontilhado posicionada a 1 polegada (72 pontos). A segunda parada de tabulação é centralizada e posicionada a 2 polegadas.

Sub AddNewTabs() 
 With Selection.TextRange.ParagraphFormat.Tabs 
 .Add Position:=InchesToPoints(1), _ 
 Leader:=pbTabLeaderDot, Alignment:=pbTabAlignmentLeading 
 .Add Position:=InchesToPoints(2), _ 
 Leader:=pbTabLeaderNone, Alignment:=pbTabAlignmentCenter 
 End With 
End Sub

O exemplo a seguir remove a primeira parada de tabulação personalizada do primeiro parágrafo na publicação ativa.

Sub ClearTabStop() 
 ActiveDocument.Pages(1).Shapes(1).TextFrame.TextRange _ 
 .ParagraphFormat.Tabs(1).Clear 
End Sub

O exemplo seguinte altera a segunda tabulação na seleção para uma parada de tabulação alinhada à direita.

Sub ChangeTabStop() 
 Selection.TextRange.ParagraphFormat.Tabs(2) _ 
 .Alignment = pbTabAlignmentTrailing 
End Sub

Métodos

Propriedades

Confira também

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.