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 :
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.
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
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
Partager