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

Формулировка задачи:

Пишу скрипт в Кореле (X6, 64bit):

Sub DocName()
MsgBox ActiveDocument.Name
End Sub

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

Sub DocName()
MsgBox CreateObject("Scripting.FileSystemObject").GetBaseName(ActiveDocument.Name)
End Sub

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

Решение задачи: «Не выводит имя открытого документа»

textual
                            Листинг программы 
                        
                            Sub DocName()
MsgBox CreateObject("Scripting.FileSystemObject").GetBaseName(ActiveDocument.FullName)
End Sub

Оцени полезность:

7 голосов , оценка 3.714 из 5

Похожие ответы