-----Message d'origine----- De : Cezame Concept [mailto:ceza...@wanadoo.fr] Envoyé : mercredi 15 mars 2006 11:42 À : pr...@fr.openoffice.org Objet : [prog] Problème très urgent .... OLE oOWriter

Je rencontre un problème lorsque j'effectue une recherche 'une chaîne dans un
document oOWriter ...

Je souhaiterai simplement connaître en retour si la chaîne a été trouvée ...

J'utilise cette procédure .. sous VB express 2005

Function Rechercher(ByVal sMots As String, ByVal sRespecterCasse As Boolean,
ByVal sMotEntier As Boolean) As Boolean

Dim oResultat As Object

Dim oDispatcherLocal As Object

Dim oControleur As Object

oSel = oDocument.CurrentController.Frame

oDispatcherLocal = CreateUnoService("com.sun.star.frame.DispatchHelper")

oMonTexte = oDocument.getText()

oControleur = oDocument.CurrentController

oJeCherche = oDocument.createSearchDescriptor

'Definir la balise à rechercher dans le document OpenOffice Word

oJeCherche.SearchString = sMots

'Distinguer les majuscules des minuscules dans la recherche

oJeCherche.SearchCaseSensitive = sRespecterCasse

'Ne rechercher que des mots

oJeCherche.SearchWords = sMotEntier

'Rechercher à reculons

oJeCherche.SearchBackwards = False

'Faire une recherche avec la méthode des expressions régulières

oJeCherche.SearchRegularExpression = True

'Rechercher des paragraphes d'un style donné par SearchString

oJeCherche.SearchStyles = False

'Rechercher un texte similaire au texte cherché

oJeCherche.SearchSimilarity = False

oResultat = oDocument.findFirst(oJeCherche)

'If oResultat Then

' oControleur.select(oMonCurseur)

' Rechercher = True

'Else

' Rechercher = False

'End If

Rechercher = True

End Function

Comment completer cette function ?

Merci d'avance