Sub Example_FullName()
    ' Этот пример использует свойство FullName,
    ' чтобы найти полное название текущего рисунка,
    ' и приложения.
    
    ' Найдите полное название файла текущего рисунка, включая путь.
    ' (Если рисунок не был сохранен, это название будет пробелом.)
    Dim docName As String
    docName = ThisDrawing.FullName
    MsgBox "Полное название текущего рисунка - " & docName, , "FullName Пример"
    
    ' Найдите полное название приложения
    Dim appName As String
    appName = ThisDrawing.Application.FullName
    MsgBox "Полное название текущего приложения - " & appName, , "FullName Пример"
    
End Sub