Dim oCurs As Object ' com.sun.star.text.XTextViewCursor
Dim oAnnot As Object ' com.sun.star.text.textfield.Annotation Dim oDateTime As new com.sun.star.util.DateTime