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