OpenOffice Basic (anteriormente conocido como StarOffice Basic o StarBasic u OOoBasic ) es un dialecto del lenguaje de programación BASIC que se originó con la suite ofimática StarOffice y se difundió a través de OpenOffice.org y derivados como Apache OpenOffice y LibreOffice (donde se lo conoce como LibreOffice Basic ). El lenguaje es un lenguaje de programación específico de dominio que sirve específicamente a la suite de aplicaciones OpenOffice.
Aunque OpenOffice Basic es similar a otros dialectos de BASIC, como Visual Basic for Applications (VBA) de Microsoft , la interfaz de programación de aplicaciones (API) es muy diferente, como lo ilustra el siguiente ejemplo de una macro . Si bien existe una forma mucho más sencilla de obtener la propiedad de documento "número de párrafos", el ejemplo muestra los métodos fundamentales para acceder a cada párrafo de un documento de texto, de forma secuencial.
Sub ParaCount ' ' Cuenta el número de párrafos en un documento de texto ' Dim Doc As Object , Enum As Object , TextEl As Object , Count As Long Doc = ThisComponent ' ¿Es este un documento de texto? If Not Doc . SupportsService ( "com.sun.star.text.TextDocument" ) Then MsgBox "Esta macro debe ejecutarse desde un documento de texto" , 64 , "Error" Exit Sub End If Count = 0 ' Examinar cada componente: ¿párrafo o tabla? Enum = Doc . Text . CreateEnumeration While Enum . HasMoreElements TextEl = Enum . NextElement ' ¿El componente es un párrafo? If TextEl . SupportsService ( "com.sun.star.text.Paragraph" ) Then Count = Count + 1 End If Wend 'Mostrar resultado MsgBox Count , 0 , "Paragraph Count" End Sub