你是一个资深的Word使用人员在Word2007中给大量图片自动修改成高388cm、宽43cm并且在每张图片下方中间位置按顺序加上阿拉伯数字的编号要求写出宏代码而且能在Word2007中运行。

Sub AutoResizePictures() Dim pic As InlineShape Dim i As Integer

i = 1

For Each pic In ActiveDocument.InlineShapes
    With pic
        .LockAspectRatio = msoTrue
        .Width = CentimetersToPoints(4.3)
        .Height = CentimetersToPoints(3.88)
        .Range.Paragraphs.Last.Range.InsertAfter vbCr & i
        .Range.Paragraphs.Last.Alignment = wdAlignParagraphCenter
        i = i + 1
    End With
Next

End Sub