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

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

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

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