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 ChercherTrouver()
Dim Recherche As Boolean
Dim TabloMots As Variant, TabloPages(), TabloQu(), i As Integer
Dim DerLigne As Byte
TabloMots = Array("", "tata", "papa", "maman", "pépé", "mémé", "tonton", "michel")
ReDim TabloPages(UBound(TabloMots))
ReDim TabloQu(UBound(TabloMots))
For i = 1 To UBound(TabloMots)
Selection.HomeKey Unit:=wdStory
With Selection.Find
.Text = TabloMots(i)
.MatchWholeWord = True 'recherche sur le mot entier (True par défaut)
.Execute
Recherche = .Found
Do While Recherche
TabloQu(i) = TabloQu(i) + 1
TabloPages(i) = TabloPages(i) & "," & Selection.Information(wdActiveEndPageNumber)
.Execute
Recherche = .Found
Loop
End With
Next
'Affichage
For i = 1 To UBound(TabloMots)
If Not TabloQu(i) = Empty Then _
MsgBox TabloMots(i) & " a été trouvé " & TabloQu(i) & " fois " & _
" pages " & Right(TabloPages(i), Len(TabloPages(i)) - 1)
Next
End Sub |
Partager