Propriedade TableOfContents.HeadingStyles (Word)
Retorna um objeto HeadingStyles que representa os estilos adicionais usados para compilar um sumário ou uma tabela de figuras (estilos diferentes dos estilos Título 1 - Título 9). Somente leitura.
expression. HeadingStyles
Expressão Uma variável que representa uma coleção 'TableOfContents'.
Este exemplo adiciona um estilo à coleção HeadingStyles e exibe todos os nomes de todos os estilos na coleção.
Dim hsLoop As HeadingStyle
If ActiveDocument.TablesOfContents.Count >=1 Then
ActiveDocument.TablesOfContents(1).HeadingStyles.Add _
Style:="Title", Level:=2
For Each hsLoop In _
ActiveDocument.TablesOfContents(1).HeadingStyles
MsgBox hsLoop.Style
Next hsLoop
End If
Este exemplo adiciona um estilo chamado "Blue" à coleção HeadingStyles em um sumário de Sales.doc.
With Documents("Sales.doc")
.Styles.Add Name:="Blue"
.TablesOfContents(1).UseHeadingStyles = True
.TablesOfContents(1).HeadingStyles.Add _
Style:="Blue", Level:=4
End With
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.