CaptionLabel Property

Returns or sets the caption label ("Figure," "Table," or "Equation," for example) of the specified caption. Read/write Variant.

Note  This property can be set to a string or a WdCaptionLabelID constant.

Example

This example displays the name ("Microsoft Excel Worksheet," for example) and caption label ("Figure," for example) for each item that has a caption added automatically when inserted.

Dim acLoop As AutoCaption

For Each acLoop In AutoCaptions
    If acLoop.AutoInsert = True Then MsgBox acLoop.Name _
        & vbCr & "Label = " & acLoop.CaptionLabel.Name
Next acLoop
		

This example sets the caption label for Word tables to "Table" and then inserts a new table immediately after the selection.

With AutoCaptions("Microsoft Word Table")
    .AutoInsert = True
    .CaptionLabel = wdCaptionTable
End With
Selection.Collapse Direction:=wdCollapseEnd
ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=2, _
    NumColumns:=3