OpenOffice Basic
![]() | This article includes a list of references, related reading, or external links, but its sources remain unclear because it lacks inline citations. (December 2013) |
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.