Classe HeadingStyles (Word VBA)

Uma coleção de objetos HeadingStyle que representa os estilos usados para compilar um índice de ilustrações ou Sumário. Para usar uma variável de classe HeadingStyles, ela primeiro precisa ser instanciada por exemplo

Dim hss as HeadingStyles
Set hss = ActiveDocument.TablesOfFigures(1).HeadingStyles

For Each

Aqui está um exemplo de processamento dos itens HeadingStyles em uma coleção.

Dim hse As HeadingStyle
For Each hse In ActiveDocument.TablesOfFigures(1).HeadingStyles
	
Next hse

Add

Retorna um objeto HeadingStyle que representa um novo estilo de título adicionado a um documento. O novo estilo de título será incluído quer você compile um sumário ou um índice de ilustrações.

Add (Style, Level)

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

Arguments

O seguinte argumento é opcional

Style (Style) - O estilo que você deseja adicionar. Você pode especificar esse argumento usando o nome de cadeia de caracteres para o estilo ou um objeto Style .

Level (Integer) - Um número que representa o nível do título.

Count

Retorna um Long que representa o número de estilos de título na coleção. Somente leitura.

Dim lngCount As Long
lngCount = ActiveDocument.TablesOfFigures(1).HeadingStyles.Count

Item

Retorna um objeto HeadingStyle individual em uma coleção.

Item (Index)

Index: O objeto individual a ser retornado. Pode ser um Long que indica a posição ordinal do objeto individual.

Dim hse As HeadingStyle
Set hse = ActiveDocument.TablesOfFigures(1).HeadingStyles(Index:=1)