Discussion :

[HelioM]

Bonjour,

J'aimerais savoir comment faire pour limiter la recherche d'un mot (avec "find") à une sélection donné.

J'ai réalisé le code suivant mais il parcourt l'ensemble du document sans se limiter à la sélection.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
ActiveDocument.Range(ActiveDocument.Bookmarks("Signet1").Start,ActiveDocument.Bookmarks("Signet2").End).Select
 
 
With Selection.Find
   Do While .Execute(FindText:="MOT", Forward:=True) = True
   Loop
End With

Merci d'avance.

[carden752]

Bonjour,

il est possible d'utiliser la propriété find.wrap pour gérer les actions à effectuer lorsque la sélection n'a pas lieu sur tout le document.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
ActiveDocument.Range(ActiveDocument.Bookmarks("Signet1").Start,ActiveDocument.Bookmarks("Signet2").End).Select
 
 
With Selection.Find
.Wrap = wdFindStop
   Do While .Execute(FindText:="MOT", Forward:=True) = True
   Loop
End With

[HelioM]

Bonjour,

J'ai fait de multiples tests avec .wrap , cela n'a pas marché.
J'ai l'impression que la boucle poursuit la recherche sans le prendre en compte...

[carden752]

Bonjour,

Essayez de mettre forward à false soit le code suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
ActiveDocument.Range(ActiveDocument.Bookmarks("Signet1").Start,ActiveDocument.Bookmarks("Signet2").End).Select
 
 
With Selection.Find
.Wrap = wdFindStop
   Do While .Execute(FindText:="MOT", Forward:=False) = True
   Loop
End With