手动打开Word文件时激活内嵌Excel，修改后保存失败问题

你代码里的oOLEFormat.Open是把内嵌Excel以独立外部窗口打开的，这个操作是异步的——代码会立刻跳到ActiveDocument.Save，根本没等你修改Excel内容；就算你改了，此时Word里的内嵌对象还没同步Excel的变更，直接保存自然不会生效。

根据你的需求，分两种场景给出代码：

场景1：在Word内部编辑内嵌Excel（不弹出独立窗口） #

这种方式下，Excel直接在Word文档里激活编辑，修改后直接保存Word即可同步变更：

Sub Document_Open()
    ActivateEmbeddedExcel
End Sub

Sub ActivateEmbeddedExcel()
    Dim oShape As InlineShape
    Dim oOLEFormat As OLEFormat
    
    With ActiveDocument
        ' 定位到第一个内嵌对象，根据实际情况调整索引
        Set oShape = .InlineShapes(1)
        ' 如果是浮动对象，改用下面这句
        ' Set oShape = .Shapes(1)
        
        Set oOLEFormat = oShape.OLEFormat
        ' 在Word内部激活Excel对象（嵌入编辑模式）
        oOLEFormat.Activate
        
        ' 这里可以添加自动修改Excel内容的代码，比如：
        ' oOLEFormat.Object.Sheets(1).Range("A1").Value = "更新内容"
        
        ' 保存Word文档
        .Save
    End With
End Sub

场景2：外部打开Excel，等待修改关闭后同步保存 #

如果必须用独立Excel窗口打开，需要等待你关闭Excel后，再同步内嵌对象并保存Word：

Sub Document_Open()
    OpenAndSyncEmbeddedExcel
End Sub

Sub OpenAndSyncEmbeddedExcel()
    Dim oShape As InlineShape
    Dim oOLEFormat As OLEFormat
    Dim excelApp As Object
    
    With ActiveDocument
        Set oShape = .InlineShapes(1)
        ' Set oShape = .Shapes(1) ' 浮动对象切换这句
        
        Set oOLEFormat = oShape.OLEFormat
        ' 打开外部Excel窗口并获取应用对象
        Set excelApp = oOLEFormat.Open
        
        ' 循环等待用户关闭Excel窗口
        Do While excelApp.Visible
            DoEvents ' 让程序能响应你的操作
        Loop
        
        ' 同步Word里的内嵌对象（把Excel的修改更新到Word）
        oOLEFormat.Update
        
        ' 保存Word文档
        .Save
    End With
End Sub

• 确认内嵌对象类型：如果对象是和文本流对齐的，用InlineShapes；如果是可自由拖动的浮动对象，改用Shapes。
• 场景2的循环会一直等待你关闭Excel，之后才会执行保存，确保修改被同步到Word文档中。

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