Discussion :

[Dunilca0]

Bonjour,

Dans le cadre d'un projet je souhaiterais que mon programme détecte les mots-clés (que j'ai ultérieurement définis) dans un document Word purement textuel.

Pour cela j'utilise l'outil Dictionnaire où tous les mots du fichier en question sont répertoriés, ensuite je veux qu'il compare chaque mots à la liste de mots clés que j'ai défini, cela sous-entend qu'il y a une boucle for dans une boucle for et que l'incrémentation des 2 variables se fasse simultanément. Ci-ci¡ontre l'extrait du programme qui pose problème:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
MotsCles = Array("blo", "bla")

For Each wd In Selection.Words
    tmp = Split(LCase(wd.Text), "'")
    For i = 0 To UBound(tmp)
        For Each k In dict.keys
            For y = 0 To UBound(MotsCles)
                If k <> MotsCles(y) Then dict.Remove k
            Next y
        Next k
     If dict.Exists(tmp(i)) Then dict(tmp(i)) = dict(tmp(i)) + 1 Else dict(tmp(i)) = 1
     Next i
Next wd

Je veux que l'incrémentation de y et k se fasse en même temps.

Je remercie toute aide qui me sera utile pour confronter ce gros problème si besoin j'afficherais le programme complet :

[Invité]

Bonjour,

La chaîne "'" dans

Code :

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

tmp = Split(LCase(wd.Text), "'")

est considéré comme un mot à part entière, le résultat de la fonction Split par rapport à un mot ne peut être que vide.
Le chargement de votre variable dictionnaire doit prendre un temps non négligeable et la comparaison avec chaque mot dans vos boucles doit encore dégrader un peu plus le temps de traitement.
Vous pourriez arriver au même résultat avec ce genre de code.

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 Test()
 
Dim MotsCles As Variant, Tmp() As Variant
Dim I As Long, J As Long
 
    ActiveDocument.Select
 
    With Selection
 
        MotsCles = Array("blo", "bla")
        ReDim Tmp(UBound(MotsCles), 1)
        For I = LBound(Tmp, 1) To UBound(Tmp, 1)
            Tmp(I, 0) = MotsCles(I)
            Tmp(I, 1) = 0
        Next I
 
        For J = 1 To .Words.Count
            For I = LBound(Tmp, 1) To UBound(Tmp, 1)
                If InStr(1, .Words(J), Tmp(I, 0), vbTextCompare) > 0 Then Tmp(I, 1) = Tmp(I, 1) + 1
            Next I
        Next J
 
    End With
 
    For I = LBound(Tmp, 1) To UBound(Tmp, 1)
        Debug.Print Tmp(I, 0) & " : " & Tmp(I, 1)
    Next I
 
End Sub

[Dunilca0]

Bonjour Eric,

Premièrement, je ne saurais autrement pas vous remercier qu'en vous remerciant, votre programme est beaucoup plus compact et correspond tout à fait à ce que je cherche ! Mille mercis !
Juste, ce que je cherche est une phrase au lieu d'un seul mot quelles modifications dois-je apporter au programme ? C'est-à-dire, si au lieu de :

Code :

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

MotsCles = Array ("bla","blo")

j'écris :

Code :

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

MotsCles = Array ("bla blo bli","blo", "blu bli bla)

Je vous remercie d'avance

[Invité]

Il faut juste travailler au niveau paragraphe.

Code :

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

1
2
3
4
5
6
 
        For J = 1 To .Paragraphs.Count
            For I = LBound(Tmp, 1) To UBound(Tmp, 1)
                If InStr(1, .Paragraphs(J).Range, Tmp(I, 0), vbTextCompare) > 0 Then Tmp(I, 1) = Tmp(I, 1) + 1
            Next I
        Next J