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

Автор serhiy.k, 5 мая 2011, 10:01

0 Пользователи и 1 гость просматривают эту тему.

Рыбка Рио

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

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


[вложение удалено Администратором]
ubuntu 12.04 + LibO3.6.0

serhiy.k

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

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

Рыбка Рио

Цитата: serhiy.k от 15 мая 2011, 11:47Нужно ли еще его куда-то для LibreOffice выставлять или там достаточно?
Пока, наверное, достаточно. Вот тема, в которой обсуждаются вопросы с сайтом расширений:  Links to Extensions
ubuntu 12.04 + LibO3.6.0

Рыбка Рио

Цитата: serhiy.k от 15 мая 2011, 11:47Нужно ли еще его куда-то для LibreOffice выставлять или там достаточно?
Вот сюда: http://extensions-test.libreoffice.org/
(это новый сайт расширений для LibreOffice, потом его переименуют в extensions.libreoffice.org)
ubuntu 12.04 + LibO3.6.0

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
Я удалил этот каталог со всеми настройками и установил заново. Всё заработало  :beer:
Цитата: rami от 21 мая 2020, 08:18
Какая у вас ось?
Altlinux P9 (Комета)