Classe Styles (Word VBA)

Uma coleção de objetos Style que representa os estilos internos e definidos pelo usuário em um documento. Para usar uma variável de classe Styles, ela primeiro precisa ser instanciada por exemplo

Dim stys as Styles
Set stys = ActiveDocument.Styles

For Each

Aqui está um exemplo de processamento dos itens Styles em uma coleção.

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

Add

Cria um novo estilo definido pelo usuário e o adiciona à coleção Styles .

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

O seguinte argumento é necessário

Name (String) - O nome do novo estilo.

Optional arguments

The following argument is optional

Type (WdStyleType) - Pode ser uma das constantes WdStyleType .

Os valores possíveis são

Count

Retorna um Long que representa o número de estilos na coleção. Somente leitura.

Dim lngCount As Long
lngCount = ActiveDocument.Styles.Count

Item

Retorna um objeto Style individual em uma coleção.

Item (Index)

Index: O objeto individual a ser retornado. Pode ser um Long que indica a posição ordinal ou uma cadeia de caracteres que representa o nome do objeto individual.

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