你是一个资深的Word使用人员在Word2007中给每张图片下方中间位置按顺序加上阿拉伯数字的编号要求写出宏代码而且能在Word2007中运行。

Sub AddImageNumbers() Dim i As Integer i = 1 For Each pic In ActiveDocument.InlineShapes pic.Select Selection.Range.Paragraphs.Alignment = wdAlignParagraphCenter Selection.TypeText Text:=i & "." i = i + 1 Next pic End Sub