Bonsoir,
Je pense que ton problème provient de la propriété SearchWords à true
qui signifie que seuls les mots entiers sont à rechercher.
Regardes ici :
http://api.openoffice.org/docs/common/ref/com/sun/star/util/SearchDescriptor.html
et testes cette propriété à false ;)
Francois Gatto
Jean Sympa a écrit :
Bonjour à toutes et à tous,
Rechercher une sous chaîne
Soit la macro suivante:
'Sub Rechercher
rem Code11-04.swx bibli : Rechercher Module1
Option Explicit
Sub TrouverToutPartout()
Dim monDocument as Object
Dim jeCherche As Object, trouv As Variant
Dim x As Long
monDocument=ThisComponent
jeCherche=monDocument.createSearchDescriptor
with jeCherche
.SearchString= "=E9"
.SearchWords=true
end with
trouv=monDocument.findAll(jeCherche)
print "Nombre d'occurences: " & cstr(trouv.count)
for x=0 to trouv.count-1
trouv(x).CharBackColor=1234567 'Fond vert sombre
next
End Sub
Je l'utilise pour dénombrer les occurrences d'une sous chaîne
=20
=E9
=E8
....
dans le texte suivant
Deux blondes jouent aux =E9checs. Avant de commencer, la premi=E8re
demande:=
=20
- Tu as les r=E8gles en t=EAte?=20
- Pourquoi, je saigne du nez?=20
*****
Un Am=E9ricain et un Russe se retrouvent dans un bar.=20
L'Am=E9ricain jette une pi=E8ce en l'air, tire un coup de feu, et y fait
deu=
x=20
trous.=20
Il montre la pi=E8ce au Russe et dit :=20
Je constate que
les occurrences de [=20] sont dénombrées correctement.
Celles de [=E8], [=E9], ec.. ne le sont pas.
=20 se trouve toujours à la fin d'un mot, alors que les autres sous chaînes
sont situées à l'intérieur d'un mot.
Question
Quelle modification dois-je apporter à la procédure pour qu'elle puisse
dénombrer des sous chaînes?
Avec mes remerciements
Cordialement
Papy
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]