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 , "Ошибка" Выход Sub End If Count = 0 'Проверить каждый компонент - абзац или таблицу? Перечисление = Док . Текст . CreateEnumeration Пока Enum . HasMoreElements TextEl = Enum . NextElement ' Является ли компонент абзацем? Если ТекстЭл . SupportsService ( "com.sun.star.text.Paragraph" ) then Count = Count + 1 End If Wend 'Показать результат MsgBox Count , 0 , "Paragraph Count" End Sub