CreateSpace Independent Publishing Platform. It is available in Writer Calc and Base.It is used to write small programs known as macros with each macro performing a different task such as counting. SupportsService ( '.Paragraph' ) Then Count = Count + 1 End If Wend 'Display result MsgBox Count, 0, 'Paragraph Count' End Sub See also NextElement ' Is the component a paragraph? If TextEl. SupportsService ( '.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. Use the Macro Selector dialog to run macros.

Select the macro in the Macro name list (right hand side).

Select the library and module in the Library list (left hand side). 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. A typical method to run a macro is as follows: Use Tools > Macros > Run Macro to open the Macro Selector dialog).

Openoffice writer macro tutorial