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

Sub ResizeAndNumberImages() Dim pic As InlineShape Dim i As Integer i = 1

For Each pic In ActiveDocument.InlineShapes
    pic.LockAspectRatio = msoTrue '锁定纵横比
    pic.Width = CentimetersToPoints(4.3) '设置宽度
    pic.Height = CentimetersToPoints(3.88) '设置高度
    pic.Range.Paragraphs.Alignment = wdAlignParagraphCenter '设置居中对齐
    pic.Range.InsertAfter vbCr & "Figure " & i '插入编号
    i = i + 1
Next pic

End Sub