hello,
pourquoi n'utilises-tu pas un TextGraphicObject comme ceci par exemple :

Sub InsererImage()
oText = ThisComponent.Text
Curs = oText.createTextCursor
Curs.gotoStart(False)...