Discussion :

[Heureux-oli]

Une piste ?

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
 
Sub CompterNombreMots()
Dim intNbre As Integer
Dim bolTrouve As Boolean
Selection.HomeKey Unit:=wdStory
Do
intNbre = intNbre + 1
With Selection.Find
    .Forward = True
    .ClearFormatting
    .MatchWholeWord = True
    .MatchCase = False
 
    bolTrouve = .Execute(FindText:="pouvez")
End With
Loop While bolTrouve
Debug.Print intNbre
End Sub

intNbre contient le nombre d'occurrences.
On pourrais envisager d'utiliser une fonction.

[jessicaz]

Bonjour,

Super ! ça marche nickel avec la version ci-dessous:


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
Sub 1
 
Dim intNbre As Integer
Dim bolTrouve As Boolean
Selection.HomeKey Unit:=wdStory
Do
intNbre = intNbre + 1
With Selection.Find
    .Forward = True
    .ClearFormatting
    .MatchWholeWord = True
    .MatchCase = False
    bolTrouve = .Execute(FindText:="Madame")
    Selection.EndKey Unit:=wdLine
    Selection.Delete Unit:=wdCharacter, Count:=1
    Selection.EndKey Unit:=wdLine
    Selection.TypeText Text:=" "
    Selection.Delete Unit:=wdCharacter, Count:=1
 
End With
Loop While bolTrouve
 
end sub

Merci encore.
J'espère aussi que ça pourra être utile à d'autres.
Jessica