Clase Styles (Word VBA)

Colección de objetos Style que representa los estilos integrados y definidos por el usuario de un documento. Para usar una variable de clase Styles, primero debe ser instanciado, por ejemplo

Dim stys as Styles
Set stys = ActiveDocument.Styles

For Each

A continuación, se muestra un ejemplo de cómo procesar los elementos Styles en una colección.

Dim sty As Style
For Each sty In ActiveDocument.Range.Styles
	
Next sty

Add

Crea un nuevo estilo definido por el usuario y lo agrega a la colección de estilos .

Add (Name, Type)

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"

Arguments

Un argumento con nombre

Name (String) - Nombre del nuevo estilo.

Optional arguments

Los siguientes argumentos son opcionales

Type (WdStyleType) - Puede ser una de las constantes WdStyleType .

Valores posibles son

Count

Devuelve un Long que representa el número de estilos de la colección.

Dim lngCount As Long
lngCount = ActiveDocument.Styles.Count

Item

Devuelve un objeto Style individual de una colección.

Item (Index)

Index: El objeto individual que se va a devolver.

Dim sty As Style
Set sty = ActiveDocument.Styles(Index:=1)