Bonjour chere Catherine , bonjour Laurent
Ci-joint une autre possibilité sans ajouter un retour chariot
Dim leTexte As Object , TextElement As Object
Dim i As Integer
leTexte = ThisComponent.Text.createEnumeration
While leTexte.hasMoreElements
TextElement = leTexte.nextElement
If TextElement.supportsService("com.sun.star.text.Paragraph")Then
i = i + 1
If I = 15 Then Print TextElement.String
End if
Wend
Bonne journée
michel
-----Message d'origine-----
De : Laurent Godard [mailto:[EMAIL PROTECTED]
Envoyé : vendredi 17 février 2006 09:55
À : [email protected]
Objet : Re: [prog] AFFICHER LE TEXTE D4UN PARAGRAPHE
Bonjour Catheroine
> 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
...
> End Sub
>
> maintenant ma chaîne est vide.
>
> Comment faire en V2???
>
je viens de tester
ajoute un retour chariot a la fin de ton 15eme paragraphe
(en fait ajoute un 16 eme paragraphe)
En fait, le gotoNextParagrap ne peut etre defini si le document s'arrete
sur le paragraphe 15
Cordialement
Laurent
--
Laurent Godard <[EMAIL PROTECTED]> - Ingénierie OpenOffice.org Indesko
>> http://www.indesko.com Nuxeo CPS >> http://www.nuxeo.com -
http://www.cps-project.org Livre "Programmation OpenOffice.org",
Eyrolles 2004
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
