Objeto Styles (Word)
Uma coleção de estilo objetos que representam os estilos internos e definidos pelo usuário em um documento.
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.
Nome |
---|
Aplicativo |
Count |
Creator |
Parent |
Referência do modelo de objeto do Word
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.