Word对所有的图标增加自动编号

Sub 图加题注()
'
' 图加题注 宏
'
 For i = 1 To ActiveDocument.InlineShapes.Count
 ActiveDocument.InlineShapes(i).Select
 Selection.InsertCaption Label:="图", TitleAutoText:="", Title:="", Position _
        :=wdCaptionPositionBelow, ExcludeLabel:=0
         Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
    Next
End Sub