Pour inserer l'image, j'appelle une procedure en lui passant le chamin de
l'image et la position du curseur trouvé dont voici le code :
//on crée un curseur
lCurseur2 = :oDocument>>Text>>createTextCursorByRange(lPosition)
:oMonImage =
:oDocument>>createInstance("com.sun.star.drawing.GraphicObjectShape")
:oMonImage>>GraphicURL = "file:///"+Remplace(sCheminImage,"\","/")
//Insérer l'image à la position du curseur.
:oDocument>>Text>>insertTextContent(lCurseur2, :oMonImage, False)
Tu veux dire quoi par : redémarrer le findnext d'un curseur ?
Bruno
-----Message d'origine-----
De : Marceau GUIHARD [mailto:[EMAIL PROTECTED]
Envoyé : lundi 13 novembre 2006 19:21
À : prog@fr.openoffice.org
Objet : Re: [prog] Pb Recherche Remplace dans Writer
Une simple suggestion :
Peut-être pourrais-tu t'en tirer en faisant redémarrer le findnext d'un
curseur (qui du coup redeviendrait utile) créé un caractère après le dernier
mot trouvé AVANT d'insérer l'image à la place du mot.
Comment insère-tu l'image à la place du mot ?
Cordialement
Marceau
Bruno ABRATANSKI a écrit :
> Voilà le code que j'utilise, à noter que je ne développe pas en basic
> mais dans un langage de gestion appelé WinDev. Le code est assez
> proche. Quand la ligne commence par // c'est pour les commentaires
> (REM)
>
> lPosTrouve est un objet OLE dynamique
>
> //Créer un objet JeCherche qui contiendra tous les paramètres
> nécessaires à ce remplacement
> :oJeCherche=:oDocument>>createSearchDescriptor()
>
> //Definir la balise à rechercher dans le document OpenOffice Word
> :oJeCherche>>SearchString=pMotARechercher
>
> //Ne rechercher que des mots
> :oJeCherche>>SearchWords=Vrai
>
> lPosTrouve = :oDocument>>findFirst(:oJeCherche)
>
> boucle
> si lPosTrouve = Null alors sortir
> lPosTrouve>>String=""
> lPosTrouve = :oDocument>>findNext(lPosTrouve>>End, :oJeCherche) FIN
>
>
> En fait Je recherche des mots et je les remplace par des valeurs en
> utilisant ReplaceAll sauf que là je veux mettre une image à la place du
mot.
> Donc le chercher me donne la position, j'efface le mot trouvé et j'insere
> l'image. Cela marche bien pour UN seul mot si je ne fais pas le FindNext
> mais si l'utilisateur a placé le mot plusieurs fois je suis coincé sans la
> boucle.
>
>
> En tout cas merci pour les réponses déjà apporté.
>
> Bruno
>
> -----Message d'origine-----
> De : Marceau GUIHARD [mailto:[EMAIL PROTECTED]
> Envoyé : lundi 13 novembre 2006 16:11
> À : prog@fr.openoffice.org
> Objet : Re: [prog] Pb Recherche Remplace dans Writer
>
> Re :
> Petit complément pour le test :
> if isNull(Postrouve)
> marchera si tu veux un booléen
>
> Cordialement
>
> Marceau
>
> Bruno ABRATANSKI a écrit :
>> Mettre un false à la place de Null ?
>>
>> Ça empeche pas l'erreur lors du findnext non ?
>>
>> -----Message d'origine-----
>> De : Manuel NAUDIN [mailto:[EMAIL PROTECTED] Envoyé : lundi 13
>> novembre 2006 12:04 À : prog@fr.openoffice.org Objet : Re: [prog] Pb
>> Recherche Remplace dans Writer
>>
>> Le 13/11/06, Bruno ABRATANSKI <[EMAIL PROTECTED]> a écrit :
>>>
>>> Bonjour,
>>>
>> Bonjour,
>>
>>
>>
>>> Pb lors d'un recherche remplace je fais :
>>>
>>> postrouve = mondocument.findfirst(jecherche) boucle
>>> si postrouve = null sortir
>>> curseur = mondocument.text.cretaetextcursorbyrange(postrouve)
>>> curseur.string = "£"
>>>
>>> postrouve = mondocument.findnext(postrouve,jecherche)
>>> fin
>>>
>>> Lors du findnext j'ai une erreur comme quoi le type de la variable
>>> postrouve est incompatible alors que le findfirst a bien fonctionné ??
>>>
>>>
>>>
>> moi j'aurais fait :
>> <code>
>> postrouve = mondocument.findfirst(jecherche) boucle
>> si postrouve = false sortir
>> curseur = mondocument.text.cretaetextcursorbyrange(postrouve)
>> curseur.string = "£"
>>
>> postrouve = mondocument.findnext(postrouve, ,jecherche) fin
>> </code>
>>
>>> *Bruno ABRATANSKI**
>>>
>>> *
>>>
>>>
>> Manuel
>>
>> ---------------------------------------------------------------------
>> 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]
>
> ---------------------------------------------------------------------
> 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]
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
