xDesktop=uno.createDesktop()
xcl=xDesktop~XComponentLoader
uri="private:factory/swriter"

doc=xcl~loadComponentFromURL(uri,"_blank",0,.uno~noProps)

xText=doc~XTextDocument~getText
Text1 = "Diese Datei zeigt Ihnen das heutige Datum:"
xText~setString(Text1)

xTextCursor=xText~createTextCursor
xParaProps=xTextCursor~XParagraphCursor~XPropertySet
ctlChars=.uno_constants~new("com.sun.star.text.ControlCharacter")
paraBreak=ctlChars~paragraph_break
xTextCursor~gotoEnd(.false)

i = 5
do i
xText~insertControlCharacter(xTextCursor, paraBreak, .false)
end




xWordCursor=xTextCursor~XWordCursor
xWordCursor~gotoNextWord(.false)
blue=box("int", "00 00 FF"x ~c2d)
xWordCursor~XPropertySet~setPropertyValue("CharColor", blue)
xText~insertString(xTextCursor, date(),.false)
xTextCursor~gotoEnd(.false)

i=3
do i
xText~insertControlCharacter(xTextCursor, paraBreak, .false)
end

green=box("int", "00 FF 00"x ~c2d)
xWordCursor~XPropertySet~setPropertyValue("CharColor", green)

Text2 = "Diese Datei beendet sich selbst nach 10 Sekunden!"
xText~insertString(xTextCursor, Text2, .false)



doc~XModifiable~setModified(.false)
call SysSleep 10
doc~XCloseable~close(.false)

::requires UNO.CLS