Я не думаю, что есть простой способ.
Я просто попробовал следующий код
Object o = current
string s = richTextWithOle(o."Object Text")
print s
и искал имя файла. В результате получилось что-то вроде
{\rtf1\ansi\ansicpg1252\deff0\nouicompat\deflang1031{\fonttbl{\f0\fnil\fcharset0 Tahoma;}}
{\*\generator Riched20 10.0.18362}\viewkind4\uc1
\pard\sa8\f0\fs20{\object\objemb{\*\objclass Word.Document.12}\objw1440\objh1215{\*\objdata
01050000
01000000
11000000
576f72642e446f63756d656e742e313200
33000000
443a5c4d53435c446f63756d656e74735c414d495220766f6d2057617274656e20617566204672
6569686569742e646f637800
00000000
Часть имени файла была «AMIR». Который в ASCII равен 41 4D 49 52. Который является частью 6-й строки objdata.
Возможно, из этого наблюдения можно создать общее правило и некоторый код. Удачи!