CaptionLabels.Add Name:="Photo"With Selection .InsertParagraphAfter .InsertCaption Label:="Photo"End With