Range.InsertCaption (Word)

Inserts a caption immediately preceding or following the specified range.

InsertCaption (Label, Title, TitleAutoText, Position, ExcludeLabel)

ActiveDocument.Tables(1).Range.InsertCaption _ 
 Label:=wdCaptionTable, _ 
 Position:=wdCaptionPositionBelow

Arguments

The following argument is required

Label (String) - The caption label to be inserted. Can be a String or one of the WdCaptionLabelID constants. If the label has not yet been defined, an error occurs. Use the Add method with the CaptionLabels object to define new caption labels.

Optional arguments

The following arguments are optional

Title (String) - The string to be inserted immediately following the label in the caption (ignored if TitleAutoText is specified).

TitleAutoText (String) - The AutoText entry whose contents you want to insert immediately following the label in the caption (overrides any text specified by Title).

Position (WdCaptionPosition) - Specifies whether the caption will be inserted above or below the range. Can be either one of the WdCaptionPosition constants.

Possible return values are wdCaptionPositionAbove - The caption label is added above, wdCaptionPositionBelow - The caption label is added below.

ExcludeLabel (String) - True does not include the text label, as defined in the Label parameter. False includes the specified label.