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