如何将ole中嵌套的文件另存为的，代码实现逻辑

以下是使用VBA代码将OLE中嵌套的文件另存为的实现逻辑：

1. 首先，需要在VBA编辑器中打开Word文档的宏编辑器，点击“开发工具”选项卡中的“Visual Basic”按钮即可进入VBA编辑器。

2. 在VBA编辑器中，需要使用“GetObject”函数获取OLE对象的引用。

3. 然后，使用“SaveAs”方法将OLE对象中嵌套的文件另存为指定的文件名和路径。

下面是一个示例代码，演示如何将OLE对象中嵌套的文件另存为：

Sub SaveOLEObjectAsFile()
    Dim objOLE As OLEObject
    Dim strFilePath As String
    
    '获取第一个OLE对象的引用
    Set objOLE = ActiveDocument.InlineShapes(1).OLEFormat.Object
    
    '保存OLE对象中嵌套的文件
    strFilePath = "C:\Temp\MyFile.docx"
    objOLE.SaveAs strFilePath
    
    '释放对象引用
    Set objOLE = Nothing
End Sub

在上述代码中，我们首先使用“ActiveDocument.InlineShapes”获取Word文档中的第一个OLE对象，然后使用“OLEFormat.Object”方法获取OLE对象的引用。最后，使用“SaveAs”方法将OLE对象中嵌套的文件另存为指定的文件名和路径。