Objeto Styles (Word)

Una colección de estilo objetos que representan los estilos integrados y definidos por el usuario en un documento.

Comentarios

Utilice la propiedad Styles para devolver la colección Styles. El ejemplo siguiente elimina todos los estilos definidos por el usuario en el documento activo.

For Each sty In ActiveDocument.Styles 
 If sty.BuiltIn = False Then sty.Delete 
Next sty

Utilice el método Add para crear un nuevo estilo definido por el usuario y agregarlo a la colección de estilos. En el ejemplo siguiente se agrega un nuevo estilo de caracteres denominado "Introduction" y se convierte en Arial de 12 puntos, con formato de negrita y cursiva. El ejemplo luego aplica este nuevo estilo de carácter a la selección.

Set myStyle = ActiveDocument.Styles.Add(Name:="Introduction", _ 
 Type:=wdStyleTypeCharacter) 
With myStyle.Font 
 .Bold = True 
 .Italic = True 
 .Name = "Arial" 
 .Size = 12 
End With 
Selection.Range.Style = "Introduction"

Utilice estilos (Index), donde Index es el nombre del estilo, una constante WdBuiltinStyle o el número de índice, para devolver un solo objeto Style. Usted debe coincidir exactamente con la ortografía y el espaciado del nombre del estilo, pero no necesariamente su capitalización. En el ejemplo siguiente se modifica la fuente del estilo definido por el usuario denominado "Color" del documento activo.

ActiveDocument.Styles("Color").Font.Name = "Arial"

En el siguiente ejemplo, se establece el estilo del Título 1 integrado para que no sea negrita.

ActiveDocument.Styles(wdStyleHeading1).Font.Bold = False

El número de índice del estilo representa la posición del estilo en la lista ordenada alfabéticamente de nombres de estilo. Tenga en cuenta que Styles(1) es el primer estilo de la lista alfabética. En el ejemplo siguiente se muestra el estilo base y el nombre de estilo del primer estilo del conjunto Styles.

MsgBox "Base style= " _ 
 & ActiveDocument.Styles(1).BaseStyle & vbCr _ 
 & "Style name= " & ActiveDocument.Styles(1).NameLocal

El objeto Styles no está disponible desde el objeto de plantilla. Sin embargo, puede utilizar el OpenAsDocument método para abrir una plantilla como un documento para que pueda modificar los estilos de la plantilla. En el ejemplo siguiente se cambia el formato del estilo Título 1 en la plantilla adjuntado al documento activo.

Set aDoc = ActiveDocument.AttachedTemplate.OpenAsDocument 
With aDoc 
 .Styles(wdStyleHeading1).Font.Name = "Arial" 
 .Close SaveChanges:=wdSaveChanges 
End With

Utilice el OrganizerCopy método para copiar estilos entre documentos y plantillas. Utilice el UpdateStyles método para actualizar los estilos del documento activo para que coincidan con las definiciones de estilos de la plantilla adjunta.

Métodos

Nombre
Add
Elemento

Propiedades

Nombre
Aplicación
Count
Creator
Parent

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.