mPath = ActiveDocument.FullName
mPath2 = Split(mPath, "\")
mcnt = UBound(mPath2)
' пробую отбросить посл. элемент
'ReDim Preserve mPath2(mcnt-1) 'и тут VBA страшно ругается
mPath3 = Join(mPath2, "\")
как получить путь до файла?
На Маке пробую узнать путь до файла и команда mPath = ActiveDocument.FullName и mPath = ActiveDocument.Path почему выдают полный путь вместе с именем файла. Поэтому пробую избавиться от "хвоста". Как можно это записать?
пробую так:
пробую так:
Код:
1. Для получения пути без имени файла используйте свойство Path объекта ActiveDocument.
2. Перед изменением размерности массива проверяйте новое значение размерности на допустимость.
2. Перед изменением размерности массива проверяйте новое значение размерности на допустимость.
Если использование ActiveDocument.Path действительно не прокатывает, то можно попробовать :
или даже так (но имя файла не должно встречаться в именах папок, даже частично)
Код:
iPath = ActiveDocument.FullName
iPath = Left(ActiveDocument.FullName, Len(iPath) - Len(ActiveDocument.Name))
iPath = Left(ActiveDocument.FullName, Len(iPath) - Len(ActiveDocument.Name))
Код:
iPath = Replace(ActiveDocument.FullName, ActiveDocument.Name, "")
Спасибо, теперь выглядит красиво ))
К слову сказать, если документ был сохранён, то Ваш вариант тоже должОн работать :
Код:
Dim iPathSeparator$, iPath 'As Variant
iPathSeparator = Application.PathSeparator
iPath = Split(ActiveDocument.FullName, iPathSeparator)
ReDim Preserve iPath(UBound(iPath) - 1)
iPath = Join(iPath, iPathSeparator)
iPathSeparator = Application.PathSeparator
iPath = Split(ActiveDocument.FullName, iPathSeparator)
ReDim Preserve iPath(UBound(iPath) - 1)
iPath = Join(iPath, iPathSeparator)