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
'
' 图加题注 宏
'
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