Ниже приведен фрагмент кода на данную тему
Применим только в VBA
' определение пути к папке, где находится проект
' найденный путь помещается в строку Path
Dim pTemplates As ITemplates
Dim pTempCount As Long
Dim basetemp As String
Set pTemplates = Application.Templates
pTempCount = pTemplates.Count
If pTempCount > 1 Then
basetemp = pTemplates.Item(1)
pTempCount = VBA.InStrRev(basetemp, "\") ' находим самый правый \
If pTempCount > 1 Then ' задана папка
Path = VBA.Left(basetemp, pTempCount - 1)
End If
End If