本示例先添加一个名为“Photo”的新题注标签,然后插入一个照片题注。

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