Classe AutoCaption - legenda que pode ser adicionada automaticamente (Word VBA)

A classe AutoCaption representa uma única legenda que pode ser adicionada automaticamente quando itens como tabelas, figuras ou objetos OLE são inseridos em um documento. Objeto AutoCaption é um membro da coleção AutoCaptions. A coleção AutoCaptions contém todas as legendas listadas na caixa de diálogo AutoCaption. Para usar uma variável de classe AutoCaption, ela primeiro precisa ser instanciada por exemplo

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

For Each

Aqui está um exemplo de processamento dos itens AutoCaption em uma coleção.

Dim acn As AutoCaption
For Each acn In AutoCaptions
	
Next acn

AutoInsert

True se uma legenda for automaticamente adicionada quando o item for inserido em um documento. Boolean de leitura/gravação.

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

CaptionLabel

Retorna ou define a legenda do rótulo "Figura", "Table" ou "Equação", por exemplo da legenda especificada. de leitura/gravação.

Essa propriedade pode ser definida como uma cadeia de caracteres ou uma 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

Retorna um Long que representa a posição de um item em uma coleção. Somente leitura.

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

Name

Retorna ou define o nome do objeto especificado. Cadeia de caracteressomente leitura.

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