[Iska]

Как получить доступ программными средствами к внедрённой в doc excel таблице? (к данным) »

Например, так (пример для Microsoft Office 2003):

Код:

Option Explicit

Sub Sample()
    Dim objInlineShape As InlineShape
    Dim objWorkbook As Object
    
    For Each objInlineShape In ThisDocument.InlineShapes
        If objInlineShape.Type = wdInlineShapeEmbeddedOLEObject Then
            If objInlineShape.OLEFormat.ProgID = "Excel.Sheet.8" Then
                objInlineShape.OLEFormat.Activate
                
                Set objWorkbook = objInlineShape.OLEFormat.Object
                
                MsgBox objWorkbook.Worksheets.Item(1).Cells(1, 1).Value
                
                Set objWorkbook = Nothing
            End If
        End If
    Next
End Sub