本示例在活动文档的第一个表格下插入题注。

ActiveDocument.Tables(1).Range.InsertCaption _
Label:=wpsCaptionTable, _
Position:=wpsCaptionPositionBelow