This example formats the first table of figures in the active document to exclude caption labels (Figure 1, for example).
If ActiveDocument.TablesOfFigures.Count >= 1 Then
ActiveDocument.TablesOfFigures(1).IncludeLabel = False
End If
This example adds a table of figures in place of the selection and then formats the table to include caption labels.
Set TOF = ActiveDocument.TablesOfFigures _
.Add(Range:=Selection.Range, _
Caption:="Figure")
TOF.IncludeLabel = True