OpenOffice.org BASIC Guide.pdf - OpenOffice.org wiki

More Than Just Text 117
Dim TextField As Object
Dim I As Integer
Doc = StarDesktop.CurrentComponent
TextFieldEnum = Doc.getTextFields.createEnumeration
While TextFieldEnum.hasMoreElements()
TextField = TextFieldEnum.nextElement()
If TextField.supportsService("com.sun.star.text.textfield.DateTime")
Then
MsgBox "Date/time"
ElseIf
TextField.supportsService("com.sun.star.text.textfield.Annotation")
Then
MsgBox "Annotation"
Else
MsgBox "unknown"
End If
Wend
The starting point for establishing the text fields present is the TextFields list of the
document object. The example creates an Enumeration object on the basis of this list, with
which all text fields can be queried in turn in a loop. The text fields found are checked for
the service supported using the supportsService method. If the field proves to be a
date/time field or an annotation, then the corresponding field type is displayed in an
information box. If on the other hand, the example encounters another field, then it displays
the information “unknown”.
Below, you will find a list of the most important text fields and their associated properties.
A complete list of all text fields is provided in the API reference in the
com.sun.star.text.textfield module. (When listing the service name of a text field, uppercase
and lowercase characters should be used in OpenOffice.org Basic, as in the previous
example.)