[prog] AFFICHER LE TEXTE D4UN PARAGRAPHE

Fri, 17 Feb 2006 00:46:49 -0800

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

---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

Répondre à