xDesktop         = UNO.createDesktop()
xComponentLoader = xDesktop~XComponentLoader
url = "private:factory/swriter"
writerComponent = xComponentLoader~loadComponentFromURL(url, "_blank", 0, .UNO~noProps)
xText = writerComponent~XTextDocument~getText
xTextCursor = xText~createTextCursor
xWordCursor = xTextCursor~XWordCursor
xTextCursorProps = xTextCursor~XPropertySet
xText~setString("Ich hoffe Ich habe eine 1 in Business Programming 1")
.bsf.dialog~messageBox("Die 1 wird durch eine 3 ersetzt", , "info")
xTextCursor~gotoStart(.false)
xWordCursor~~gotoNextWord(.false)~~gotoNextWord(.false)~~gotoNextWord(.false)~~gotoNextWord(.false)~~gotoNextWord(.false) ~~gotoNextWord(.true)
xText~insertString(xWordCursor, "3 ", .true)
writerComponent~XModifiable~setModified(.false)
::requires UNO.CLS