Classe AutoCaption (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.

Set

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)

Les procédures suivantes peuvent être utilisés pour définir des variables de la classe AutoCaption : AutoCaptions.Item et Application.AutoCaptions

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

Parent

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

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

AutoCaptions.CancelAutoInsert

Empêche Word d'ajouter automatiquement des légendes à tous les types d'éléments.

AutoCaptions.CancelAutoInsert

AutoCaptions.Count

Renvoie le nombre d'éléments dans la collection AutoCaptions.

Dim lngCount As Long
lngCount = AutoCaptions.Count

AutoCaptions.Item

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

Syntaxe : expression.Item (Index)

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

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

AutoCaptions.Parent

Renvoie un Object qui représente l'objet parent de la collection AutoCaptions spécifiée.

Dim objParent As Object
Set objParent = AutoCaptions.Parent