Classe HeadingStyle - estilo (Word VBA)

A classe HeadingStyle representa um estilo usado para construir um sumário ou índice de ilustrações. O objeto HeadingStyle é um membro da coleção HeadingStyles . Para usar uma variável de classe HeadingStyle, ela primeiro precisa ser instanciada por exemplo

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

For Each

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

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

Delete

Exclui o estilo do título especificado.

ActiveDocument.TablesOfFigures(1).HeadingStyles(1).Delete

Level

Retorna ou define o nível de estilo de título em um sumário ou índice de ilustrações. Integerde leitura/gravação.

ActiveDocument.TablesOfContents.Add _ 
 Range:=Selection.Range, _ 
 RightAlignPageNumbers:=True, _ 
 UseHeadingStyles:=True, _ 
 UpperHeadingLevel:=1, _ 
 LowerHeadingLevel:=3, _ 
 IncludePageNumbers:=True, _ 
 TableID:=wdTOCFormal 
With ActiveDocument.TablesOfContents(1).HeadingStyles 
 .Add Style:="Title", Level:=1 
 .Add Style:="SubTitle", Level:=2 
 .Add Style:="List Bullet", Level:=3 
End With 
With ActiveDocument.TablesOfContents(1) 
 .HeadingStyles(1).Level = 2 
 .HeadingStyles(2).Level = 4 
 .HeadingStyles(3).Level = 6 
End With

Style

Retorna ou define o estilo de um título. de leitura/gravação.

Para definir essa propriedade, especifique o nome local do estilo, um inteiro, uma constante WdBuiltinStyle ou um objeto que represente o estilo.

ActiveDocument.TablesOfFigures(1).HeadingStyles(1).Style =