Application.AutoCaptions (Word)

Retorna uma coleção AutoCaptions que representa as legendas que são adicionadas automaticamente quando itens como tabelas e imagens são inseridos em um documento. Somente leitura.

Para obter informações sobre como retornar um único membro de uma coleção, consulte retornando um objeto de uma coleção.

Dim captionLoop as AutoCaption 
 
For Each captionLoop In AutoCaptions 
 If captionLoop.AutoInsert Then MsgBox captionLoop.Name 
Next captionLoop