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.

Sintaxe

expression. HeadingStyles

Expressão Uma variável que representa uma coleção 'TableOfContents'.

Exemplo

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

Confira também

Objeto TableOfContents

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.