Classe HeadingStyle - style (Word VBA)

La classe HeadingStyle représente un style utilisé pour générer une table des matières ou des illustrations. Pour utiliser une variable de classe HeadingStyle, elle doit d'abord être instanciée, par exemple

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

For Each

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

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

Delete

Supprime le style de titre spécifié.

ActiveDocument.TablesOfFigures(1).HeadingStyles(1).Delete

Level

Cette propriété renvoie ou définit le niveau du style de titre dans une table des matières ou une table des illustrations.

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

Style

Cette propriété renvoie ou définit le style d'un titre.

Pour définir cette propriété, spécifiez le nom local du style, un entier, une constante WdBuiltinStyle ou un objet qui représente le style.

ActiveDocument.TablesOfFigures(1).HeadingStyles(1).Style =