Compartir a través de

Objeto TabStops (Publisher)

Una colección de objetos TabStop que representan personalizados tabulaciones y predeterminadas de un párrafo o grupo de párrafos.

Observaciones

Utilice la propiedad ParagraphFormat.Tabs para devolver la colección TabStops . Use Tabs (index), donde index es la ubicación de la tabulación (en puntos) o el número de índice, para devolver un único objeto TabStop . Las tabulaciones se indizan numéricamente de izquierda a derecha a lo largo de la regla.

Utilice el método Add para agregar una tabulación.

Ejemplo

En el ejemplo siguiente se borra todas las tabulaciones personalizadas del primer párrafo de la publicación activa.

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

En el ejemplo siguiente se agrega una tabulación situada a 2,5 pulgadas de los párrafos seleccionados y, a continuación, muestra la posición de cada elemento de la colección 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

En el siguiente ejemplo agrega dos tabulaciones a los párrafos seleccionados. La primera tabulación está alineada a la izquierda con un carácter de relleno punteado situado en 1 pulgada (72 puntos). La segunda tabulación está centrada y se coloca en 2 pulgadas.

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

En el ejemplo siguiente se quita la primera tabulación personalizada del primer párrafo de la publicación activa.

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

En el siguiente ejemplo se cambia la segunda tabulación de la selección a una tabulación alineada a la derecha.

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

Métodos

Propiedades

Vea también

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.

  • Last updated on