OpenOffice Basic

<h2 id="example">Example</h2>
<p>Although OpenOffice Basic is similar to other dialects of BASIC, such as <a href="/facts/Microsoft/nGIDDXdx">Microsoft</a>'s <a href="/facts/Visual_Basic_for_Applications/aXrmxDlI">Visual Basic for Applications</a> (VBA), the <a href="/facts/Application_programming_interface/GMlN4vUr">application programming interface</a> (API) is very different, as the example below of a <a href="/facts/Macro_(computer_science)/7abAsm1o">macro</a> illustrates. While there is a much easier way to obtain the "paragraph count" document property, the example shows the fundamental methods for accessing each paragraph in a text document, sequentially.
</p>
Sub ParaCount
'
' Count number of paragraphs in a text document
'
    Dim Doc As Object, Enum As Object, TextEl 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

<h2 id="see-also">See also</h2>
<ul><li><a href="/facts/Comparison_of_office_suites/A7rElEIk">Comparison of office suites</a></li></ul>
<h2 id="further-reading">Further reading</h2>
<ul><li>Steinberg, James (2012). <i>Open Office Basic: An Introduction</i>. CreateSpace Independent Publishing Platform. <a href="/facts/ISBN_(identifier)/15AdSPa9">ISBN</a> 978-1481270939.</li></ul>
<h2 id="external-links">External links</h2>
<ul><li><a href="http://wiki.services.openoffice.org/wiki/Documentation/BASIC_Guide">OpenOffice.org BASIC Programming Guide</a> wiki</li>
<li><a href="https://help.libreoffice.org/latest/en-US/text/sbasic/shared/main0601.html">LibreOffice Basic Help</a></li>
<li><a href="https://www.manfridayit.co.uk/blog/coding-vba-tips-snippets/using-vb-net-to-update-open-office-calc-spreadsheet/">Automating Open Office in VB.NET</a></li></ul>

OpenOffice Basic open-in-new

OpenOffice Basic