Bonjour à toutes et à tous,
Première fonction
Je sais que mon exemple et celui d'un débutant: C'est en forgeant que
l'on devient forgeron
Objectif : Créer une fonction en partant d'une macro mise au point.
//---- Macro ayant servi de point de départ
-------------------------------------------
Cette macro remplace une seule sous chaîne de caractère par un
caractère. Je la transforme en une fonction pour pouvoir remplacer non
pas une Sous Chaîne mais autant de Sous chaîne qu'il est nécessaire.
Option Explicit
Sub RemplacerSChParCar()
Dim monDocument as Object
Dim jeCherche As Object, trouv As Variant
Dim x As Long
monDocument=ThisComponent
jeCherche=monDocument.createSearchDescriptor
with jeCherche
.SearchString= "=E8"
.SearchWords=false
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
Les changements de chaîne ont lieu dans des documents de ce type :
Le père parle à son fiston de 5 ans=20
- Tu dois manger tous les épinards si tu veux devenir fort comme papa.=20
- Non. Je ne veux pas être fort comme toi. Je veux être boss comme maman=
=20
****
La ma=EEtresse d'école...=20
- Popaul, douze bouteilles de vin à 20$ chacune, combien =E7a fait?=20
- =C0 la maison, si c'est pour mon papa, Guy-Marie, =E7a fait 3 jours,=20
mademoiselle.=20
Rem ---------------------------------------------------------------
Fonction créée
Option Explicit
Function Remplacer1SChPar1Car(Sch As String, Car As String)
Dim monDocument as Object
Dim jeCherche As Object, trouv As Variant
Dim x As Long
monDocument=ThisComponent
jeCherche=monDocument.createSearchDescriptor
with jeCherche
.SearchString= Sch
.SearchWords=false
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
trouv(x).String=Car
next
End Function
Rem --------------------------------------------------------------------
Je lance cette macro, sans succès. Est-ce que j'ai bien écrit les
paramètres de la fonction?
Sub RemplacerNSChParNCar()
Remplacer1SChPar1Car("=20", " ")
End Sub
Je n'ai pas trouvvé l'erreur et pourtant je l'ai bien cherchée.
Avec mes remerciements
Cordialement
Papy
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
