Classe HeadingStyle (Word VBA)

La classe HeadingStyle représente un style utilisé pour générer une table des matières ou des illustrations.

Set

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)

Les procédures suivantes peuvent être utilisés pour définir des variables de la classe HeadingStyle : HeadingStyles.Add, HeadingStyles.Item, TableOfContents.HeadingStyles et TableOfFigures.HeadingStyles

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

Parent

Renvoie un Object qui représente l'objet parent de l'objet HeadingStyle spécifié.

Dim objParent As Object
Set objParent = ActiveDocument.TablesOfFigures(1).HeadingStyles(1).Parent

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 =

HeadingStyles.Add

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

Syntaxe : expression.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.

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

HeadingStyles.Item

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

Syntaxe : expression.Item (Index)

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

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

HeadingStyles.Parent

Renvoie un Object qui représente l'objet parent de l'objet HeadingStyles spécifié.

Dim objParent As Object
Set objParent = ActiveDocument.TablesOfFigures(1).HeadingStyles.Parent