Propriété TableOfContents.HeadingStyles (Word)

Renvoie un objet HeadingStyles qui représente des styles supplémentaires utilisés pour compiler une table des matières ou une table des illustrations (styles autres que Titre 1 à Titre 9). En lecture seule.

Syntaxe

expression. HeadingStyles

expression Variable qui représente une collection « TableOfContents ».

Exemple

Cet exemple montre comment ajouter un style à la collection HeadingStyles et comment afficher les noms de tous les styles de la collection.

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

Cet exemple montre comment ajouter un style nommé « Blue » à la collection HeadingStyles dans une table des matières pour le document Sales.doc.

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

Voir aussi

TableOfContents, objet

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.