Compter nombres occurences d'un mot dans un fichier Word Vb.net

Version imprimable

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:

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

26/02/2015, 10h06
Kropernic

Pour trouver plusieurs fois le mot recherché, il te faut une boucle.

Le forward = true ne sert qu'à dire que ta recherches s'effectue en allant vers la fin du document.

Sinon, juste comme exercice de réflexion, si la taille du document le permet, on peut se débrouiller pour arriver à créer une liste dont les éléments sont les mots du document et ensuite, une simple requête linq nous donnera le nombre d'occurence de n'importe quel mot sans avoir besoin de reparcourir tout le document à chaque fois.
26/02/2015, 11h01
DeadPooleuh

Je suis d'accord pour la boucle mais une boucle sur quoi ?

Sur un reader qui continuer à parcourir le doc tant qu'on est pas arrivé à la fin ?
26/02/2015, 11h06
Kropernic

Il faudrait regarder dans la doc de Content.Find mais j'imagine qu'il doit t'indiquer quand il a atteint la fin du document. Du coup, c'est là dessus que je bouclerais perso.

Bonjour,

Voilà comment procéder en se basant sur cet exemple :

Code:

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
32
33
 
        'Une variable de l'occurrence recherchée
        Dim occ = "la"
        'Une variable pour indiquer le nombre de fois dont l'occurrence apparaît dans le document
        Dim occFounded%
 
        Dim word As New Application()
        Dim doc As New Document()
 
        Dim fileName As Object = "C:\Users\jm\Desktop\t.docx"
        ' Define an object to pass to the API for missing parameters
        Dim missing As Object = System.Type.Missing
        doc = word.Documents.Open(fileName, missing, missing, missing, missing, missing, _
            missing, missing, missing, missing, missing, missing, _
            missing, missing, missing, missing)
 
        Dim read As String = String.Empty
        For i As Integer = 0 To doc.Paragraphs.Count - 1
            Dim temp As String = doc.Paragraphs(i + 1).Range.Text.Trim()
            If temp <> String.Empty Then
                'C'est ici qu'on récupère la ligne courante (temp) !
                If temp.Contains(occ) Then
                    ' On incrémente la variable occurFounded à chaque fois que la ligne contient l'occurence !
                    occFounded += 1
                End If
 
            End If
        Next
 
        MsgBox("TROUVEES : " & occFounded.ToString)
 
        DirectCast(doc, _Document).Close()
        DirectCast(word, _Application).Quit()

26/02/2015, 13h24
DeadPooleuh

Ouah Merci ! Ca marche du tonnerre de zeus :-)