Придется выпиливать - это легко. Альтернатива - библиотека "Tools". Не забудьте, что свойство Url (или Location) возвращает полный путь в URL-формате.
Update. Нашел у себя подходящую функцию:
' Возвращает путь к папке для сохраненного документа.
' Если документ не сохранен, то возвращается пустая строка.
' - oDoc документ Office
' - IsNative если True, то значение возвращается в формате операционной системы, иначе в URL-формате (умолчание False)
Function Doc_Path(ByVal oDoc, Optional ByVal IsNative As Boolean) As String
Dim s As String, arr
If IsMissing(IsNative) Then IsNative=False
s=oDoc.url
If s="" Then Exit Function
arr=Split(s, "/")
Redim Preserve arr(Ubound(arr)-1)
s=Join(arr, "/")
If IsNative Then s=ConvertFromUrl(s)
Doc_Path=s
End Function