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

Sub ResizeAndNumberImages() Dim pic As Shape Dim i As Integer

i = 1

For Each pic In ActiveDocument.Shapes
    If pic.Type = msoPicture Then '判断是否为图片
        pic.LockAspectRatio = msoFalse '取消锁定纵横比
        pic.Height = CentimetersToPoints(3.88) '设置高度为3.88cm
        pic.Width = CentimetersToPoints(4.3) '设置宽度为4.3cm
        pic.WrapFormat.Type = wdWrapInline '设置图片为行内
        pic.Range.Paragraphs.Alignment = wdAlignParagraphCenter '居中对齐
        
        '在图片下方插入编号
        pic.Range.InsertAfter vbCr & i & "." & vbTab
        i = i + 1
    End If
Next pic

End Su