LibreOffice Calc как создать макрос

0

1

Делаю для себя словарик в LibreOffice Calc. В первой колонке слова, далее тип глагола и его перевод. Выбрал слово, например falar. Надо сделать кнопку на панели, чтобы при нажатии на нее запускалась программа просмотра eom (глаз мате) и ей передавался файл с именем глагола falar.png, в котором таблица его склонений. Все файлы глаголов png хранятся там же, где и файл словарика. Никогда не работал с макросами, да и с офисом собственно мало, все больше TeX. В програмировании не силен. Пытался читать как это сделать и утонул в объеме информации. Может кто подскажет, кто уже знает как это делается.

Ссылка

←	virtualbox не видит usb-устройств

Fedora 22 не обновляется

→

Вот тебе рыба:

Sub verb

Dim oCell As Object		' Текущая ячейка

	oCell = ThisComponent.getCurrentSelection()
	If oCell.getImplementationName() <> "ScCellObj" Then Exit Sub	' Это не ячейка - диапазон или объект
	Shell("eom file://" + oCell.Formula + ".png", 1)

End Sub

Основу взял с http://forumooo.ru/index.php/topic,2384.0.html.
Вставлять сам код, а затем кнопку, нужно через меню Сервис/Макросы/Управление макросами/LibreOffice Basic.... Надеюсь, разберёшся.

pS ★
(21.06.15 21:25:37 MSK)
Последнее исправление: pS 21.06.15 21:28:59 MSK (всего исправлений: 1)

Прежде всего рекомендую книги Эндрю Питоньяка «OpenOffice.org Macros Explained» или чуть покороче и не такую подробную с примерами «OpenOffice Macro Information» (русский перевод одной из версий второй книги) с сайта автора. Ещё есть офицлальное руководство для начинающих «OpenOffice.org 3.2 BASIC Guide», хотя и не самое новое.

grem ★★★★★
(21.06.15 22:17:17 MSK)
Последнее исправление: grem 21.06.15 22:18:38 MSK (всего исправлений: 1)

Ссылка

Ответ на: комментарий от pS 21.06.15 21:25:37 MSK

Спасибо. Работает, но только если вместо file:// вставить полный путь к директории, где лежат файлы png. А какой оператор берет путь где лежит сам файл ods?

rustamych ★★★★
(21.06.15 23:13:50 MSK) автор топика

Ответ на: комментарий от rustamych 21.06.15 23:13:50 MSK

Такой код:

...
Dim sURL As String
Dim oDoc As Object
	oDoc = ThisComponent
	If (oDoc.hasLocation()) Then
		sURL = oDoc.getURL()
	End If
...

Понятно, файл до этого должен быть сохранён хотя бы один раз! sURL будет вместе с именем файла. Его надо обрезать.

pS ★
(21.06.15 23:50:26 MSK)
Последнее исправление: pS 21.06.15 23:58:51 MSK (всего исправлений: 3)

Ответ на: комментарий от pS 21.06.15 23:50:26 MSK

Вру! Правильно использовать не getURL(), а getLocation() и ничего обрезать не нужно.

pS ★
(22.06.15 00:05:32 MSK)

Ответ на: комментарий от pS 22.06.15 00:05:32 MSK

Вот чёрт! Сейчас сам проверил и не работает!
Правильный вариант: sURL = oDoc.URL вместо sURL = oDoc.getURL(). Нужно обрезать имя.

pS ★
(22.06.15 00:41:34 MSK)
Последнее исправление: pS 22.06.15 00:48:20 MSK (всего исправлений: 1)

Ответ на: комментарий от rustamych 21.06.15 23:13:50 MSK

Вот стопудово работающий вариант:

Sub Verb

Dim oDoc As Object		' Текущий документ
Dim oCell As Object		' Текущая ячейка
Dim sLocation As String		' Расположение файла

	oDoc = ThisComponent
	oCell = oDoc.getCurrentSelection()
	If (oCell.getImplementationName() <> "ScCellObj") Then Exit Sub	' Это не ячейка - диапазон или объект
	If (Not oDoc.hasLocation()) Then Exit Sub			' Не документ / ни разу не сохранён
	If (Not GlobalScope.BasicLibraries.isLibraryLoaded("Tools")) Then
		GlobalScope.BasicLibraries.LoadLibrary("Tools")
	End If
	sLocation = Tools.Strings.DirectoryNameoutofPath(oDoc.URL, "/")	+ "/"
	Shell("eom " + sLocation + oCell.Formula + ".png", 1)

End Sub

Удачи!

pS ★
(22.06.15 01:50:23 MSK)

Ответ на: комментарий от pS 22.06.15 01:50:23 MSK

Спасибо. Заработало.

rustamych ★★★★
(22.06.15 01:59:14 MSK) автор топика

Ссылка

14 марта 2016 г.

Ответ на: комментарий от pS 22.06.15 00:41:34 MSK

Вы не смогли бы мне помочь еще с другой проблемой. Как сделать так, чтобы при наведении мыши на ячейку допустим К26 появлялась подсказка (примечание) в котором был бы номер ячейки А26 (в той же строке). Поясню нужду: веду учет студентов на занятиях. В столбце А есть или номер студента или его фамилия. Количество лекций велико и столбец А уходит из окна влево и чтобы найти ячейку студента приходится водить долго пальцем по экрану. Я решил проблему тем, что добавил примечание в каждую ячейку с номер соответствующей ячейки. Трудоемко, но сделал и теперь просто копирую столбец в каждый новый день. Примечания копируются автоматически. Но может есть какая глобальная настройка?

rustamych ★★★★
(14.03.16 16:45:53 MSK) автор топика