Classe AutoCaption - légende pouvant être ajoutées automatiquement (Word VBA)

La classe AutoCaption représente une seule légende pouvant être ajoutées automatiquement lorsque les éléments tels que des tableaux, images ou les objets OLE sont insérés dans un document. Pour utiliser une variable de classe AutoCaption, elle doit d'abord être instanciée, par exemple

Dim acn as AutoCaption
Set acn = AutoCaptions(Index:=1)

For Each

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

Dim acn As AutoCaption
For Each acn In AutoCaptions
	
Next acn

AutoInsert

True si une légende est automatiquement ajoutée lorsqu'un élément est inséré dans un document.

AutoCaptions("Microsoft Word Table").AutoInsert = True 
Selection.Collapse Direction:=wdCollapseStart 
ActiveDocument.Tables.Add Range:=Selection.Range, _ 
 NumRows:=2, NumColumns:=2

CaptionLabel

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.

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

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

Index

Renvoie un type long qui représente la position d'un élément dans une collection.

Dim lngIndex As Long
lngIndex = AutoCaptions(1).Index

Name

Cette propriété renvoie ou définit le nom de l'objet spécifié.

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