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

Sub ResizeAndNumberImages()

Dim i As Integer Dim inlineShape As InlineShape

i = 1 For Each inlineShape In ActiveDocument.InlineShapes With inlineShape .ScaleHeight = 100 * 3.88 / .Height .ScaleWidth = 100 * 4.3 / .Width .Range.Paragraphs.Add .Range.Select Selection.TypeText Text:=CStr(i) i = i + 1 End With Next inlineShape

End Sub