Bonjour à tous,

J'ai remarqué quelque chose de bizarre lors de l'affectation du texte d'un curseur à une chaîne puis la ré-affectation de cette chaine au même texte.

Considérons un document Writer avec ces deux lignes :

Texte d'exemple¶ sans saut de ligne¶

(Les pieds de mouche sont là pour info seulement.)

et cette macro :

REM ***** BASIC *****

Sub GenerationSpontaneeLF Dim MonDocument as Object Dim MonTexte as Object Dim CurseurVisible As Object Dim MonCurseur As Object Dim Chaine as String

MonDocument= ThisComponent() CurseurVisible = MonDocument.currentcontroller.ViewCursor MonTexte = CurseurVisible.text MonCurseur = MonTexte.createTextCursorByRange(CurseurVisible)

Chaine = MonCurseur.string print len(chaine)

'Traitements de la chaîne

MonCurseur.String = Chaine print len(MonCurseur.String)

' Même chose avec MonTexte.insertString( MonCurseur, chaine, True )

MonDocument.CurrentController.Select(MonCurseur)

End Sub

Sélectionons les deux paragraphes du document et appliquons leur la macro. Un saut de ligne est apparu après la marque de paragraphe.

Je ne comprends pas du tout de quel chapeau ce saut de ligne peut sortir. Avez-vous une idée ?

Et cet autre comportement étrange face à une liste numérotée :

Considérons un document Writer avec une ligne numérotée :

1. Texte d'exemple¶

Attention, la numérotation est bien obtenue par Format - Puces et Numérotation... - Type de numérotation. Le pied de mouche est là pour info seulement.

et cette macro :

Sub NumerotationGenante Dim MonDocument as Object Dim MonTexte as Object Dim CurseurVisible As Object Dim MonCurseur As Object Dim Chaine as String

MonDocument= ThisComponent() CurseurVisible = MonDocument.currentcontroller.ViewCursor MonTexte = CurseurVisible.text MonCurseur = MonTexte.createTextCursorByRange(CurseurVisible)

Chaine = MonCurseur.string print chaine

End Sub

Sélectionons la ligne et appliquons lui la macro. La chaîne de a récupéré la numérotation !

Je n'ai pas trouvé de posts similaires dans www.oooforum.org ni dans le issue tracker.

Bonne journée, Erwan