Referencing embedded OLE objects doesn't use filenames - it uses shape or inlineshape references, such as:
Code:
Dim objOLE As Word.OLEFormat
Set objOLE = ActiveDocument.InlineShapes(1).OLEFormat
objOLE.Activate
The above code assumes the embedded object is the first InlineShape in the document.