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:lgod...@indesko.com]
Envoyé : vendredi 17 février 2006 09:55
À : pr...@fr.openoffice.org
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
http://www.cps-project.org Livre "Programmation OpenOffice.org",
Eyrolles 2004
7 messages in org.openoffice.fr.prog[prog] RE : [prog] AFFICHER LE TEXTE ...
