lappend auto_path .
package require tcluno_scalc

set desktop [tcluno_soffice::initDesktop]

set ::structArray(handle0) [$desktop tcluno::createUnoSequence Any]
set ::structArray(handle1) [$desktop tcluno::createUnoStructHelper com.sun.star.beans.PropertyValue {FilterName -1 all 0}]
$desktop tcluno::appendUnoSequence $::structArray(handle0) $::structArray(handle1)
set swriter [$desktop loadComponentFromURL private:factory/swriter _blank 0 $::structArray(handle0)]
set text [$swriter getText ]
$text setString "Hallo Arnulf,\nDein Name wird gleich verschwinden.\n\nGruß Wolfgang\n"
set textEnd [$text getEnd ]
for {set i 5} {$i > 0} {incr i -1} {
	$textEnd setString "..., noch $i Sekunde[expr {$i > 1 ? "n" : ""}]"
	after 1000
}
$textEnd setString "..., jetzt steht mein Name da"
set my_type [list TypeClass com.sun.star.util.XReplaceable INTERFACE]
set paramList [$text tcluno::getTclunoType [list TypeClass com.sun.star.util.XReplaceable INTERFACE]]
set xReplaceable [$swriter queryInterface $paramList]
set replaceDesc [$xReplaceable createReplaceDescriptor]
$replaceDesc setSearchString Arnulf
$replaceDesc setReplaceString Wolfgang
set obj14 [$xReplaceable replaceAll $replaceDesc]

#	need this for flushing
after 10