嘿，我懂你遇到的头疼事了！你的代码只遍历了InlineShapes集合，但Word里的图片其实分两类——嵌入式图片（InlineShapes）和浮动式图片（Shapes），那些以「插入并链接」方式添加的图片大概率是浮动式的，所以才没被你的代码检测到。

问题根源 #

Word中，当你插入图片时选择“浮于文字上方”“四周环绕型”这类非嵌入的环绕方式，图片会被归类到Shapes集合里；只有设置为“嵌入型”环绕的图片才会进入InlineShapes。你的代码只处理了嵌入式图片，自然漏掉了浮动式的链接图片。

修改后的完整代码 #

Sub ChangeAllLinkedImageSources()
    Dim doc As Document
    Dim inlineShape As InlineShape
    Dim shape As Shape
    
    ' 直接引用目标文档，比Activate更高效且避免误操作
    Set doc = Documents("Document.docx")
    Debug.Print "当前处理文档：" & doc.Name
    
    ' 处理嵌入式链接图片
    For Each inlineShape In doc.InlineShapes
        ' 先判断是否为链接图片，避免非链接对象报错
        If inlineShape.Type = wdInlineShapeLinkedPicture Then
            inlineShape.LinkFormat.SourceFullName = Replace(inlineShape.LinkFormat.SourceFullName, "C:\oldLink", "C:\newLink")
            Debug.Print "更新嵌入式图片链接：" & inlineShape.LinkFormat.SourceFullName
        End If
    Next inlineShape
    
    ' 处理浮动式链接图片
    For Each shape In doc.Shapes
        ' 判断是否为链接图片
        If shape.Type = msoLinkedPicture Then
            shape.LinkFormat.SourceFullName = Replace(shape.LinkFormat.SourceFullName, "C:\oldLink", "C:\newLink")
            Debug.Print "更新浮动式图片链接：" & shape.LinkFormat.SourceFullName
        End If
    Next shape
    
    MsgBox "所有链接图片的源位置已更新完成！", vbInformation
End Sub

代码说明 #

• 同时遍历InlineShapes和Shapes两个集合，覆盖所有类型的图片
• 添加类型判断（wdInlineShapeLinkedPicture和msoLinkedPicture），只处理链接图片，避免对非链接对象操作报错
• 用直接引用文档对象代替Activate方法，代码更稳定高效
• 保留Debug打印，方便你核对更新后的链接路径

这样修改后，就能把文档里所有「插入并链接」的图片源位置都更新啦！

内容的提问来源于stack exchange，提问作者Camille