What you're trying to do is not possible with Word VBA, since the use an EMBED field and the most Word returns is the field code: 'EMBED Package'. No details about the filename or its path can be retrieved. Even if you Activate it via .OLEFormat.Activate, all that does is start the file playing but without revealing any of the details you're interested in.
To see what would be involved in doing this programmatically, see:
Word - Embedded Object of type "Package", especially paras 1 & 6-10 of the post marked as the Answer.