Document.TablesOfFigures (Word)

Returns a TablesOfFigures collection that represents the tables of figures in the specified document.

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

Selection.Collapse Direction:=wdCollapseStart 
ActiveDocument.TablesOfFigures.Add Range:=Selection.Range, _ 
 Caption:=wdCaptionFigure