Clase HeadingStyles (Word VBA)

Una colección de objetos HeadingStyle que representan los estilos utilizados para compilar una tabla de ilustraciones o tabla de contenido. Para usar una variable de clase HeadingStyles, primero debe ser instanciado, por ejemplo

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

For Each

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

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

Add

Devuelve un objeto HeadingStyle que representa un nuevo estilo de título agregado a un documento.

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

Estos son los argumentos con nombre :

Style (Style) - El estilo que desea agregar.

Level (Integer) - Número que representa el nivel del título.

Count

Devuelve un Long que representa el número de estilos de título de la colección.

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

Item

Devuelve un objeto HeadingStyle individual de una colección.

Item (Index)

Index: El objeto individual que se va a devolver.

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