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

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

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

Войти
Новости: Здесь можно поблагодарить участников форума Улыбка
 
   Начало   Помощь Поиск Войти Регистрация    задать вопрос  
Страниц: 1   Вниз
  Печать  
Автор Тема: Как в макросах ОО использовать переменные среды windows? Н...  (Прочитано 1723 раз)
0 Пользователей и 1 Гость смотрят эту тему.
ForumOOo (бот)

Offline Offline

Сообщений: 723


« Стартовое сообщение: 16 Ноябрь 2015, 19:56 »

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

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

--
Подпись: Calendula
Записан
JohnSUN
Капитана в тот день называли на "ты"
Гуру
*******
Offline Offline

Пол: Мужской
Расположение: Киев
Сообщений: 2 764


Помогаю людям и компьютерам понимать друг друга


WWW
« Ответ #1: 16 Ноябрь 2015, 21:47 »

Может, как то так?
Код:
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 - Пути - Мои документы не поковырялся - должно работать...
Записан

Владислав Орлов aka JohnSUN
Благодарить-не зазорно.
Подарить благо создателям офиса, нашему ресурсу, мне
Calendula
Новичок
*
Offline Offline

Сообщений: 1


« Ответ #2: 16 Ноябрь 2015, 22:19 »

Спасибо! Будем тестить....
Записан
Страниц: 1   Вверх
  Печать  
 
Перейти в:  

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