Classe HeadingStyles (Word VBA)

Collection d’objets HeadingStyle qui représentent les styles utilisés pour compiler une table des illustrations ou une table des matières. Pour utiliser une variable de classe HeadingStyles, elle doit d'abord être instanciée, par exemple

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

For Each

Voici un exemple de traitement des éléments HeadingStyles dans une collection

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

Add

Renvoie un objet HeadingStyle qui représente un nouveau style de titre ajouté à un document.

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

Les arguments nommés :

Style (Style) - Le style que vous souhaitez ajouter.

Level (Integer) - Nombre qui correspond au niveau de titre.

Count

Renvoie un type long qui représente le nombre de styles de titre dans la collection.

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

Item

Renvoie un objet HeadingStyle spécifique appartenant à une collection.

Item (Index)

Index: Objet spécifique qui doit être renvoyé.

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