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

Sub AddNumbering() Dim i As Integer i = 1 For Each pic In ActiveDocument.InlineShapes pic.Range.InsertAfter vbCr & i & ". " i = i + 1 Next End Sub

运行方法：

1. 打开 Word 2007，按下 Alt + F11 进入 VBA 编辑器；
2. 在 VBA 编辑器中，依次选择“插入”-“模块”，然后将以上代码复制粘贴到新建的模块中；
3. 按下 F5 运行宏，即可为每张图片下方添加阿拉伯数字编号。