Bonjour,

Mon problème est le suivant : Par l'intermédiaire d'une macro associée à un bouton, j'ouvre un nouveau document grâce à une adresse magique

'Créer un nouveau Writer Dim PropFich() AdresseDoc = "private:factory/swriter" 'Adresse magique w_doc = StarDesktop.LoadComponentFromURL(AdresseDoc, "_blank", 0, PropFich)

Ensuite j'insére des données dans ce nouveau document

'Insérer les données MonText = w_doc.Text MonCurseur = MonText.createTextCursor ' Curseur en début de document MonText.insertstring(MonCurseur, "test", false) Retour_ligne = com.sun.star.text.ControlCharacter.LINE_BREAK MonText.insertControlCharacter(MonCurseur, Retour_ligne , false)

Lorsque j'insére plusieurs lignes mon ordinateur se plante. Je suis obligée de fermer le programme (Ctrl + Alt+ Suppr).

J'ai testé en faisant une insertion par une insertion et ca marche. C'est à dire que dans ma macro avant chaque clique sur le bouton, j'ajoute manuellement le programme suivant :

MonText.insertstring(MonCurseur, "test1", false) Retour_ligne = com.sun.star.text.ControlCharacter.LINE_BREAK MonText.insertControlCharacter(MonCurseur, Retour_ligne , false)

De même, quand j'ouvre un document existant ca marche sans planter ! Ce n'est pas un problème de curseur puisque ca fonctionne dans mon document existant

Je ne vois pas d'où provient le problème ! Si quelqu'un a une idée ou a déjà rencontré ce problème, merci de m'en faire part

Cordialement

Patricia