Ambiente para Programação do BrOffice possibilitando personalizar ainda mais essa poderosa suíte de escritório.

Links do site Viva o Linux de onde tirei as informações abaixo:

Conhecendo o editor
Funções intermediárias

Exemplo de códigos:

Sub InserirPonto

Dim Documento as Object
Dim Planilha as Object
Dim Tipo as Object
Documento = ThisComponent
Planilha = Documento.Sheets(0)

For I = 1 To 101
Tipo = Planilha.GetCellByPosition(1,I)
Tipo.string = Tipo.string & "."
Next

End Sub

--------------------------

Sub InserirPonto

Dim Documento as Object
Dim Planilha as Object
Dim Tipo as Object
Documento = ThisComponent
Planilha = Documento.Sheets(0)

For I = 1 To 101
Tipo = Planilha.GetCellByPosition(1,I)
Tipo.string = Tipo.string & "."
Next

End Sub

--------------------------

Sub UniaoDeCelulas

Dim Documento as Object
Dim Planilha as Object
Dim Tipo as Object
Dim Log as Object
Dim N as Integer
Documento = ThisComponent
Planilha = Documento.Sheets(0)

For I = 1 To 1005
Tipo = Planilha.GetCellByPosition(1,I)
Log = Planilha.GetCellByPosition(2,I)
Tipo.string = Tipo.string & " " & Log.string
Next

End Sub

--------------------------

Sub RemoveEspacosDIREITA

Dim Documento as Object
Dim Planilha as Object
Dim Celula as Object
Documento = ThisComponent
Planilha = Documento.Sheets(0)

For I = 1 To 1005
Celula = Planilha.GetCellByPosition(1,I)
Celula.string = RTrim(Celula.string)
Next

End Sub

--------------------------

Sub RemoveEspacoESQUERDA

Dim Documento as Object
Dim Planilha as Object
Dim Celula as Object
Documento = ThisComponent
Planilha = Documento.Sheets(0)

For I = 1 To 101
Celula = Planilha.GetCellByPosition(1,I)
Celula.string = LTrim(Celula.string)
Next

End Sub