[Cecilia76]

Ragazzi,

nessuno sa aiutarmi? Io ho scoperto che quando si trascinano dei file .lnk in word si creano delle InlineShape. Allora ho provato a enumerare le InlineShapes presenti in un documento e funziona, ma non riesco ad avere nessuna info (ad esempio il nome del file.lnk).
Ecco il codice:

Sub EnumInlineShapes()
    Dim i As Long, tmp As InlineShape
    For i = ActiveDocument.InlineShapes.Count To 1 Step -1
        With ActiveDocument.InlineShapes(i)
            If .Type = wdInlineShapeEmbeddedOLEObject Then
                MsgBox "Embed OLE Object"
                'qui vorrei prendere il nome del file
            Else
                MsgBox "Other"
            End If
        End With
    Next i
End Sub

Qualche suggerimento??

C.