解题思路很重要，下面给出替换图片的关键代码：
Sub 替换活动文档中的第一张图片()
ActiveDocument.InlineShapes(1).Select
Selection.InlineShapes.AddPicture "[要替换的图片的完整路径]"
End Sub
PS：实际使用中可以将要替换的新图片按照 Word 文档中的图片出现的顺序进行编号（如1.jpg、2.jpg、3.jpg...）并放入一个文件夹中，然后将上述代码放入循环语句中并稍作修改，通过遍历 Word 文档中的 InlineShapes 对象同时传递图片的完整路径即可实现全部替换！
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024