Compartir a través de

Objeto TextStyle (Publicador)

Representa un solo estilo integrado o definido por el usuario. El objeto TextStyle incluye atributos de estilo (fuente, estilo de fuente, espacio entre párrafos etc.) como propiedades del objeto TextStyle.

El objeto TextStyle es un miembro de la TextStyles colección. La colección TextStyles incluye todos los estilos del documento especificado.

Comentarios

Use TextStyles (index), donde index es el número o el nombre del estilo de texto, para devolver un único objeto TextStyle . Usted debe coincidir exactamente con la ortografía y el espaciado del nombre del estilo, pero no necesariamente su capitalización.

Use el método TextStyles.Add para crear un nuevo estilo.

Para aplicar un estilo a un intervalo, párrafo o varios párrafos, establezca la propiedad ParagraphFormat.TextStyle en un nombre de estilo integrado o definido por el usuario.

Ejemplo:

En el ejemplo siguiente se muestra el nombre de estilo y estilo base del primer estilo de la colección TextStyles.

Sub BaseStyleName() 
 With ActiveDocument.TextStyles(1) 
 MsgBox "Style name= " & .Name _ 
 & vbCr & "Base style= " & .BaseStyle 
 End With 
End Sub

En el ejemplo siguiente se crea un nuevo estilo y se aplica al párrafo en la posición del cursor.

Sub ApplyTextStyle() 
 Dim styNew As TextStyle 
 Dim fntStyle As Font 
 
 'Create a new style 
 Set styNew = ActiveDocument.TextStyles.Add(StyleName:="NewStyle") 
 Set fntStyle = styNew.Font 
 
 'Format the Font object 
 With fntStyle 
 .Name = "Tahoma" 
 .Size = 20 
 .Bold = msoTrue 
 End With 
 
 'Apply the Font object formatting to the new style 
 styNew.Font = fntStyle 
 
 'Apply the new style to the selected paragraph 
 Selection.TextRange.ParagraphFormat.TextStyle = "NewStyle" 
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