Sub Example_Path()
    ' Этот пример возвращает путь из рисунка и приложения.
    
    ' Если рисунок не был сохранен, путь документа будет пробелом.
    Dim docPath As String
    docPath = ThisDrawing.Path
    MsgBox "Путь текущего рисунка - " & docPath, , "Path Пример"
    
    Dim appPath As String
    appPath = ThisDrawing.Application.Path
    MsgBox "Путь текущего приложения - " & appPath, , "Path Пример"
    
End Sub