Classe CaptionLabel (Word VBA)

Cet objet représente une étiquette de légende donnée.

Les procédures principales de la classe CaptionLabel sont Delete et CaptionLabels.Add

Set

Pour utiliser une variable de classe CaptionLabel, elle doit d'abord être instanciée, par exemple

Dim cll as CaptionLabel
Set cll = CaptionLabels(Index:=1)

Les procédures suivantes peuvent être utilisés pour définir des variables de la classe CaptionLabel : CaptionLabels.Add, CaptionLabels.Item et Application.CaptionLabels

For Each

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

Dim cll As CaptionLabel
For Each cll In CaptionLabels
	
Next cll

Méthodes

Les méthodes principales de la classe CaptionLabel sont

Delete - Supprime l’intitulé de légende spécifié.

CaptionLabels(1).Delete

CaptionLabels.Add - Renvoie un objet CaptionLabel qui représente une légende personnalisée.

Dim strName As String: strName =  
Dim cll As CaptionLabel
Set cll = CaptionLabels.Add(Name:=strName)

Propriétés

BuiltIn True si l'étiquette de légende spécifiée est une des étiquettes de légende prédéfinies dans Word.

Dim booBuiltIn As Boolean
booBuiltIn = CaptionLabels(1).BuiltIn

ChapterStyleLevel Cette propriété renvoie ou définit le style de titre qui marque un nouveau chapitre lorsque les numéros de chapitre sont inclus dans l'étiquette de légende.

CaptionLabels(1).ChapterStyleLevel =

ID Renvoie une constante WdCaptionLabelID qui représente le type de l’étiquette de légende spécifiée si la propriété BuiltIn de l’objet CaptionLabel a la valeur true.

Dim wclID As WdCaptionLabelID
wclID = CaptionLabels(1).ID

IncludeChapterNumber True si un numéro de chapitre est ajouté aux numéros de page ou une étiquette de légende.

CaptionLabels(1).IncludeChapterNumber = True

Name Renvoie le nom de l'objet spécifié.

Dim strName As String
strName = CaptionLabels(1).Name

NumberStyle Cette propriété renvoie ou définit le style de numérotation de l'objet CaptionLabel.

CaptionLabels(1).NumberStyle = wdCaptionNumberStyleArabic

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

Dim objParent As Object
Set objParent = CaptionLabels(1).Parent

Position Cette propriété renvoie ou définit la position du texte d'étiquette de légende.

CaptionLabels(1).Position = wdCaptionPositionAbove

Separator Cette propriété renvoie ou définit le caractère situé entre le numéro de chapitre et le numéro de séquence.

CaptionLabels(1).Separator = wdSeparatorColon

CaptionLabels.Count Renvoie un type long qui représente le nombre d'étiquettes de légende dans la collection.

Dim lngCount As Long
lngCount = CaptionLabels.Count

CaptionLabels.Parent Renvoie un Object qui représente l’objet parent de l’objet CaptionLabels spécifié.

Dim objParent As Object
Set objParent = CaptionLabels.Parent