Как в макросах ОО использовать переменные среды windows? Н...

[ForumOOo (бот)]

Компонент: Calc
Версия продукта:
Сборка:
ОС:

Как в макросах ОО использовать переменные среды windows? Нужно сохранять файл на рабочем столе. Компьютеров много, пользователи разнообразны. Хотел вот сюда
Doc.storeToURL("file:///....
прикрутить %userprofile%\desktop - не получилось.
Может кто-то сталкивался с подобной проблемой?

--
Подпись: Calendula

[JohnSUN]

Может, как то так?

Код Выделить Развернуть

Sub DesktopName
Dim a
GlobalScope.BasicLibraries.LoadLibrary("Tools")
a = GetPathSettings("Work")
MsgBox "Папка Мои документы у этого пользователя называется " + ConvertFromURL(a)
a = Split(GetPathSettings("Work"), "/")
a(UBound(a)) = "Desktop"
a = Join(a,"/")+"/"
If FileExists(a) Then
MsgBox "Значит Рабочий стол у этого пользователя должен называться " + ConvertFromURL(a)
Else
MsgBox "Но папка с именем " + ConvertFromURL(a) + " почему-то не найдена"
EndIf
End Sub
Если никто в настройках Сервис - Параметры - OpenOffice - Пути - Мои документы не поковырялся - должно работать...

[Calendula]

Спасибо! Будем тестить....