Пишу скрипт в Кореле (X6, 64bit):
Sub DocName()
MsgBox ActiveDocument.Name
End SubВ окошке выводит Untitled-1, хотя у меня открыт документ с другим именем.
Пробую так:
Sub DocName()
MsgBox CreateObject("Scripting.FileSystemObject".GetBaseName(ActiveDocument.Name)
End SubВсё равно выводит Untitled