我之前也踩过这个一模一样的坑！默认的「选择性粘贴>粘贴链接」会把Excel文件的绝对路径硬编码到Word对象的LINK字段里，导致移动文件后直接失效。要改成关联Excel工作簿所在路径的相对路径，分手动修改和VBA批量处理两种方法，按需选就行：

方法一：手动修改单个LINK字段 #

适合只有少数嵌入对象的场景：

• 双击打开Sheet1里的嵌入Word文档，按下Alt+F9显示所有字段代码（这步很关键，默认看不到完整的LINK底层代码）
• 找到目标LINK字段，把绝对路径部分（比如"E:\Administration\Salary\\WB1.xlsm"）替换成相对路径写法：".\WB1.xlsm"
  • 这里的.\就代表当前Excel工作簿所在的目录，正好对应Application.Path指向的路径
• 确认字段代码格式正确（保留原来的"Sheet1!R2C1" \a \f 4 \r \* MERGEFORMAT这些参数），再按Alt+F9隐藏字段代码
• 右键点击字段选择「更新域」，测试下链接是否正常生效

方法二：用VBA批量处理所有嵌入Word对象 #

如果有多个嵌入对象或者需要反复处理，用VBA自动化更高效：

1. 打开Excel，按下Alt+F11打开VBA编辑器
2. 右键点击当前工作簿→插入→模块，粘贴以下代码：

Sub UpdateLinkedWordObjects()
    Dim shp As Shape
    Dim wordDoc As Object
    Dim field As Object
    Dim relativePath As String
    
    ' 生成相对于当前工作簿所在目录的相对路径
    relativePath = ".\" & ThisWorkbook.Name
    
    ' 遍历Sheet1中的所有嵌入对象
    For Each shp In ThisWorkbook.Sheets("Sheet1").Shapes
        If shp.Type = msoEmbeddedOLEObject Then
            ' 筛选启用宏的Word文档对象
            If shp.OLEFormat.ProgID = "Word.DocumentMacroEnabled.12" Then
                shp.OLEFormat.Activate
                Set wordDoc = shp.OLEFormat.Object
                
                ' 遍历Word文档内的所有字段
                For Each field In wordDoc.Fields
                    If Left(field.Code.Text, 4) = "LINK" Then
                        ' 替换绝对路径为相对路径
                        field.Code.Text = Replace(field.Code.Text, _
                            Chr(34) & ThisWorkbook.FullName & Chr(34), _
                            Chr(34) & relativePath & Chr(34))
                        field.Update
                    End If
                Next field
                
                ' 保存并关闭嵌入的Word文档
                wordDoc.Save
                wordDoc.Close
                Set wordDoc = Nothing
            End If
        End If
    Next shp
    
    MsgBox "所有链接路径已更新为相对路径！", vbInformation
End Sub

3. 点击运行按钮（或者按F5）执行宏，完成后会弹出提示框

注意事项 #

• 移动Excel文件时，只要保持文件本身的完整性（嵌入对象是包含在Excel内部的），相对路径会自动指向新目录下的当前工作簿，链接不会失效
• 如果你的Excel文件需要和其他文件保持特定目录结构，也可以调整相对路径的写法（比如"..\Salary\WB1.xlsm"，但这种情况需要确保目录结构不变）

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