word文档使用技巧----一键插入题注

这个学期某课程word文档报告需要图片有题注才给较高的分数，一张张图片打题注非常麻烦，网上搜到用脚本插入题注的方法，修改了一下，方便下次直接复制。
在word的开发工具选择Visual Basic-->插入-->模块-->粘贴代码后F5执行，然后删除模块，保存。

Sub CaptionPictures()Dim xPic As InlineShapeDim picPage As Integer ' 存储图片所在页码For Each xPic In ActiveDocument.InlineShapes' 获取当前图片所在的页码（wdActiveEndPageNumber对应常量3，代表范围结束位置的页码）picPage = xPic.Range.Information(3)' 仅当页码不是第1页时，才插入题注If picPage <> 1 ThenxPic.SelectSelection.InsertCaption "图", "", "", wdCaptionPositionBelow, 0End IfNext
End Sub