Discussion :

[jpmalb]

Bonjour
Dans un paragraphe de plusieurs phrases, le mot CINEMA apparait dans la 3° phrase.
Je souhaiterais que la phrase qui contient ce mot soit affichée.
Or, avec cette procédure, le mot CINEMA est bien trouvé mais seule la première phrase s'affiche.
Comment faire apparaître la 3° uniquement ?
Merci

Sub NumLign()
Dim wdsentence, para As Paragraph

For i = 1 To ActiveDocument.Paragraphs.Count

For Each wdsentence In ActiveDocument.Paragraphs(i).Range.Sentences

With Selection.Find
.MatchWholeWord = True
.Execute FindText:="CINEMA"
If .Found = True Then
Debug.Print i & " " & wdsentence.Text
End If
End With

Next 'wdSentence
Next 'i
End Sub

[mromain]

Bonjour jpmalb, le forum,

J'ai testé ton code sur un exemple, il ne semblait pas marcher.
Cela parait logique car tu effectues la recherche sur la Selection.

Tu peux tester le code ci-dessous qui doit répondre à ton besoin :

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
Sub test()
Dim para As Paragraph, iSentence As Long
 
    For Each para In ThisDocument.Paragraphs
        For iSentence = 1 To para.Range.Sentences.Count
            With para.Range.Sentences(iSentence).Find
                .MatchWholeWord = True
                .Execute FindText:="CINEMA"
                If .Found = True Then
                    Debug.Print para.Range.Sentences(iSentence).Text
                End If
            End With
        Next iSentence
    Next para
End Sub

A+

[jpmalb]

...Effectivement, ça fonctionne...faut que je revoie ma logique...
Je débute en VBA Word...pas toujours évident, même avec les tutos et le bouquin VBA Word 2007..
Heureusement , il y a le forum et les bonnes volontés...
Merci mromain