Objeto TabStops (Word)
Una colección de objetos TabStop que representan personalizados tabulaciones y predeterminadas de un párrafo o grupo de párrafos.
Comentarios
Utilice la propiedad TabStops para devolver la colección TabStops. En el siguiente ejemplo se borra todas las tabulaciones personalizadas del primer párrafo del documento activo.
ActiveDocument.Paragraphs(1).TabStops.ClearAll
En el siguiente ejemplo se agrega una tabulación situada a 2,5 pulgadas de los párrafos seleccionados y, a continuación, se muestra la posición de cada elemento de la colección TabStops.
Selection.Paragraphs.TabStops.Add Position:=InchesToPoints(2.5)
For Each aTab In Selection.Paragraphs.TabStops
MsgBox "Position = " _
& PointsToInches(aTab.Position) & " inches"
Next aTab
Utilice el método Add para agregar una tabulación. 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.
With Selection.Paragraphs.TabStops
.Add Position:=InchesToPoints(1), _
Leader:=wdTabLeaderDots, Alignment:=wdAlignTabLeft
.Add Position:=InchesToPoints(2), Alignment:=wdAlignTabCenter
End With
También puede agregar una tabulación especificando una posición con la propiedad TabStops. En el siguiente ejemplo se agrega una tabulación alineada a la derecha situada a dos pulgadas de los párrafos seleccionados.
Selection.Paragraphs.TabStops(InchesToPoints(2)) _
.Alignment = wdAlignTabRight
Utilice TabStops (Index), donde Index es la ubicación de la tabulación (en puntos) o el número de índice, para devolver un solo objeto TabStop. Las tabulaciones se indizan numéricamente de izquierda a derecha a lo largo de la regla. En el siguiente ejemplo se quita la primera tabulación personalizada del primer párrafo del documento activo.
ActiveDocument.Paragraphs(1).TabStops(1).Clear
En el siguiente ejemplo, se agrega a los párrafos seleccionados una tabulación alineada a la derecha situada a dos pulgadas.
Selection.Paragraphs.TabStops(InchesToPoints(2)) _
.Alignment = wdAlignTabRight
Cuando se trabaja con la colección Paragraphs (o un intervalo con varios párrafos), deberá modificar cada párrafo de la colección individualmente si las tabulaciones no son idénticas en todos los párrafos. En el siguiente ejemplo se quita la tabulación situada a una pulgada de cada párrafo del documento activo.
For Each para In ActiveDocument.Content.Paragraphs
para.TabStops(InchesToPoints(1)).Clear
Next para
Vea también
Referencia de modelos de objetos de Word
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.
Comentarios
https://aka.ms/ContentUserFeedback.
Próximamente: A lo largo de 2024 iremos eliminando gradualmente GitHub Issues como mecanismo de comentarios sobre el contenido y lo sustituiremos por un nuevo sistema de comentarios. Para más información, vea:Enviar y ver comentarios de