Propiedad TableOfContents.HeadingStyles (Word)

Devuelve un objeto HeadingStyles que representa estilos adicionales que se usan para compilar una tabla de contenido o una tabla de ilustraciones (estilos diferentes de Título 1; Título 9). Solo lectura.

Sintaxis

expresión. HeadingStyles

Expresión Variable que representa una colección "TableOfContents".

Ejemplo:

En este ejemplo se agrega un estilo a la colección HeadingStyles y luego se muestran los nombres de todos los estilos de la colección.

Dim hsLoop As HeadingStyle 
 
If ActiveDocument.TablesOfContents.Count >=1 Then 
 ActiveDocument.TablesOfContents(1).HeadingStyles.Add _ 
 Style:="Title", Level:=2 
 For Each hsLoop In _ 
 ActiveDocument.TablesOfContents(1).HeadingStyles 
 MsgBox hsLoop.Style 
 Next hsLoop 
End If

En este ejemplo se agrega un estilo denominado "Blue" a la colección HeadingStyles de una tabla de contenido de Sales.doc.

With Documents("Sales.doc") 
 .Styles.Add Name:="Blue" 
 .TablesOfContents(1).UseHeadingStyles = True 
 .TablesOfContents(1).HeadingStyles.Add _ 
 Style:="Blue", Level:=4 
End With

Consulte también

Objeto TableOfContents

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.