Не выводит имя открытого документа

Написал NemoSUN в 19/09/2016 12:11:39

Пишу скрипт в Кореле (X6, 64bit):
Sub DocName()
MsgBox ActiveDocument.Name
End Sub

В окошке выводит Untitled-1, хотя у меня открыт документ с другим именем.

Пробую так:
Sub DocName()
MsgBox CreateObject("Scripting.FileSystemObject".GetBaseName(ActiveDocument.Name)
End Sub

Всё равно выводит Untitled