Discussion :

[Arsene12]

Bonjour

j'aimerai faire une recherche sur 2 mots qui ne sont pas côte à côte et qui doivent être situés dans une même page, ou dans un même paragraphe, ou dans une même phrase.

Connaitriez vous une méthode simple pour renvoyer ce résultat?

Merci d'avance.
Arsène.

[carden752]

Bonjour,

cela peut être bidouiller en récupérant les numéros de page par exemple et les comparant. C'est quand même du style double boucle avec un collapse dans la zone de recherche pour la réduire.
Ou en recherchant les deux termes dans le même paragraphe ou la même phrase. quelque chose de ce style par exemple

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
32
Sub pararech()
Dim rangepremot As Range
Dim rangesecmot As Range
Dim indexparamot1 As Long
Dim indexparamot2 As Long
 
Set rangepremot = ActiveDocument.Range
Set rangesecmot = ActiveDocument.Range
With rangepremot.Find
.Text = "mot1"
.Execute
End With
With rangesecmot.Find
.Text = "mot2"
.Execute
End With
rangepremot.Select
Selection.MoveRight Count:=1
Selection.HomeKey wdStory, wdExtend
indexparamot1 = Selection.Paragraphs.Count
rangesecmot.Select
Selection.MoveRight Count:=1
Selection.HomeKey unit:=wdStory, Extend:=wdExtend
indexparamot2 = Selection.Paragraphs.Count
 
If indexparamot1 = indexparamot2 Then
MsgBox "même paragraphe"
End If
Set rangepremot = Nothing
Set rangesecmot = Nothing
 
End Sub

[Arsene12]

Merci beaucoup. Cette réponse m'a un peu mis sur la voie. Je pense qu'il faut sélectionner le premier mot, étendre la sélection au paragraphe qui le contient et ensuite sélectionner le deuxième mot s'il existe à l'intérieur de ce paragraphe.

Ma première question est donc : comment sélectionner le paragraphe où est positionner le mot?

[Arsene12]

Bonjour,

j'ai trouvé la solution à ma question précédente. Voici le 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
Sub Selectionparagraphe()
 
Dim rangepremot As Range
 
Selection.WholeStory
Selection.MoveLeft Unit:=wdCharacter, count:=1
 
Set rangepremot = ActiveDocument.Range
With rangepremot.Find
.text = "mot 1"
.Execute
End With
 
rangepremot.Select
 
Selection.StartOf Unit:=wdParagraph
Selection.MoveEnd Unit:=wdParagraph
 
End Sub

J'aimerai maintenant rechercher le deuxième mot dans le paragraphe sélectionné. Comment dois-je faire? Merci de votre aide.