OpenOffice базовый

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
'
' Count number of paragraphs in a text document
'
    Dim Doc As Object, Enum As Object, TextEl As Object, Count As Long
    Doc = ThisComponent
' Is this a text document?
    If Not Doc.SupportsService("com.sun.star.text.TextDocument") Then
        MsgBox "This macro must be run from a text document", 64, "Error"
        Exit Sub
    End If
    Count = 0
' Examine each component - paragraph or table?
    Enum = Doc.Text.CreateEnumeration
    While Enum.HasMoreElements
        TextEl = Enum.NextElement
' Is the component a paragraph?
        If TextEl.SupportsService("com.sun.star.text.Paragraph") Then
            Count = Count + 1
        End If
    Wend
'Display result
    MsgBox Count, 0, "Paragraph Count"
End Sub

См. также

• Сравнение офисных пакетов

Дальнейшее чтение

• Стейнберг, Джеймс (2012). Open Office Basic: Введение . Независимая издательская платформа CreateSpace. ISBN  978-1481270939 .

Внешние ссылки

• OpenOffice.org BASIC Руководство по программированию вики
• Базовая справка по LibreOffice
• Автоматизация Open Office в VB.NET