Jump to content

OpenOffice Basic

From Wikipedia, the free encyclopedia
This is an old revision of this page, as edited by 194.39.218.10 (talk) at 17:43, 11 October 2019 (added sample code). The present address (URL) is a permanent link to this revision, which may differ significantly from the current revision.

OpenOffice Basic (formerly known as StarOffice Basic or StarBasic or OOoBasic) is a dialect of the programming language BASIC that originated with the StarOffice office suite and spread through OpenOffice.org and derivatives such as LibreOffice (where it is known as LibreOffice Basic). The language is a domain-specific programming language which specifically serves the OpenOffice application suite.

Example

Although OpenOffice Basic is similar to other dialects of BASIC, such as Microsoft's Visual Basic for Applications (VBA), the application programming interface (API) is very different, as the example below of a macro illustrates. While there is a much easier way to obtain the "paragraph count" document property, the example shows the fundamental methods for accessing each paragraph in a text document, sequentially.

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
N3q8ryccAAT4UGfdQBAA AAAA A 
A AnAAA A AAA A 
AOXwMjQxKsj1wp1H4FAA 
6VFd7Z1XqRS3V4q67k5xdHEAB 
Pxs28MoL0wRE12NP8KU2rU3F7dHyG/
 
wALd1DQhQbmr/Ol7zGnxXk5rH 
y7W+vpK0hdVIEgbCdVxqECvzTuCeEm
P 
LQ1VxoiIIxl1xif5sWSSWJ1RK 
Op8lQ2bX1E6Ql33S0UY16egsCvMWws
Z 
32cMZoryFuKcq2j8f9AfrhZmG4 
/nCuMwfumva3WR19jNPt9zPv8oER6+
 
C346mUpXVThGsh15NS640fO2Kd17Ux
 
ykCxFlbcZcK2nJG32d3tSvtaRnZmkL
iia7npFx
 
SNDl9EygFK7nQMGvpsOnIxxiWK/nU
ZA 
k26Mw+91um5DrhckQLpsQ3K2L8wW/
H 
3qNrzyS+U9qRjHzs/z0YMGn7TFtaac
GH 
jZ8Ci6sRLo4HDhKUiRmoKteqJpY6Uf
5sBniO
GraKr0D
 
i9cND2UPoWLlvsXLplcQD2JcJ+C+b
gT8Js/JCL+m9BZVYKQm01LUeJtjum
6jm
PrLDo6x+ 
HpgEaEOQ82FHclEUPGrZZ2etZTnpsu
pM0dZthGBZlAzQRk4ZoZo75Pe3EIto
Gg8RLTnhO 
YzAHysOQypOHgKyQGnVlazBccUAAvJ
WhRB3RiJeO6gN469zEUIogDO6f0iO
D/0Q76Q5MQ 
oZ11g7p2eOw4V3GPAtTJDzeMEt2CeH
RTM8h5TBDD3FXLidPXy0xfqAAbjw
HfXEKwJksmt 
4oIVkUHTQimKWamAIIvUnXFPt3xdhG
dXRg1N+s3X4InLdyzNJ+8LgIoT/
8TV+g825yar3 
xCPn2m2oW1/mnvgbT5CsYJ03CBlu6M
eyWSlwnXefiBukrp/GUpuTB8zJ
gJ5LMTUoxn4b8 
vh3aBBYaZeWy3sQkAdWVfUaWYLCsoG
vONojhL7q+NAxmZJHAtsXs4dK
3WDEI00vrxFt6u 
GACLs+xOdm4+puH3zug/n9F4AJffbM
Sh9P1BaxYwSNgsq99iC09JqJ
iWeYrKgrNhr/7y/ 
GMx3aOSj/zqyLdG/8F60saasXwb5di
KkUQTUzuiRVZoULkEwEKnNM
hsmG2m2IvMWjgB8p 
kFuDnJP0XYjC9U8FQ12PPjEg5vxQ16
b0leCe3k1Fb9kGAtTh7EBW
AcRsScBWgr8us59XX 
6u7V5zlxIALfdMvAri5ByoPVuEQ/mq
/wlrhPofm/jWqUGEcRr6a
yobPKKvqxZfmxKt1g8 
c0LcFlPETsiSuR8ZAGjFfjmH0mGiyu
VMSIg+WlR3crsiAD8a1U
qF1fJr7Hv57cUMh7DlD 
qAKWM5WAvWd/jJWMIQPgk6Jt3IGv6a
mdyRYh4rjIPHKTmnU2J
WRvo+qpjSwY+IfjVTPKo 
g1j67i6GPgo1kuujZAA7Iv314vIq4A
NbAHZeUqxYqek3sDN5
PS05tUi+JeP7gvDmVqW+N 
FJ+cvC4Wo9TFvTOdadQzAH9Phk9gzQ
hyYdBx0x65ETeQBes
3kTdroOxr9m1hCoKU2o12t 
yw8VMczLYabjy5BnLmBqNbwQUi9o8x
zRl9srYuHEKn0c2Z
uegHLHLtREr+R63zmtJ3p+J 
1saplXxCn57dbT3r4jeV4nqPGurL6J
OUEuDv148671DOU
azqPncc3O0nH11LQzIUtpH86 
jCXLfmrK876DvY3ehglMFkEuRQq4Sg
BDdwykIknuru25
O2fFvjV3vNUYDou+KfiPjgVn7 
6P/OF9F+G7ZoXBQtKH8L6OOKai5bX3
ZbIc4TLuSipIf
kVY+aG9q7PD8eC0r4OXw1pCvvP 
cTOWaoGUGSj6SrU+NizoET2vtpodXP
cTYwT274PrRQ
uQHZUVTwjCvdeziny/9GJqjWdCy 
MKr8Ey3ORC+nY5nkmCkbIs+EP+fqFc
m6DDx7OWw2a
NbwRBRtS1K78eUgpVJL0WyHlVLHE 
kKNKR/7CsKieb1ihhXfH0pRqZSi/e7
ORPe9OIbRv
7IoLTD8GKlz+ou/FsPEOYCFwHrZNk 
EllOoP7hzzeEf5d+4SfzvB/ZYgqUZt
Q8xYP9LcJ
ByUTXQWufpYcX+9SihPuBoz3tv7YnB
 
I8GAnLY1MkWyOO6A3XqLO+vq47tfuE
WIhxU30e
siL82L3VE9Qmnp+Wh+BX74OWUW3kOL
4 
9LBtaBYp6scM1hGv4RaGqzgspAXu8S
Wozw1ma
nqRjcOsqrEAbZmNGMM+yAcOxfucOfQ
VN 
cWh41i0Cy5icbISKny9//kLmfBj3Pb
k7qSQz
kl974yAbgOnADRSO34ztyUzSw5w/Id
xB7 
+/2BeYvN341d1THN19YpWWkCw2/G6X
mvYUS
UNmbIyBOSfdkMbKib5oyMVtWsCvwYg
K451 
JW8RNxoKcWLqopebze3lxpKvmCeCSN
GALp
IcUceGldl95qi6re2qPSGpr7JPtBjG
1puHi 
KELBz9gMwyC1b9Ar5IItuiuIvLKNp/
TBo
3AbwQ7Yi5D7Dzq+S60wnbhqFIF+Hz9
QC+3MG 
qpT9V+PDXwA2WTAwZ3LvWImC+oxZMm
kC
xgkqaXEJZzABURR2MxxMSqASs1/MUs
oVaZV9g 
89+UucucVAZ8La3+1CQb/5YVMahgmD
R
8Zw4nWCNexOMA9RjHkrkbRkIX2Jx45
eW8SExvq 
dLZCc2iA5265d1RIzNqk/OyOcOPggi
EwZOpiL+t1o1J1IA1J2anBX/Z7GBbl
W2eUI7X3A 
lTcttP8vcWE0OUMCLNfN4hnqZ7zpv
E1i43/+k9YCn4adcs/0WaZ0TXdDQcq
uQIdM83Wj+ 
M1lA6rnvRnIYxED1r6FWcXwx2UVJ
mf11yJR9BPsOIqIoRyguv5LWyFanxc
A5JkIZFcG+k 
gUVrF9Tbyly7nsbtusUuZy+wFtE
swBI+ORHf668mps1ZHR6di4z9HMRQ1
WHW2ztWlaiGb 
G5y0SYxXWqCL/gI/0xoekSaQdm
TRap0DfOpgmNBfUueF0YtNQGvzqRd4
+Uye3daeG6/FT 
Vxe4uPdn7V0P6/ZoLL6kO14eI
21YnqbPhh6JnmsqKyxR8MDeacjoWId
GY8t6rtHqViclm 
niZ/wDr8en+TnuIgtzkSxSVQ
q+w55ksOXJ+/RpL9oEJBDhRb1ObvJ2
JoE6Q7tKOYZXJrR 
+mnM5EXASjd3813pjSo11bS
8KOfNU39k+SaO9gHBSjXwWK1h2KOEK
DcIwKFfI0haFFaaM 
aubsCaHwPkeAxoparqhVL9
sS5QzPbU1MeyLvTw7Ku//BBDmxOuNs
k6fn1v6aq9hWp/k9a 
CzjNU9MioVvDKZpaQcgA2
XXmzKKv8NG0AgwDvyHQongRuNP7v+Z
PKE0380efci2RIqukY 
w2xxjnBEdvYfh/ojZUkm
xk0AxgAc60H4ehwtvKcXfCP+QquraC
paEMoEEKvj15hZNa/45 
UJ5GIdQVQGb8d24QTAh
zuWN6rNE4BQ716gKH73aMld3Ulr6Dt
kupAuH4SDmo6GmUCfIrM 
gMIR+noUIiLhr1HqP9
fR61CGM2+Bp1ke3iucsXuQnqbUH5fW
qzK6JnIyFMSjajPCvDX7a 
8Q8CwizXz1vBCQ1cV
mkN5JWobHJYEkMbDmxCBeG/ogdsAqU
nc3quPooCgTvqCHVuNMowl 
im4/Y4qv/Pl/gwCj
nfK/YRsrITETSlU1X6J7Bp5/KLU7vN
OdIMhHnimFd+eit3+mDuMRu 
GDquVuWc/Wk8yYe
CjWzNVwOvO/t/RJpS+JYbPhr3A9dfQ
Iexbp+mKdaRaNKWNgtsXjccG 
gAoIkj7+nY4Z1L
vt093u594/V9IEmfcxfCYq0pX9u+Ws
3ZKGHrBAxQs+E0v+aAeQENDLD 
Fk4Sj/AOVqv7f
D5CpSwcs/X6wOvWq7xWxTUO7PX41AT
X38leMJoh2fMV+HEoB2KjzXX6t 
+srKsaSOdzli
S8deoa+KSuK0nKxrBnv1oM5FQVsgLz
k1XOKa8OYIzLjYFkTKBGBo1aDjB 
m+tNiRwuue8
F+S7boqpT2Jj6kfO7G0C84RrFBXHXh
Jg4YptcUyanahqX8HttmN4pkxdVf 
fgzN0RxRVh
zSSC0zkb4k0NqR4ypzWYpF9qjPkhpD
AJ3//qymsBFQuJ3tQvyy92ZWnywGJ 
vURdCAGKr
0h0YdkKOepWQk38vcLvZLedSx9mQlE
0inQsp2grtWYQ97XSvnYvQPDjm3c+G
 9xuUB+m7
XaoPlO++6R27VDqc0iou+MCvBAbkaB
n5eRmz9eQ5AL0JoG1Hh8mLa+SLb+kp
n OygeX0a
Mh+Pv0kp8I21GwSLuhpV2RP0poHewM
pHaXq4Wp0SRSd9CRxsvr1gbVGlnM8/
n9 KgfOdS
zyFTsedbvr+G9BjpSkM9EWgbxGahcN
+ysJYIgpCPXRy94fDPQRHAwoFryIcC
KyX 4kMRD
XK59GdIjPLRxE71awgWYRVZ5J4/BkO
Gq22PdL6tzRMLa+bU5HxSJq6U9hNNJ
XZ42 wrMr
nqLhm3MjDwHyJbcMO6fz9t9wYiXk//
uOhnkaUej5Rlx2hGJjD5HddCO4fuvK
jOvLT ph9
qpucl9UDN9GREGJWDS8Xsss08x4GA1
vEAHVCiBfrnL0mSb3sCq1lEI3SbqF8
2LjUJztf
dIW7iWK2F87lPdXGMrMu9ZPy1U/Ddw
RjxsrjIFb5zixvuU3tAXg8r6cZicar
Nc4X5j 2b
UkmbhnZfwjdpTGZ96Xlwz7LsNzRu30
5XaEh5yYayHdN5bjn63LFXutdz8h7g
D/iL8wz d
f2j83jeKBQPEdQSKI 
COySbn1mhD+FNoQhDwn/UIgh3AJAj0
bvEzERYhOLCQhgF1lg8mf 
o9ppFxoD4eVSDp6mb3 
7GanoFaNYYtHLNMh10SsQEtrO20/bE
pyo/2z8YBqpmrJmD6SPN 
r7RLBJSSo3/P39kkfxO 
6KY6+R6bDgFAQmHECtHPZX7FyxmJvt
v5k/v4t+v8/+dO9w45g 
h4fA31pxrtZwKrE+uWpA 
E/rhX0U/aJG9MF+AwcTWoSeAcqqqnn
CxTLT9OTiigcXcPWdH 
Mj69tB+CWMP1TEBdHkuX+ 
eui4ijMqN7CEV22BgasWFVpDjGI2Iu
9mEcWjebDlO8U2HoR 
xhGy0ilWFRJp28bbtfQpAA 
n81lPRXjIFehxIQrSIsNGsQtq+bsrq
u5JlexEH45PnjjzJ
uVAz5C9rPWchlNa57szGYSJ 
D688PLWsf+WiBCXvmhV9b60qJoBxE/
lIydkx0XBgScMGE
GovsG0ckjRkg2ochuo4z3kEz 
1kUiOgoT8KeLAvvyKUuFjjH8KXljr3
+WDIoB0Nzuq+ah
50wz9lJpIr7P3kdn6u2wUKQqg 
2hPfXqsr0Fnowe0YLA+dSh+XpsjR25
PS8wyRiyYjB9R
jF2b5ShLdgZr4QL07hNqLQdMQ9 
moF6zrNMWeLvwHWd/ffq3SIK2J7Zgq
4vlkHh31blXq
aMfIwBfge+b74YxWSWodnTykKTA 
D6jkoXsoJgdnsSz3V5D/0BVz5D5Pqn
7P0SIxn3q4y
l0M06rgoOIy/SqE6qkcoC4Pi1Bla 
w12suZI8YJfZ6ihoB2UlZnIrzedgUu
f9hxfWfuSR
ZMd6iXwrifekjDVYuE/LFii3dHOmu 
Xb2N4X1Zyh9mxfAi0XWT5hJZqoF9AO
kF0Xyw/tu
W4BQpUZPQn223xcGj9ABCXAABwsBAA
 
EkBvEHAQpTB2WsKc6iGxSMDGoKAfnM
BT4AAA

See also

Further reading

  • Steinberg, James. Open Office Basic: An Introduction. CreateSpace Independent Publishing Platform. ISBN 978-1481270939.