Clase HeadingStyle (Word VBA)

La clase HeadingStyle representa un estilo utilizado para generar una tabla de contenido o ilustraciones.

Set

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)

Los siguientes procedimientos se pueden usar para establecer variables de clase HeadingStyle : HeadingStyles.Add, HeadingStyles.Item, TableOfContents.HeadingStyles y TableOfFigures.HeadingStyles

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

Parent

Devuelve un objeto Object que representa el objeto primario del objeto HeadingStyle especificado.

Dim objParent As Object
Set objParent = ActiveDocument.TablesOfFigures(1).HeadingStyles(1).Parent

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 =

HeadingStyles.Add

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

Sintaxis : expression.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.

HeadingStyles.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

HeadingStyles.Item

Devuelve un objeto HeadingStyle individual de una colección.

Sintaxis : expression.Item (Index)

Index: El objeto individual que se va a devolver.

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

HeadingStyles.Parent

Devuelve un objeto Object que representa el objeto primario del objeto HeadingStyles especificado.

Dim objParent As Object
Set objParent = ActiveDocument.TablesOfFigures(1).HeadingStyles.Parent