Я знаю, что на этот вопрос уже был дан ответ, но данное решение не работает для меня. Данное решение:
Dim oDoc As Object
Dim Path$
oDoc = ThisComponent
Path$ = oDoc.getURL()
На самом деле это возвращает пустую строку ("") для меня. Я что-то пропустил?
У меня LibreOffice 4.3.1.2 на Kubuntu 12.04.
Спасибо за вашу помощь!