Open Office Basic

OpenOffice Basic (dříve známý jako StarOffice Basic nebo StarBasic nebo OOoBasic ) je dialekt programovacího jazyka BASIC , který se poprvé objevil v kancelářském balíku StarOffice a rozšířil se se sadou OpenOffice.org a také jeho deriváty, jako je LibreOffice ( ve kterém je známý jako LibreOffice Basic ).

Příklad

I když samotný OpenOffice Basic je podobný jiným dialektům BASICu, jako je Microsoft VBA , jeho API je velmi odlišné, jak je ukázáno v příkladu makra níže. I když existuje mnohem jednodušší způsob, jak získat vlastnost dokumentu „počet odstavců“, příklad ukazuje základní sekvenční metodu přístupu ke každému odstavci textového dokumentu.

Sub ParaCount ' ' Spočítat počet odstavců v textovém dokumentu ' Dim Doc As Object , Enum As Object , TextEl As Object , Count As Long Doc = ThisComponent ' Je toto textový dokument? Pokud ne Doc . SupportsService ( "com.sun.star.text.TextDocument" ) Potom MsgBox "Toto makro musí být spuštěno z textového dokumentu" , 64 , "Chyba" Exit Sub End If Count = 0 ' Zkontrolujte každou komponentu: odstavec nebo tabulku? Enum = Doc . text . CreateEnumeration While Enum . HasMoreElementsTextEl = Enum . _ NextElement ' Je komponenta odstavec? Pokud TextEl . SupportsService ( "com.sun.star.text.Paragraph" ) Then Count = Count + 1 End If Wend 'Display result MsgBox Count , 0 , "Paragraph Count" End Sub

Viz také

Odkazy

ZÁKLADNÍ makra API OpenOffice.org
 openoffice
Sloučenina
vidličky
jiný
  • Kategorie
  • Wikimedia Commons
  • wikikniha