Discussion :

[axelair2]

Bonjour, je suis nouveau ici et pas expert en VB, plutôt autodidacte et pas informaticien.
J'aurais souhaité quelques conseils pour améliorer mes macros sur Word.

J'ai un long texte de plusieurs pages (~100) et qui change régulièrement.
Je souhaite faire une recherche dans ce texte de mots (~50) que je définis au préalable mais qui peuvent évoluer au cours du temps (ajout de mots).

J'ai défini mes mots dans la propriété Caption de CheckBox. J'ai donc une 50n de CheckBox, ce n'est pas pratique du tout (mais ça marche), je ne sais pas comment faire autrement alors je souhaiterais connaitre une autre façon de faire plus efficace et rapide.

Une macro Check tous les CheckBox en une fois. Et pour chaque CheckBox j'ai défini une macro qui met le texte trouvé (correspondant au caption du CheckBox) en rouge et en gras.

Voila l'exemple d'un des CheckBox :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
Private Sub CheckBox41_Click()
 
If CheckBox41.Value = True Then
e = 0
Selection.HomeKey Unit:=wdStory
 
While (e <> 1)
Selection.Find.ClearFormatting
 
Selection.Find.Text = CheckBox41.Caption
Selection.Find.Execute
 
If Not (Selection.Find.Found) Then
    e = 1
Else
    Selection.Font.Color = wdColorRed
    Selection.Font.Bold = wdToggle
End If
Wend
End If
End Sub

Je souhaiterais connaitre une autre façon de faire cela plus rapidement car lorsque je dois faire une mise à jour des Caption des CheckBox et en ajouter de nouveaux cela me prend un temps fou ...

Sinon je cherche une méthode qui me permettrait de faire quelque chose du genre :

Pour n=1 à 100
Selection.Find.Text = CheckBox[n].Caption
...
'Puis qui réalise le contenu de ma macro (mettre en rouge et en gras).


Merci par avance.

Axel

[carden752]

Bonjour,

Plusieurs options sont envisageables :

1. Une liste déroulante si besoin de sélection via userform pour dépasser la limite de 25
2. Le chargement des mots depuis un fichier texte
3. Un tableau en indiquant les mots à rechercher dans chaque cellule en première page ou sur un autre document.
4. Un paragraphe avec tous les mots à rechercher en première page ou sur un autre document dans éventuellement un signet séparés éventuellement par un caractère spécifique (groupe de mots).
5. Lister dans une variable de type tableau en VBA les mots.

Cela permettrait éventuellement de garder un historique des mots recherchés et éventuellement les rechercher à nouveau pour tes documents.

[axelair2]

Merci Carden pour ces conseils !

L'option 4 me semble la plus adaptée et la plus simple pour mon projet

De façon à avoir sur la premiere page :

#DEBUT LISTE MOTS#

mot1 mot2 mot3
mot4
...

#FIN LISTE MOTS#


Et tout mon texte à partir de la page 2.

Par contre je ne sais pas comment faire une recherche de ces mots entre balise.
Quelqu'un peut me donner une piste ?

Merci beaucoup !

[carden752]

Bonjour,

Tu peux avec la structure suivante :
Début liste mot
Mot1 mot2 mot3 mot4
Fin liste mot

utiliser une procédure de ce style qui t'affiche tous les mots

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Sub parcoursmots()
Dim monmot As Object
Dim rdébutmot As Long, rfinfinmot As Long
Dim rliste As Range
 
Selection.HomeKey wdStory
Selection.Find.ClearFormatting
'recherche de la zone début liste mot
With Selection.Find
.Text = "Début liste mot"
.Execute
End With
'+1 pour éliminer la marque de paragraphe
rdébutmot = Selection.End + 1
 
Selection.HomeKey wdStory
'recherche de la zone fin liste mot
With Selection.Find
.Text = "Fin liste mot"
.Execute
End With
'-1 pour éliminer la marque de paragraphe
rfinmot = Selection.Start - 1
 
'Initialisation de la zone
Set rliste = ActiveDocument.Range(rdébutmot, rfinmot)
For Each monmot In rliste.Words
MsgBox monmot
Next
End Sub

[axelair2]

Merci beaucoup !
J'ai du boulot maintenant ...

J'ai essayé avec mon bout de code mais cela ne met en rouge que le texte de la liste de mot pas ceux de la suite, normal vu que ca semble faire la boucle dans la liste...

Faut il que je déclare une autre liste (début/fin) qui part de la 2eme page et qui fini au dernier mot de mon document afin de spécifier de recherche dans mon texte (liste2) les mots indiqués dans la liste1 ?

Ou alors il y a un moyen plus simple mais je ne le trouve pas.

Merci d'avance.

[carden752]

Bonjour,

Effectivement, il te suffit de déclarer une deuxième zone entre la fin de la liste et la fin du document

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
dim r as range
set r=ActiveDocument.Range(rfinmot+1,activedocument.content.end -1)
puis tu remplaces dans ton code l'objet selection par l'objet range déclaré
r.find.clearformatting....

Pour rendre ton code plus portable, le mieux est de faire 2 procédures dont notamment une qui prendrait en paramètre la zone de recherche et le mot à rechercher.
Il pourrait au final s'agir de quelque chose comme

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

sub metenrouge (mazone as range, monmot as string)

Dans le code principal, on aurait donc un appel de ce type

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
'Définition de la plage de recherche
set r=ActiveDocument.Range(rfinmot+1,activedocument.content.end -1)
'Appel pour chaque mot de la fonction
For Each monmot In rliste.Words
call metenrouge(r, monmot)
Next

Je te laisse essayer d'adapter ce code à ton besoin. Attention, si tu utilises 2 procédures, il te faudra pas oublier de modifier partout les variables passées en paramètre.

[Heureux-oli]

Salut,

Quelques explications là : http://heureuxoli.developpez.com/off...emplacer/#L3-A ?

[axelair2]

Merci beaucoup pour les conseils.
Je vais essayer de voir cà ce week end !