Åbn Office Basic

OpenOffice Basic (tidligere kendt som StarOffice Basic eller StarBasic eller OOoBasic ) er en dialekt af BASIC - programmeringssproget , der først dukkede op i StarOffice - kontorpakken og blev udbredt med OpenOffice.org-pakken såvel som afledte af den, såsom LibreOffice ( hvor det er kendt som LibreOffice Basic ).

Eksempel

Mens OpenOffice Basic selv ligner andre BASIC-dialekter såsom Microsoft VBA , er dens API meget anderledes, som vist i makroeksemplet nedenfor. Selvom der er en meget nemmere måde at få dokumentegenskaben "afsnittælling", viser eksemplet den grundlæggende sekventielle metode til at få adgang til hvert afsnit i et tekstdokument.

Sub ParaCount ' ' Tæl antallet af afsnit i tekstdokumentet ' Dim Doc As Object , Enum As Object , TextEl As Object , Count As Long Doc = ThisComponent ' Er dette et tekstdokument? Hvis ikke Doc . SupportsService ( "com.sun.star.text.TextDocument" ) Derefter MsgBox "Denne makro skal køres fra et tekstdokument" , 64 , "Fejl" Exit Sub End If Count = 0 ' Kontroller hver komponent: afsnit eller tabel? Enum = Doc . tekst . CreateEnumeration Mens Enum . HasMoreElementsTextEl = Enum . _ NextElement ' Er komponenten et afsnit? Hvis TextEl . SupportsService ( "com.sun.star.text.Paragraph" ) Count = Count + 1 End If Wend 'Vis resultat MsgBox Count , 0 , "Paragraph Count" End Sub

Se også

Links

GRUNDLÆGGENDE makroer OpenOffice.org API