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