[VBA] Sostituire .lnk in file word

[Cecilia76]

Ragazzi,

salve a tutti. Ho un problema e volevo sapere se qualcuno può aiutarmi.
Dunque: ho un centinaio di file word in cui sono presenti (come oggetti embedded suppongo) dei file .lnk di windows.
Ora, dovrei sostituire i file .lnk perchè puntano a file sbagliati e lo vorrei fare in modo automatico (o quasi).
E' possibile farlo con delle macro o con VBA?
Qualcuno può instradarmi?

Grazie, Cec.

[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.