Recherche et parenthèses ….
J’utilise la fonction suivante pour rechercher et remplacer par le contenu du presse papier …
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 Arguments(0) As Object
oSel = oDocument.CurrentController.Frame
Arguments(0) = MakePropertyValue("Hidden", False)
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.findAll(oJeCherche)
For oIndex = 1 To oResultat.getCount()
' sélectionner la chaine de recherche
oMonCurseur = oMonTexte.createTextCursorByRange(oResultat.getByIndex(oIndex - 1))
' Remplacement par un texte
' oMonCurseur.setString("Chaine de remlpacement")
'Remplacement par le contenu du presse papier
oControleur.select(oMonCurseur)
oDispatcherLocal.executeDispatch(oSel, ".uno:Paste", "", 0, Arguments)
Next
RechercherRemplacerToutPressePapier = oResultat.getCount()
End Function
J’ai découvert que les RC doivent être remplacés par « \n » et les TAB par « \t » apparemment il en est de même pour les parenthèses ?
Ou trouver l’ensemble des caractères concernés et par quoi les remplacer pour effectuer une recherche ?
D’avance Merci ..
