pelw | Bonsoir,
Essaye qqch du genre :
Code :
- Sub Main()
- Dim sWord As String
- sWord = InputBox("Entrer le mot recherché :" )
- If sWord <> "" Then Call CreateBookmark(sWord)
- End Sub
- Sub CreateBookmark(sWord As String)
- Dim sText As String
- 'Positionner le curseur au début du document
- Selection.HomeKey wdStory
- With Selection.Find
- 'Initialiser la recherche
- .ClearFormatting
- 'Paramétrer et lancer la boucle de recherche
- Do While .Execute(FindText:=sWord, MatchCase:=False, MatchWholeWord:=True, Forward:=True) = True
- 'Se positionner au début du mot suivant
- Selection.MoveRight wdWord, 1
- 'Sélectionner le mot
- Selection.MoveRight wdWord, 1, wdExtend
- 'Mémoriser le mot
- sText = RTrim(Selection.Range.Text)
- 'Se repositionner au début du mot recherché
- Selection.MoveLeft wdWord, 2
- 'Insérer le signet
- Selection.Bookmarks.Add sWord & sText
- 'Se positionner au début du mot suivant pour continuer la recherche
- Selection.MoveRight wdWord, 1
- Loop
- End With
- End Sub
|
pelw |
