Эта статья включает в себя список литературы , связанной литературы или внешних ссылок , но ее источники остаются неясными, поскольку в ней отсутствуют встроенные цитаты . ( Декабрь 2013 г. ) ( Узнайте, как и когда удалить этот шаблон сообщения ) |
OpenOffice Basic (ранее известный как StarOffice Basic или StarBasic или OOoBasic ) - это диалект языка программирования BASIC, который возник из офисного пакета StarOffice и распространился через OpenOffice.org и производные, такие как Apache OpenOffice и LibreOffice (где он известен как LibreOffice Basic ). Этот язык является предметно-ориентированным языком программирования, который специально обслуживает набор приложений OpenOffice.
Пример [ править ]
Хотя OpenOffice Basic похож на другие диалекты BASIC, такие как Microsoft «ы Visual Basic для приложений (VBA), то интерфейс прикладного программирования (API) , очень отличается, в качестве примера ниже в А макро иллюстрирует. Хотя существует гораздо более простой способ получить свойство документа «количество абзацев», в примере показаны основные методы последовательного доступа к каждому абзацу в текстовом документе.
Sub ParaCount ' ' Подсчитать количество абзацев в текстовом документе ' Dim Doc As Object , Enum As Object , TextEl As Object , Count As Long Doc = ThisComponent ' Это текстовый документ? Если не док . SupportsService ( "com.sun.star.text.TextDocument" ) Затем MsgBox "Этот макрос должен быть запущен из текстового документа" , 64 , "Ошибка" Exit Sub End Если Count = 0 'Изучить каждый компонент - абзац или таблицу? Enum = Док . Текст . CreateEnumeration Пока Enum . HasMoreElements TextEl = Enum . NextElement 'Является ли компонент абзацем? Если TextEl . SupportsService ( "com.sun.star.text.Paragraph" ) Then Count = Count + 1 End If Wend 'Показать результат MsgBox Count , 0 , «Счетчик абзацев» End Sub
См. Также [ править ]
Дальнейшее чтение [ править ]
- Стейнберг, Джеймс. Open Office Basic: введение . Независимая издательская платформа CreateSpace. ISBN 978-1481270939.