StarOffice Basic

From Wikipedia, the free encyclopedia
  (Redirected from StarBasic)
Jump to: navigation, search

StarOffice Basic (also known as StarBasic and OOoBasic) is a dialect of BASIC that is included with the OpenOffice.org, StarOffice and LibreOffice office suites.

Contents

[edit] Example

Although StarBasic itself is similar to other dialects of Basic, such as Microsoft's 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 (see the Talk page (should be moved here)), 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, 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

[edit] See also

[edit] External links

[edit] BASIC Macros

[edit] StarOffice/OpenOffice.org API


Personal tools
Namespaces

Variants
Actions
Navigation
Interaction
Toolbox
Print/export
Languages