Merci j'ai corrigé comme ceci et ca fonctionne ...
Function RechercherRemplacerToutPressePapier(ByVal sMots As String, ByVal
sRespecterCasse As Boolean, ByVal sMotEntier As Boolean) As Long
Dim oResultat As Object
Dim oDispatcherLocal As Object
Dim oIndex As Integer
Dim oControleur As Object
Dim oTexteLu As Object
Dim Arguments(0) As Object
Arguments(0) = MakePropertyValue("Hidden", False)
sMots = ConvertToAllowsString(sMots)
oSel = oDocument.CurrentController.frame
oDispatcherLocal =
CreateUnoService("com.sun.star.frame.DispatchHelper")
oMonTexte = oDocument.getText()
oControleur = oDocument.CurrentController
oJeCherche = oDocument.createSearchDescriptor
With oJeCherche
'Definir la balise à rechercher dans le document OpenOffice Word
.SearchString = sMots
'Distinguer les majuscules des minuscules dans la recherche
.SearchCaseSensitive = sRespecterCasse
'Ne rechercher que des mots
.SearchWords = sMotEntier
'Rechercher à reculons
.SearchBackwards = False
'Faire une recherche avec la méthode des expressions régulières
.SearchRegularExpression = True
'Rechercher des paragraphes dun style donné par SearchString
.SearchStyles = False
'Rechercher un texte similaire au texte cherché
.SearchSimilarity = False
End With
oResultat = oDocument.findAll(oJeCherche)
For oIndex = 1 To oResultat.getCount()
' sélectionner la chaine de recherche
oTexteLu = oResultat.getByIndex(oIndex - 1).Text
oMonCurseur =
oTexteLu.createTextCursorByRange(oResultat.getByIndex(oIndex - 1))
oControleur.select(oMonCurseur)
'Remplacement par le contenu du presse papier
oDispatcherLocal.executeDispatch(oSel, ".uno:Paste", "", 0,
Arguments)
Next
RechercherRemplacerToutPressePapier = oResultat.getCount()
End Function
Merci a tous pour votre aide !
-----Message d'origine-----
De : Laurent Godard [mailto:[EMAIL PROTECTED]
Envoyé : mardi 2 mai 2006 14:21
À : [email protected]
Objet : [Norton AntiSpam] Re: [prog] Rechercher ... et remplacer par coller
Bonjour,
> Il faut utilise rune autre variable que oMonTexte dans la boucle ? si oui
> comment faire ?
>
omontext viens duy document
tu as un objet texte pour l'en tete et la cellule
it te faut utiliser ceux-la pour ton createTextCursor
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]
----------------------------------------------------------------------------
-----------
Wanadoo vous informe que cet e-mail a ete controle par l'anti-virus mail.
Aucun virus connu a ce jour par nos services n'a ete detecte.
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
