Inserts a caption immediately preceding or following the specified range or selection.
expression.InsertCaption(Label, Title, TitleAutoText, Position, ExcludeLabel)
expression Required. An expression that returns a Range or Selection object.
Label Required Variant. The caption label to be inserted. WdCaptionLabelID
Can be a string or one of the following WdCaptionLabelID constants.
wdCaptionEquation
wdCaptionFigure
wdCaptionTable
If the label hasn't yet been defined, an error occurs. Use the Add method with the CaptionLabels object to define new caption labels.
Title Optional Variant. The string to be inserted immediately following the label in the caption (ignored if TitleAutoText is specified).
TitleAutoText Optional Variant. The AutoText entry whose contents you want to insert immediately following the label in the caption (overrides any text specified by Title).
Position Optional Variant. Specifies whether the caption will be inserted above or below the Selection or Range object. WdCaptionPosition
Can be either of the following WdCaptionPosition constants.
wdCaptionPositionAbove
wdCaptionPositionBelow.
ExcludeLabel Optional Variant. True does not include the text label, as defined in the Label parameter. False includes the specified label.
Example
This example inserts a caption below the first table in the active document.
ActiveDocument.Tables(1).Range.InsertCaption _
Label:=wdCaptionTable, _
Position:=wdCaptionPositionBelow
This example inserts a Figure caption at the insertion point.
Selection.Collapse Direction:=wdCollapseStart
Selection.InsertCaption Label:="Figure", _
Title:=": Sales Results", Position:=wdCaptionPositionBelow