Hello,
I failed  to change the text content of a selected text shape(shaded box around 
text and cursor) on a Impress 3.0 slide with

Sub testGetSelect
oDoc = ThisComponent()
oDocCtrl = oDoc.getCurrentController()
IF (not isEmpty(oDocCtrl.getSelection())) then
oSelection = oDocCtrl.getSelection()
oSel = oSelection.getByIndex(0)
xTextCursor=oSel.createTextCursor()
xTextCursor.gotoEnd(False)
oSel.insertString(xTextCursor, "Hello", false)
else
MsgBox("no selection")
end if
End Sub

What might be wrong?

Thanks a lot in advance,
Serguei

Reply via email to