BOOonjOOour, j'ai quelque souci avec la version 2.0, je n'arrive plus à afficher le texte de mon paragraphe ceci fonctionnait parfaitement en V1 :

Sub AfficherTexteSelection rem -Afficher le contenu du 15ème paragraphe dans un message------------ Dim document As Object Dim monCurseur As Object Dim MonTexte As Object Dim i As Integer rem ---------------------------------------------------------------------- document = ThisComponent MonTexte = document.Text monCurseur = MonTexte.createTextCursor for i = 1 to 14 monCurseur.gotoNextParagraph(False) 'si on initialise à true on sélectionnera, donc on affichera aussi le contenu de
ces 14 paragraphes next i monCurseur.gotoNextParagraph(True) '15ème paragraphe MsgBox monCurseur.String End Sub

maintenant ma chaîne est vide.

Comment faire en V2???

MERCI à vous

Catherine