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

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

11 Июль 2020, 13:29 *
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
Вам не пришло письмо с кодом активации?

Войти
Новости: Доступно и просто о работе в офисных пакетах
 
   Начало   Помощь Поиск Войти Регистрация    задать вопрос  
Страниц: « 1 2   Вниз
  Печать  
Автор Тема: Макрос для экспорта всех слайдов презентации как JPG рисунки. РЕШЕНИЕ  (Прочитано 16059 раз)
0 Пользователей и 1 Гость смотрят эту тему.
Рыбка Рио
Форумчанин
***
Offline Offline

Сообщений: 1 678


« Ответ #15: 12 Май 2011, 21:38 »

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

ubuntu 12.04 + LibO3.6.0
serhiy.k
Участник
**
Offline Offline

Сообщений: 27


« Ответ #16: 12 Май 2011, 22:43 »

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

[вложение удалено Администратором]
Записан
Рыбка Рио
Форумчанин
***
Offline Offline

Сообщений: 1 678


« Ответ #17: 12 Май 2011, 23:04 »

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

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
Участник
**
Offline Offline

Сообщений: 27


« Ответ #18: 15 Май 2011, 11:47 »

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

Нужно ли еще его куда-то для LibreOffice выставлять или там достаточно?
Записан
Рыбка Рио
Форумчанин
***
Offline Offline

Сообщений: 1 678


« Ответ #19: 15 Май 2011, 12:38 »

Нужно ли еще его куда-то для LibreOffice выставлять или там достаточно?
Пока, наверное, достаточно. Вот тема, в которой обсуждаются вопросы с сайтом расширений:  Links to Extensions
Записан

ubuntu 12.04 + LibO3.6.0
Рыбка Рио
Форумчанин
***
Offline Offline

Сообщений: 1 678


« Ответ #20: 16 Август 2011, 21:09 »

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

ubuntu 12.04 + LibO3.6.0
tema
Участник
**
Offline Offline

Сообщений: 10


« Ответ #21: 21 Май 2020, 00:28 »

Расширение ни хочет работать...
Версия 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
Гуру
*******
Online Online

Пол: Мужской
Сообщений: 2 956


MacBook Pro, LibreOffice и Apache OpenOffice


« Ответ #22: 21 Май 2020, 08:18 »

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

tema
Участник
**
Offline Offline

Сообщений: 10


« Ответ #23: 21 Май 2020, 23:27 »

У меня всё заработало после удаления ~/.config/libreoffice
Я удалил этот каталог со всеми настройками и установил заново. Всё заработало  Всё хорошо
Какая у вас ось?
Altlinux P9 (Комета)
Записан
Страниц: « 1 2   Вверх
  Печать  
 
Перейти в:  

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