Libreoffice макросы basic переименовать файлы. Переработка диалогов управления макросами в LibreOffice

Иногда требуется провести работу с текстом или обработать текст каким-либо сложным образом и обычных средств, предоставляемых интерфейсом для этого не хватает. Кроме того, бывает необходимо провести одну и ту же последовательность рутинных действий, что порой занимает много времени, а хотелось бы свести последовательность этих действий к одному нажатию кнопки. Writer позволяет создавать специальные макросы, являющиеся по сути процедурами обработки текста, написанные на языке программирования, в нашем случае в качестве языка программирования выступает язык Бэйсик. При этом, обладая множеством всех стандартных операторов присущих языкам программирования высокого уровня, возможно получить доступ к объектам текстового редактора Writer, открытым документам, функциям открытия документов, всем объектам данного документа включая рисунки, параграфы, колонтитулы, выделенный текст, списки, слова, буквы, шрифты и т.д..

2.1. Объекты и классы.

Что же такое Объект. С точки зрения реального мира объект это нечто материальное, существующее и обладающее свойствами и поведением в реальном мире, часто объекты имеют какие то общие свойства, благодаря которым мы относим каждый объект к какому то классу объектов. Например – автомобиль, есть разные конкретные реализации и объекты автомобили, но общим классом является автомобиль, имеющий четыре колеса, способный ездить и управляемый водителем. То же самое можно сказать и о тексте или документе, документ это объект, который содержит объект текст, а объект текст содержит объекты слова, абзацы, буквы, текст редактируется, меняется, отображается, документ создается и сохраняется. Все эти действия мы выполняем с данными объектами, используя функции редактора, но мы можем эти функции вызвать с помощью алгоритмического языка.

Если вы уже работали с языками программирования и писали программы, то знаете что в любом языке программирования существует набор операторов или инструкций с помощью которых можно записать указания или программу, которую сможет понять и выполнить процессор. Существует набор стандартных операторов с помощью которых можно написать практически любой алгоритм, любой сложности – это ветвление, цикл, линейная последовательность выполнения операторов, арифметические действия и возможность обращения к переменным и записи в них каких то значений или результатов логических или арифметических выражений. Обычно в языках высокого уровня стараются избежать сложной работы с памятью присущей машинным языкам, вводится стандартная операция присвоения, которая позволяет некоторой – переменной – символьной последовательности присвоить какоето значение. Грубо говоря, используя эту символьную последовательность в выражениях вы работаете с тем, что содержится в данной переменной как в ящичке. Можно операцию присвоения описать таким образом: В стакан с названием – St1, мы заливаем молоко из кружки Cr1 и говорим, налейте мне молоко в St1 из Cr1. Таким образом, вам нальется то, что содержится в Cr1. Тоже самое и с переменной. Допустим, Val1 = 20; Val2 = 30; Val3 = Val1+Val2; тогда Val3 будет содержать значение 50. Вы знаете, что переменная может содержать в себе только данные определенного вида, а не все подряд (хотя существуют специальный вариантный тип данных, когда тип переменной можно определить в процессе выполнения программы). Ведь мы можем хранить и названия (строки) и числа, и объекты. Поэтому каждой переменной ставится в соответствие какой-то тип данных, или домен или область определения тех значений, которые она может принимать. Обычно в языках программирования – это целочисленные типы, вещественные, строковые, символьные, логические, перечислимые, множества, комплексные числа, тип запись или структуры. Так что же такое переменная объект, это некая ссылка на объект, являющийся сложной структурой данных, которая ко всему прочему может содержать методы работы с этими данными и объектом, а также защищать данные и ограничивать или разрешать к ним доступ.

Переменная-объект, это переменная, которая содержит в себе другие объекты, свойства и действия, производимые над объектом, объект является конкретной реализацией, какого то класса (класс есть описание, некого множества объектов с одними и теми же свойствами). Обычно доступ к свойствам и функциям сложных типов данных (таких как классы) осуществляется путем написания имени переменной объекта, а затем через точку имени функции и или свойства данного объекта.

2.2. Переменные и объекты в Basic

Для объявления переменной указывается ключевое слово dim и затем список переменных через запятую, слово as и тип переменной.

Dim a,b as integer – объявление переменной целого типа. Dim s as string – объявление переменной строкового типа.

Dim mass() as integer – объявление динамического одномерного массива целого типа. Redim mass(100) – изменение длины массива и установка ее равной 100.

Dim desk as com.sun.star.frame.Desktop - переменная типа desktop унифицированной сетевой модели UNO, данная переменная может ссылаться на объекты типа Desktop.

В языке Basic можно обращаться к переменным представляющим собой ссылки на объекты, это могут быть объекты текст, параграфы, таблицы, отображаемые на экране окна, они обладают набором свойств и методов работы с данными объектами. Объектная модель может быть любой, как и ее реализация, например в пакете Microsoft Office реализована своя объектная модель, в пакете LibreOffice или OpenOffice своя, потому объекты и способ взаимодействия с этим объектами в этих различных пакетах отличаются.

2.3. Операторы Basic

Оператор цикла For.

For index=n1 to n2 Rem тело цикла

Переменная Index пробегает значения от n1 до n2 c инкрементацией s (увеличение на s), в данном случае s может быть переменной или константой целого типа, квадратные скобочки указывают на то, что конструкция является не обязательной, в случае если она не указывается то шаг равен 1.

Например, val =0

For xyz = 4 to 50 step 4 val=val+xyz

Алгоритм вычисляет сумму значений от 4 до 50 с шагом 4, то есть сумму 4, 8, 12, 16 ...

до 48 в переменную val. val1 =0

For aval = 1 to 50 val1=val1+aval next aval

В данном случае рассчитывается сумма целых чисел от 1 до 50.

Оператор цикла While, делай пока выполняется условие. Операторы внутри цикла повторяются до тех пор пока выполняется условие.

While <условие> операторы Wend

Пример: While i

Цикл выполняется пока переменная i меньше N. Условный оператор If,

if <условие> then

<последовательность операторов если условие выполняется> end if

Пример: если I меньше 100 (если условие выполнено) то увеличить I на 1, иначе уменьшить на 1.

If i<100 then i=i+1

else i=i-1 end if

2.4. Процедуры и функции.

Функции и процедуры представляют собой отдельные блоки операторов, которые могут быть вызваны в основной программе или подпрограмме, обычно вызов функции или процедуры осуществляется в программе с помощью указания ее имени и передаваемых в нее параметров, после выполнения операторов функции управление возвращается программе или подпрограмме вызвавшей ее и начинается выполнение операторов следующих за функцией или процедурой. Очевидно, что назначение процедур и функций в том, чтобы не писать каждый раз один и тот же код для часто повторяющихся операций выполняющих определенное логически завершенное действие. При этом внутри функций и процедур возможно использовать свои локальные переменные, которые могут иметь те же названия, что и переменные в других процедурах и функциях и в основной программе. При этом извне процедуры мы не можем менять локальные переменные функции. Типичное использование процедур и функций заключается, в том что мы передаем в функцию какие то значения, на основе которых эта функция производить ряд действий и вычисление какого-то результата. Основное отличие процедур от функций в том, что имени функции ассоциирован какой то тип возвращаемых данных, грубо говоря, функцию можно использовать в выражениях, например, арифметических или в логических, в условных операторах и циклах. Процедура вызывается вне какого-либо выражения.

Функция возвращает сумму двух чисел, передаваемых как фактические параметры в функция из внешней программы

Function sum(a,b as integer) as integer Sum=a+b

Использование функции sum в программе. Dim x as integer

x = 2 x=x+sum(x,4)*2

Пример процедуры позволяющей сложить два числа, значение возвращается в формальном параметре с, при вызове процедуры не должно быть константой, а должно быть переменной типа integer

Sub sum(a,b,c as integer)

Dim c as integer Call sum(2,2,c)

2.5. Создание макроса в LibreOffice

Для создания макроса в LibreOffice выбираем сервис+макросы+управление макросами+LibreOffice Basic (Tools+Macros+Organize Macros). При этом отобразится окно представленное на рисунке ниже (рисунок 19). Для того, чтобы макрос был сохранен в самом документе, необходимо выбрать ваш документ, выбрать набор стандартных модулей «standard» и затем нажать «создать», затем необходимо ввести имя модуля. После создания модуля можно его выбрать, в окошке справа выбрать макрос Main и нажать редактировать (Edit). Либо необходимо после создания модуля (Module1), написать в поле Macro Name (Имя макроса) новое имя макроса и нажать создать (рисунок 20).

Рисунок 19 - Окно создания и редактирования макросов

Рисунок 20 - Пример создания нового макроса MyMainMacros

В результате создания и редактирования макроса появляется окно редактора Бэйсика, на рисунке приведен пример с двумя макросами, естественно их может быть больше и они могут иметь входные параметры.

Рисунок 21 - Редактор Basic и два макроса

В LibreOffice, как уже отмечалось, объектная модель несколько другая нежели в Microsoft Office, в LibreOffice Basic используется так называемся унифицированная сетевая объектная модель UNO. Ниже приведен пример макроса openoffice увеличивающий размер шрифта каждого параграфа.

Dim Doc As Object

Dim Enum As Object

Dim TextElement As Object

" StarDesktop - главный объект доступный из макроса

" создание объекта enumeration

Enum = Doc.Text.createEnumeration

" цикл по всем текстовым элементам While Enum.hasMoreElements TextElement = Enum.nextElement

" проверка является ли текущий блок таблицей

If TextElement.supportsService("com.sun.star.text.TextTable") Then

MsgBox "Текущий блок содержит таблицу"

Около 10 лет я использую Linux. Примерно лет 5 назад я начал использовать пакет OpenOffice, а 3 года назад - LibreOffice. К своему удивлению, и даже стыду, макросов, написанных для Calc у меня нет. А вот для Excel их за это время накопилось достаточно, начиная от простеньких формочек и формул и заканчивая мощными надстройками для предприятий, автоматизирующих подготовку информации. Сегодня дал себе зарок потихоньку начать изучать пакет и его возможности, в котором провожу довольно много времени.

Для большинства людей макрос - это что-то непонятное, и, пожалуй, лишнее изобретение. Для них оно не только не оптимизирует работу, но еще и увеличивает ее. Это мнение вызвано непониманием принципов использования макросов. Макросы используются тогда, когда необходимо выполнить какое-то действие много раз. Чаще всего это однотипная обработка документа (сложное форматирование, выборки), иногда формы для заполнения, формулы, расчеты для графиков... Отталкиваясь от этого и от своих предпочтений мы выбираем способ хранения наших макросов:

глобальный (или надстройка) — доступный всегда при открытии программы;
шаблонный — доступный при открытии конкретного шаблона;
локальный — доступный при работе только в конкретном документе.

Последний используется реже, в основном в очень сложных интерактивных документах.
На сегодняшний день, только мелкие компании, у которых нет в штате IT-специалистов, пользуются офисными пакетами (не важно LibreOffice или MS Office) как они есть «из коробки». В большинстве же случаев, офисный пакет является только базой на которой развернуты надстройки, и сотрудник компании, часто, даже не подозревает сколько для него было сделано мелких, но очень удобных штучек, пока не уволится или не перейдет в другую компанию.

Изучение написания макросов в Excel советуют начать с инструмента «Записать макрос». Действительно, записывая кусочки действий, достаточно просто себе представить поверхностный уровень языка и API которым в последующем нужно будет пользоваться. Так же иногда, чтобы быстро создать несложный макрос, как бы «накидываешь его записывая» а потом шлифуешь, доводя до ума в редакторе кода.

Подключение инструмента «Записать макрос» в LibreOffice 4.1

В LibreOffice 4.1 по умолчанию функция «Записать макрос » отключена. Поэтому, первое что нужно сделать, это включить её: Сервис → Параметры (Tools → Options ) раскрыть группу LibreOffice и в самом низу в пункте «Расширенные возможности » («Advanced ») поставить галочку на против «Включить запись макросов(ограничено) » («Enable macro recording (limited) »).

После этого в вашем меню: Сервис → Макросы (Tools → Macros ) появится пункт меню «Записать Макрос » («Record Macro »).

Использование инструмента «Запись макроса» в LibreOffice 4.1

Для демонстрации инструмента «Запись макросов » приведем простой пример:
1. Откроем новый документ Calc и сохраним его на диск под удобным для вас названием;
2. Выделим ячейку A1 ;
3. Включим запись макроса Сервис → Макросы → «Записать Макрос» (Tools → Macros → «Record Macro» ). Появится панель с единственной кнопкой «Завершить Запись » («Stop Recording »);
5. Выделим ячейку B1 и нажмем «Завершить Запись » («Stop Recording »);
6. Откроется следующее окно:

Мы делаем макрос с доступом только в этом документе, поэтому, откроем пункт с названием документа (у меня article.ods, у вас это будет название, под которым вы сохранили документ) и выделим единственную присутствующую библиотеку Standard . В ней пока нет модулей, поэтому создадим его.
7. Нажмем кнопку «Создать модуль » («New Module ») и в открывшемся окне введем имя модуля.

По умолчанию модуль создается с пустым макросом под названием Main . Введем в поле «Имя макроса » («Macro name ») желаемое имя я ввел «Main ») и нажмем «Записать » («Save ») чтобы сохранить записанный нами макрос. В моём случае появится предупреждение, что такое название макроса уже есть.

Макрос записан, и если мы теперь сохраним документ, то макрос сохранится вместе с ним. А значит, каждый раз открывая этот документ, мы можем пользоваться этим макросом.

Запуск и редактирование макроса LibreOffice 4.1

Запустить макрос в LibreOffice 4.1 можно двумя способами.
Первый, открыть окно «Выполнить макрос »: Сервис → Макросы → «Выполнить макрос» (Tools → Macros → «Run Macro...» ), выделить нужный макрос и нажать «Запустить ».

Любые материалы я публикую в двух форматах - odt и pdf . Последний удобен для распространения. Экспорт в pdf осуществляется штатными средствами LibreOffice через диалог «Файл → Экспорт в PDF ». В процессе вычитки руководства и исправления в нём ошибок приходится часто пересохранять документ. И чтобы каждый раз вручную не экспортировать документ, я подумал, что было бы неплохо если бы это происходило автоматически при сохранении odf файла. И знание языка макросов LibreOffice в данном случае абсолютно не нужно.

Задача решается с помощью функции записи макроса. По умолчанию она недоступна. Чтобы включить ее перейдите в «Сервис → Параметры » в разделе «LibreOffice » выберите пункт «Расширенные возможности » и установите галочку напротив «Включить запись макросов ».

После перезапуска LibreOffice во вкладке «Сервис → Макросы » появится пункт «Записать макрос ».

После нажатия «Сервис → Макросы → Записать макрос » на экране всплывет окошко с кнопкой «Завершить запись ».

Суть проста:

Включите запись макроса
Выполните необходимое действие пока идет запись. В моем случае я просто выполнил экспорт в PDF через «Файл → Экспорт в PDF »
Нажмите кнопку «Завершить запись »

Все, макрос экспорта в PDF записан, остается только сохранить его.

Для удобства я создал модуль «Export_to_PDF » в библиотеке «Standard » и сохранил свой макрос в этом модуле.

Теперь остается только назначить срабатывание макроса на определенное событие. В нашем случае на сохранение документа. Идем в «Сервис → Настройка » на вкладку «События ».

Внимание! Написание макроса выполнялось в LibreOffice 4.4.3.2 и Windows XP.

Запустите LibreOffice Calc. Выберите пункт меню Сервис -> Макросы -> Управление макросами -> LibreOffice Basic

В окне Макросы Libre Office BASIC в поле "Имя макроса" пишем "Main". В поле "Макрос из" выбираем "Мои макросы" - "Standard" и нажимаем кнопку "Создать". Смотрите рисунок 1.

Рисунок 1. Окно макросы LibreOffice Basic

В окне Новый модуль задаем название "Module1" и нажимаем кнопку "OK". Смотрите рисунок 2.

Рисунок 2. Создание нового модуля

Рисунок 3. Редактор макросов LibreOffice Basic

Сам модуль Module1 с главной процедурой Main у нас созданы. Чтобы создать диалог выберите в редакторе макросов LibreOffice Basic пункт меню Сервис -> Макросы -> Управление диалогами...

Выбираем вкладку "Диалоги". В разделе "Диалог" выбираем "Мои диалоги" -> "Standard" и нажимаем кнопку "Создать". Смотрите рисунок 4.

Рисунок 4. Создание диалога макроса

В окне Новый диалог задаем название "Dialog1" и нажимаем кнопку "OK". Смотрите рисунок 5. Потом кнопку "Закрыть" окна Управление макросами LibreOffice Basic.

Рисунок 5. Создание нового диалога

Далее в окне редактора макросов LibreOffice Basic дважды нажимаем на нашем только что созданом диалоге с именем "Dialog1", смотрите цифру 1 на рисунке 6. После этого откроется визуальный редактор диалога, смотрите цифру 2 на рисунке 6.

Рисунок 6. Редактор диалога LibreOffice Basic

Теперь перенесите на наш диалог визуальный элемент под именем метка и визуалный элемент кнопка. Визуальные элементы можно перетащить из панели визуальных элементов, смотрите цифру 3 на рисунке 6.

Если выделить визуальный элемент Метку, то откроется набор свойств данного элемента. Через эти свойства можно настроить элемент. Присвоим имя lblNow элементу метка и текст оставим пустым. Для элемента кнопка имя присвоем OKButton и текст зададим OK. Смотрите цифры 1,2,3 рисунка 7.

Рисунок 7. Добавление визуальных элементов в редакторе диалогов LibreOffice Basic

Как я писал выше, модуль Module1 с главной процедурой Main создана (смотрите рисунок 8), но она еще не заполнена.

Рисунок 8. Добавляем исходный код макроса

Процедура Main является основной, в ней мы загружаем диалоговое окно с именем Dialog1, это следующие строчки кода:

DialogLibraries.LoadLibrary("Standard")
Dlg = CreateUnoDialog(DialogLibraries.Standard.Dialog1)

Формируем строку с текущей датой и временем, это следующие строчки кода:

Dim strNow As String
strNow = Format(Now(), "yyyy-mm-dd ")
strNow = strNow + Format(Time(), "hh:mm")

Присваеваем строку с датой и временем визуальному элементу метка с именем lblNow, это следующие строчки кода:

Dim clblNow As Object
clblNow = Dlg.getControl("lblNow")
clblNow.Text = strNow

Последней строчкой кода в процедуре Main мы выполняем диалоговое окно с именем Dialog1:

Dlg.Execute()

Есть еще одна процедура, ее имя OKButton_execute, это событийная процедура, она выполняется в момент нажатия кнопки с именем OKButton, и выполняет она закрытие диалогового окна с именем Dialog1, это следующая строчка кода:

Dlg.endExecute()

Теперь присвойте процедуру с именем OKButton_execute кнопке с именем OKButton как событие на "Отпускание клавишы мыши". Для этого откройте визкальный редактор диалога Dialog1, смотрите цифру 1 на рисунке 9. Выделите Кнопку с именем OKButton и перейдите на вкладку "События", смотрите цифру 2 на рисунке 9. В событие "Отпускание клавиши мыши" укажите процедуру с именем OKButton_execute, нажав конопку с тремя точками, смотрите цифру 3 на рисунке 9.

Рисунок 9. Назначение события кнопке ОК

Все необходимое для запуска макроса мы сделали. Для начала посмотрим что у нас делает макрос. Под цифрой 2 рисунка 10 вы видите созданное диалоговое окно с отображаемой текущей датой и временем. Если нажать кнопку OK, то диалоговое окно закроется.

1. Запуск макроса из редактора макросов LibreOffice Basic.Откройте в редакторе макросов LibreOffice Basic наш код и выполнтите его нажав клавишу F5 или нажав на кнопку выполнения макроса, смотрите цифру 1 рисунка 10.

2. Запуск макроса из диалогового окна "Выбор макроса", смотрите цифру 1 на рисунке 11. В диалоговом окне нам нужно выбрать наш макрос и нажать кнопку "Выполнить", смотрите цифру 2 на рисунке 11.

Рисунок 11. Запуск макроса из диалога "Выбор макроса"

3. Запуск макроса из меню и подменю в приложениях LibreOffice Calc или LibreOffice Writer, смотрите цифру 0 рисунка 12. Для создания меню и подменю выберите пункт меню "Сервис" и подменю "Настройка", смотрите цифры 1 и 2 рисунка 12. В диалоговом окне "Настройка" на вкладке "Меню" нажмите кнопку "Создать...", введите имя нашего меню (например "Макросы"), смотрите цифру 3 рисунка 12. Чтобы создать подменю нашего меню "Макросы" нажмите кнопку "Добавить..." (смотрите цифру 4 рисунка 12.).

Рисунок 12. Запуск макроса из меню и подменю в приложениях LibreOffice Calc или LibreOffice Writer

Потом в диалоговом окне "Добавить команды" выберите команду которая будет выполнятся при выборе нашего подменю (смотрите цифры 1 и 2 рисунка 13), т.е. мы выбираем наш макроc с именем Main.

Рисунок 13. Добавляем команду для подменю

Переименуйте наше подменю выбрав пункт меню "Переименовать..." кнопки "Изменить" диалогового окна "Настройка" вкладки "Меню" (смотрите цифры 1,2,3,4 рисунка 14). Подменю назовите "Макрос окно с датой".

Рисунок 14. Переименование подменю

4. Запуск макроса в приложениях LibreOffice Calc или LibreOffice Writer по нажатию сочетания клавиш на клавиатуре. Для это откройте диалог "Настройка" и выбирите вкладку "Клавиатура" (смотрите цифру 1 рисунка 15). Потом выбираем команду, которая является нашим макросом с именем "Main" (смотрите цифру 2 рисунка 15). Потом выбираем свободную комбинацию клавиш и назначаем их нашей команде, т.е. макросу с именем Main (смотрите цифры 3,4,5 рисунка 15).

Рисунок 15. Назначение комбинации клавиш для запуска макроса

5. Запуск макроса в приложениях LibreOffice Calc или LibreOffice Writer по нажатию кнопки на панели инструментов (смотрите цифру 4 рисунка 16). Для создания кнопки на панели инструментов выберите пункт меню "Сервис" и подменю "Настройка", смотрите цифру 1 рисунка 16. В диалоговом окне "Настройка" на вкладке "Панели инструментов" нажмите кнопку "Создать...", введите имя нашей панели инструментов (например "Панель макросов"), смотрите цифру 2 рисунка 16. Чтобы создать кнопку на панели инструментов нажмите кнопку "Добавить..." (смотрите цифру 3 рисунка 16).

Рисунок 16. Запуск макроса из панели инструментов

Потом в диалоговом окне "Добавить команды" выберите команду которая будет выполнятся при нажатие по нашей кнопке нашей панели инструментов (смотрите цифры 1 и 2 рисунка 13), т.е. мы выбираем наш макроc с именем Main.

Переименуйте нашу кнопку нашей панели инструментов выбрав пункт меню "Переименовать..." кнопки "Изменить" диалогового окна "Настройка" вкладки "Панели инструментов" (смотрите цифры 1,2,3,4 рисунка 17). Кнопку назовите "Макрос окно с датой".

Рисунок 17. Переименование кнопки панели инструментов

глобальный (или надстройка) — доступный всегда при открытии программы;
шаблонный — доступный при открытии конкретного шаблона;
локальный — доступный при работе только в конкретном документе.

Подключение инструмента «Записать макрос» в LibreOffice 4.1

После этого в вашем меню: Сервис → Макросы (Tools → Macros ) появится пункт меню «Записать Макрос » («Record Macro »).