Application.AutoCaptions (Word)

Returns an AutoCaptions collection that represents the captions that are automatically added when items such as tables and pictures are inserted into a document.

For information about returning a single member of a collection, see Returning an object from a collection.

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