Clase HeadingStyle - estilo (Word VBA)

La clase HeadingStyle representa un estilo utilizado para generar una tabla de contenido o ilustraciones. Para usar una variable de clase HeadingStyle, primero debe ser instanciado, por ejemplo

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

For Each

A continuación, se muestra un ejemplo de cómo procesar los elementos HeadingStyle en una colección.

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

Delete

Elimina el estilo de título especificado.

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

Level

Devuelve o establece el nivel para el estilo de título de una tabla de contenido o tabla de ilustraciones.

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

Devuelve o establece el estilo de un encabezado.

Para establecer esta propiedad, especifique el nombre local del estilo, un número entero, una constante WdBuiltinStyle o un objeto Object que representa el estilo.

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