Objeto HeadingStyles (Word)

Uma coleção de objetos HeadingStyle que representa os estilos usados para compilar um índice de ilustrações ou sumário.

Comentários

Use a propriedade HeadingStyles para retornar a coleção HeadingStyles. O exemplo a seguir exibe o número de itens na coleção HeadingStyles da primeira tabela do sumário no documento ativo.

MsgBox ActiveDocument.TablesOfContents(1).HeadingStyles.Count

Use o método Add para adicionar um estilo à coleção HeadingStyles. O exemplo a seguir adiciona um sumário no início do documento ativo e, em seguida, adiciona o estilo Título à lista de estilos usados para construir um sumário.

Set myToc = ActiveDocument.TablesOfContents.Add _ 
 (Range:=ActiveDocument.Range(0, 0), UseHeadingStyles:=True, _ 
 LowerHeadingLevel:=3, UpperHeadingLevel:=1) 
myToc.HeadingStyles.Add Style:="Title", Level:=2

Use HeadingStyles (Index), onde Index é o número de índice, para retornar um único objeto HeadingStyle. O número de índice representa a posição do estilo na coleção HeadingStyles. O exemplo a seguir adiciona (no início do documento ativo) um índice de ilustrações construído a partir do estilo Heading e exibe o nome do primeiro estilo na coleção HeadingStyles.

Set myTOF = ActiveDocument.TablesOfFigures.Add _ 
 (Range:=ActiveDocument.Range(0, 0), AddedStyles:="Title") 
MsgBox myTOF.HeadingStyles(1).Style

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.