Макрос для экспорта всех слайдов презентации как JPG рисунки. РЕШЕНИЕ

[Рыбка Рио]

+
6) Нет перевода Label15 (There are no export options  for TIFF export yet.) на шаге 5
7) Папку Office/UI можно целиком удалить - они пустые

[serhiy.k]

Вот, все поправил, кроме 7-го шага.
Размер диалога немного увеличил, чтобы лучше отображался в Линуксе.
Надеюсь, что это уже последний вариант. Хотя буду благодарен за найденные ошибки.
Клио, большое вам спасибо!

[вложение удалено Администратором]

[Рыбка Рио]

Мне кажется, теперь отлично. Есть два мелких нюанса только:

1) См. скриншот.


2) Чтобы если документ не сохранён в пути для сохранения указывался стандартный путь для сохранения документов (указнанный в Сервис - Параметры - Пути - Мои документы), нужно добавить одну строчку (подчеркнута):

Sub DocumentFileNames
   Doc = ThisComponent
   sep = getPathSeparator()
   If (Not GlobalScope.BasicLibraries.isLibraryLoaded("Tools")) Then
      GlobalScope.BasicLibraries.LoadLibrary("Tools")
   End If
   Dim sDocPath As String
   If (Doc.hasLocation()) Then
      sDocPath = ConvertFromURL(Doc.URL) 'sDocPath - это Path (не URL)
      Dim send As String
      send = Right(sDocPath,1) 'последний символ, путь должен заканчиваться системным разделителем, а если его там нет, то нужно добавить
      if send=sep then
         send=""
      else
         send=sep
      endif
      docDir = DirectoryNameoutofPath(sDocPath, sep)+send
      docName = GetFileNameWithoutExtension(sDocPath, sep)
   Else
      docDir = ConvertFromURL(createUnoService("com.sun.star.util.PathSettings").Work)+sep
      docName = ThisComponent.Title
End If
End Sub

[вложение удалено Администратором]

[serhiy.k]

Спасибо еще раз, Клио,
поправил эти два момента.
теперь расширение доступно здесь: http://extensions.services.openoffice.org/en/project/ExportAsImages

Нужно ли еще его куда-то для LibreOffice выставлять или там достаточно?

[Рыбка Рио]

Нужно ли еще его куда-то для LibreOffice выставлять или там достаточно?

Пока, наверное, достаточно. Вот тема, в которой обсуждаются вопросы с сайтом расширений:  Links to Extensions

[Рыбка Рио]

Нужно ли еще его куда-то для LibreOffice выставлять или там достаточно?

Вот сюда: http://extensions-test.libreoffice.org/
(это новый сайт расширений для LibreOffice, потом его переименуют в extensions.libreoffice.org)

[tema]

Расширение ни хочет работать...
Версия Impress: 6.3.0.3
Попытка экспорта выдаёт ошибку:

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

Ошибка времени выполнения Basic.
Вызвано исключение
Type: com.sun.star.container.NoSuchElementException
Message: .
В макросе выделяет эту строку:

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

oLibContainer.loadLibrary( sLibName )
Скачивал отсюда:
https://extensions.libreoffice.org/extensions/export-as-images/1.0
ЧЯДНТ? 

[rami]

Я попробовал на версии LibreOffice  6.4.3.2 работает. Попробуйте обновить на версию LibreOffice_6.3.6.2 или LibreOffice_6.4.4.2. Какая у вас ось?

[tema]

У меня всё заработало после удаления ~/.config/libreoffice
Я удалил этот каталог со всеми настройками и установил заново. Всё заработало  

Какая у вас ось?

Altlinux P9 (Комета)