[Résolu]Nombre d'occurrence d'un mot

Nombre d'occurrence d'un mot [Résolu] - VB/VBA/VBS - Programmation

Marsh Posté le 19-09-2006 à 17:27:50    

Je voudrais compter le nombre d'occurence d'un mot dans un texte sous Word.
Le mot c'est en fait une chaîne de caractère entre "[ ]" repérable grâce à la couleur: en clair je veux le nombre d'occurence de la couleur rouge ds le texte.
Possible?


Message édité par acorsa le 20-09-2006 à 09:20:52
Reply

Marsh Posté le 19-09-2006 à 17:27:50   

Reply

Marsh Posté le 20-09-2006 à 01:31:06    

A adapter  


Option Explicit
 
Sub Tst()
Dim Cpt As Long
    Cpt = 0
    Selection.HomeKey Unit:=wdStory
    With Selection.Find
       .Forward = True
       .Wrap = wdFindStop
       .Font.Color = wdColorRed
    End With
     
    Do While Selection.Find.Execute
       Cpt = Cpt + 1
    Loop
     
    Debug.Print Cpt
End Sub

Reply

Marsh Posté le 20-09-2006 à 09:20:18    

Merci!!

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed