Deschide Office Basic
OpenOffice Basic (cunoscut anterior ca StarOffice Basic sau StarBasic sau OOoBasic ) este un dialect al limbajului de programare BASIC care a apărut pentru prima dată în suita de birou StarOffice și s-a răspândit cu suita OpenOffice.org , precum și cu derivate ale acesteia, cum ar fi LibreOffice ( în care este cunoscut ca LibreOffice Basic ).
Exemplu
În timp ce OpenOffice Basic în sine este similar cu alte dialecte BASIC, cum ar fi Microsoft VBA , API -ul său este foarte diferit, așa cum se arată în exemplul macro de mai jos. Deși există o modalitate mult mai ușoară de a obține proprietatea documentului „număr de paragrafe”, exemplul arată metoda secvenţială de bază de accesare a fiecărui paragraf al unui document text.
Sub ParaCount
'
' Numără numărul de paragrafe din documentul text
'
Dim Doc As Object , Enum As Object , TextEl As Object , Count As Long
Doc = ThisComponent
' Este acesta un document text?
Dacă nu Doc . SupportsService ( "com.sun.star.text.TextDocument" ) Apoi
MsgBox "Această macrocomandă trebuie rulată dintr-un document text" , 64 , "Eroare"
Exit Sub
End If
Count = 0
' Verificați fiecare componentă: paragraf sau tabel?
Enum = Doc . text . CreateEnumeration
While Enum . HasMoreElementsTextEl
= Enum . _ NextElement ' Este componenta un paragraf? Dacă TextEl . SupportsService ( "com.sun.star.text.Paragraph" ) Then Count = Count + 1 End If Wend 'Afișează rezultatul MsgBox Count , 0 , "Paragraph Count" End Sub
Vezi și
Link -uri
Macro-uri de bază
API-ul OpenOffice.org
| libreoffice |
|---|
| Aplicații | | |
|---|
| Tehnologie |
|
|---|
| Organizații |
|
|---|
- Categorie
- Wikimedia Commons
- wikibook
|
| Dialectele limbajului de programare BASIC |
|---|
| Clasic |
|
|---|
| tranzitorie |
|
|---|
| procedural |
|
|---|
| Obiect |
|
|---|
| Mobil |
|
|---|
| Consolă |
|
|---|