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