Bonjour ,

Je me dirige vers vous après des recherches sur internet qui n'ont rien donner.

Comme dit dans le titre , j'aimerai compter le nombre d'occurence d'un mot dans un fichier word en Vb.net

Actuellement voici mon 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
31
 
Imports Word = Microsoft.Office.Interop.Word
Imports System.Windows
Imports System.Windows.Forms
 
Dim nomfichier as string = "X:\G022596\My Documents\ConteRendu.doc"
 
Private Sub Button_RechercheOcc ( ByVal sender as System.Object , ByVal e As System.EventArgs) Handles Button1.Click
       Dim objWordApp As New Word.Application
       Dim objWordApp.Visible = False
       Dim count as iNTEGER
 
      Dim objDoc as Word.Document = objWordApp.Documents.Open(nomfichier)
      objDoc = objWordApp.ActiveDocument
 
      With objDoc.Content.Find
              .ClearFormatting()
              .Text = "la"
              .Forward = True
              .Wrap = Word.WdFindWrap.wdFindContinue
              .Execute
              If .Found = True Then count = count + 1
      End With
 
     MsgBox("Occurence trouvée : " & count)
     objDoc.Close()
     objDoc = Nothing
     objWordApp.Quit()
     objWordApp = Nothing
 
End Sub
En effet , il me trouve que 1 fois et s'arrête de suite aprés alors que j'ai plusieurs mots "la" dans le fichier.
Pourtant j'ai mit la condition Forward = True qui devrait parcourir tout mon fichier , non ?

Désolé si ma question semble un peu débile mais je séche là ...

Merci en tout cas