Open Office Basic

Az OpenOffice Basic (korábbi nevén StarOffice Basic vagy StarBasic vagy OOoBasic ) a BASIC programozási nyelv dialektusa , amely először a StarOffice irodai csomagban jelent meg, és az OpenOffice.org programcsomaggal , valamint annak származékaival, mint például a LibreOffice ( amelyben a LibreOffice Basic néven ismert ).

Példa

Míg maga az OpenOffice Basic hasonló más BASIC nyelvjárásokhoz, például a Microsoft VBA -hoz , API -ja nagyon eltérő, amint az az alábbi makrópéldában látható. Noha van sokkal egyszerűbb módja a "bekezdésszám" dokumentumtulajdonság beszerzésének, a példa bemutatja a szöveges dokumentum egyes bekezdéseinek elérésének alapvető szekvenciális módszerét.

Sub ParaCount ' ' Megszámolja a szöveges dokumentum bekezdéseinek számát ' Dim Doc As Object , Enum As Object , TextEl As Object , Count As Long Doc = ThisComponent ' Ez egy szöveges dokumentum? Ha nem Doki . SupportsService ( "com.sun.star.text.TextDocument" ) Akkor MsgBox "Ezt a makrót szöveges dokumentumból kell futtatni" , 64 , "Hiba" Kilépés Sub End If Count = 0 ' Minden komponens ellenőrzése: bekezdés vagy táblázat? Enum = Doc . szöveget . CreateEnumeration While Enum . HasMoreElementsTextEl = Enum _ _ NextElement ' Az összetevő egy bekezdés? Ha TextEl . SupportsService ( "com.sun.star.text.Paragraph" ) Then Count = Count + 1 End If Wend 'Eredmény megjelenítése MsgBox Count , 0 , "Paragraph Count" End Sub

Lásd még

Linkek

ALAP Makrók OpenOffice.org API