/* InsertAnnotation.rex */
/* Macro */

/* get the script context, the XModel and the XTextDocument interface */
xScriptContext=uno.getScriptContext()
oDoc=xScriptContext~getDocument
xTextDoc=oDoc~XTextDocument
xText=xTextDoc~getText()

/* get the XMultiServiceFactory needed for textfields */
xServiceManager=oDoc~XMultiServiceFactory

/* create an annotation */
annotation=xServiceManager~createInstance("com.sun.star.text.TextField.Annotation")
annotationTC=annotation~XTextContent()

/* set author and content of the annotation */
annotationPS=annotation~XPropertySet()
annotationPS~setPropertyValue("Author", "ooRexx")
annotationPS~setPropertyValue("Content", "I was here.")

/* insert annotation at cursor position */
xCursor=xTextDoc~getText~createTextCursor()
xText~insertTextContent(xCursor, annotationTC, .false)

::requires UNO.CLS