Nabend,

versuchs mal damit:

Sub DebugPrint()
    Dim ctrl As InlineShape
    For Each ctrl In ThisDocument.InlineShapes
        If ctrl.Type = wdInlineShapeOLEControlObject Then
            Debug.Print ctrl.Field.OLEFormat.Object.Name
        End If
    Next
End Sub