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() |
Partager