Ler em inglês

Compartilhar via


Objeto Styles (Word)

Uma coleção de estilo objetos que representam os estilos internos e definidos pelo usuário em um documento.

Comentários

Use a propriedade Styles para retornar a coleção Styles. O exemplo seguinte exclui todos os estilos definidos pelo usuário do documento ativo.

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

Use o método Add para criar um novo estilo definido pelo usuário e adicioná-lo à coleção Styles. O exemplo a seguir adiciona um novo estilo de caractere chamado "Introduction" e o torna Arial de 12 pontos, com negrito e itálico. O exemplo aplica esse novo estilo de caractere à seleção.

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"

Use estilos (Index), onde Index é o nome do estilo, uma constante WdBuiltinStyle ou um número de índice, para retornar um único estilo objeto. Você deve corresponder exatamente a ortografia e o espaçamento do nome do estilo, mas não necessariamente seu uso de maiusculas. O exemplo a seguir modifica a fonte do estilo definido pelo usuário chamado "Color" no documento ativo.

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

O exemplo a seguir define o estilo interno Heading 1 para que não seja negrito.

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

O número de índice do estilo representa a posição do estilo na lista classificada em ordem alfabética de nomes de estilo. Observe que Styles(1) esse é o primeiro estilo na lista alfabética. O exemplo a seguir exibe o estilo base e o nome do estilo do primeiro estilo na coleção Styles.

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

Objeto estilos não está disponível do modelo de objeto. No entanto, você pode usar o OpenAsDocument método para abrir um modelo como um documento para que você possa modificar os estilos do modelo. O exemplo seguinte altera a formatação do estilo Heading 1 no modelo anexado ao documento ativo.

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

Use a OrganizerCopy método copiar estilos entre modelos e documentos. Use a UpdateStyles método de atualizar os estilos do documento ativo para coincidir com as definições de estilo do modelo anexado.

Métodos

Propriedades

Confira também

Referência do modelo de objeto do Word

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.