Форум поддержки пользователей. LibreOffice, Apache OpenOffice, OpenOffice.org

Форум поддержки пользователей. LibreOffice, Apache OpenOffice, OpenOffice.org

20 Апрель 2021, 15:53 *
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
Вам не пришло письмо с кодом активации?

Войти
Новости: Доступно и просто о работе в офисных пакетах
 
   Начало   Помощь Поиск Войти Регистрация    задать вопрос  
Страниц: 1   Вниз
  Печать  
Автор Тема: [Решено] Libre Office Basic Найти путь к папке файла, из которого запущен макрос  (Прочитано 605 раз)
0 Пользователей и 1 Гость смотрят эту тему.
sokol92
Форумчанин
***
Offline Offline

Пол: Мужской
Сообщений: 379


WWW
« Ответ #57489: 13 Февраль 2021, 15:21 »

Придется выпиливать - это легко. Альтернатива - библиотека "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
« Последнее редактирование: 13 Февраль 2021, 19:03 от sokol92 » Записан

Владимир.
Страниц: 1   Вверх
  Печать  
 
Перейти в:  

Powered by MySQL Powered by PHP Powered by SMF 1.1.21 | SMF © 2006-2009, Simple Machines Valid XHTML 1.0! Valid CSS!