sub Main
rem ----------------------------------------------------------------------
rem define variables
dim document   as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

rem ----------------------------------------------------------------------
rem dispatcher.executeDispatch(document, ".uno:InsertAnnotation", "", 0, Array())


end sub

com.sun.star.lang.XMultiServiceFactory xServiceMan = (com.sun.star.lang.XMultiServiceFactory)UnoRuntime.queryInterface( com.sun.star.lang.XMultiServiceFactory.class, xTextDocument);
Object xAnnotation = xServiceMan.createInstance("com.sun.star.text.TextField.Annotation");
com.sun.star.beans.XPropertySet xPropSet = (com.sun.star.beans.XPropertySet)UnoRuntime.queryInterface( com.sun.star.beans.XPropertySet.class, xAnnotation );
xPropSet.setPropertyValue( "Author", "Programm" );
xPropSet.setPropertyValue( "Content", "Test annotation" );
                    
com.sun.star.text.XTextContent xContent = (com.sun.star.text.XTextContent)UnoRuntime.queryInterface(com.sun.star.text.XTextContent.class, xAnnotation);
xText.insertTextContent(xWordCursor.getStart(), xContent, false);

        PropertyValue[] properties = new PropertyValue[2];
        properties[0] = new PropertyValue();
        properties[0].Name = "Hidden";
        properties[0].Value = true; // put true to hide OpenOffice window
        properties[1] = new PropertyValue();
        properties[1].Name = "CharacterSet";
        properties[1].Value = "Unicode (UTF-8)";

        XComponent document = null;
        try {
            document = xComponentLoader.loadComponentFromURL(fileName, "_default", 0, properties);
        } catch (IOException e) {
            e.printStackTrace();
        } catch (IllegalArgumentException e) {
            e.printStackTrace();
        }