Discussion :

[theosoft]

Bonjour à tous je suis un débutant en VBa pour Word et j'ai déjà un petuet problème.
En fait je viens de lire l'article sur l'Utilisation détaillée de la fonction Rechercher/Remplacer de Word et j'aimerai savoir s'il existe une fonction qui pourrait compter les occurrences d'un mot trouvé et l'afficher. Si c'est possible, faites le moi savoir s'il vous plait.
Bien des choses à vous et longue vie au forum des developpeurs

[Heureux-oli]

Salut,

Je vais reprendre le code que je viens de donner pour un autre post.

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
Sub rechercheU()
Dim intI as Integer
intI = 0
Selection.HomeKey unit:=wdStory
 
Do
Selection.Find.ClearFormatting
With Selection.Find
    .Text = "Mon Mot"
    .Execute
End With
 
intI = intI + 1
Loop Until Selection.Find.Execute = False
 
MsgBox "Il y a " & intI & " occurrence du mot"
End Sub