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.