Propriété AutoCaption.CaptionLabel (Word)

Cette propriété renvoie ou définit la légende (« Figure », « Table » ou « Équation », par exemple) de l'étiquette de la légende spécifiée. Variant en lecture/écriture.

Syntaxe

expression. CaptionLabel

Expression Variable qui représente un objet « AutoCaption ».

Remarques

Cette propriété peut être définie à une chaîne ou une constante WdCaptionLabelID.

Exemple

Cet exemple montre comment afficher le nom (« Feuille de calcul Microsoft Excel », par exemple) et l'étiquette de légende (« Figure », par exemple) pour chaque élément pour lequel une légende est automatiquement ajoutée lorsqu'il est inséré.

Dim acLoop As AutoCaption 
 
For Each acLoop In AutoCaptions 
 If acLoop.AutoInsert = True Then MsgBox acLoop.Name _ 
 & vbCr & "Label = " & acLoop.CaptionLabel.Name 
Next acLoop

Cet exemple montre comment affecter l'étiquette de légende « Microsoft Word Table » aux tableaux Word et insérer un nouveau tableau immédiatement à la suite de la sélection.

With AutoCaptions("Microsoft Word Table") 
 .AutoInsert = True 
 .CaptionLabel = wdCaptionTable 
End With 
Selection.Collapse Direction:=wdCollapseEnd 
ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=2, _ 
 NumColumns:=3

Voir aussi

AutoCaption, 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.