word中使用vba按照现在图片的顺序，用新的图片把旧图片全部替换，图片名称统一由规定的

Question

vba怎么定位需要插图的位置呢？

Answer 1

解题思路很重要，下面给出替换图片的关键代码：

Sub 替换活动文档中的第一张图片()
    ActiveDocument.InlineShapes(1).Select
    Selection.InlineShapes.AddPicture "[要替换的图片的完整路径]"
End Sub

PS：实际使用中可以将要替换的新图片按照 Word 文档中的图片出现的顺序进行编号（如1.jpg、2.jpg、3.jpg...）并放入一个文件夹中，然后将上述代码放入循环语句中并稍作修改，通过遍历 Word 文档中的 InlineShapes 对象同时传递图片的完整路径即可实现全部替换！