creer des bookmarks en VBA

creer des bookmarks en VBA - VB/VBA/VBS - Programmation

Marsh Posté le 06-07-2005 à 16:09:50    

Bonjour,  
 
Je cherche a creer une macro VBA qui creee un bookmark devant chaque occurence d'un mot (specifie en parametre).
Le nom des bookmarks correspond a la concatenation du mot avec celui qui le suit directement.
 
""
 
Quelqu'un peut-il m'aider ?
 
MErci d'avance.

Reply

Marsh Posté le 06-07-2005 à 16:09:50   

Reply

Marsh Posté le 06-07-2005 à 23:10:45    

Bonsoir,
 
Essaye qqch du genre :
 

Code :
  1. Sub Main()
  3. Dim sWord As String
  5. sWord = InputBox("Entrer le mot recherché :" )
  7. If sWord <> "" Then Call CreateBookmark(sWord)
  9. End Sub
  11. Sub CreateBookmark(sWord As String)
  13. Dim sText As String
  15. 'Positionner le curseur au début du document
  16. Selection.HomeKey wdStory
  18. With Selection.Find
  19.    'Initialiser la recherche
  20.    .ClearFormatting
  21.    'Paramétrer et lancer la boucle de recherche
  22.    Do While .Execute(FindText:=sWord, MatchCase:=False, MatchWholeWord:=True, Forward:=True) = True
  23.       'Se positionner au début du mot suivant
  24.       Selection.MoveRight wdWord, 1
  25.       'Sélectionner le mot
  26.       Selection.MoveRight wdWord, 1, wdExtend
  27.       'Mémoriser le mot
  28.       sText = RTrim(Selection.Range.Text)
  29.       'Se repositionner au début du mot recherché
  30.       Selection.MoveLeft wdWord, 2
  31.       'Insérer le signet
  32.       Selection.Bookmarks.Add sWord & sText
  33.       'Se positionner au début du mot suivant pour continuer la recherche
  34.       Selection.MoveRight wdWord, 1
  35.    Loop
  36. End With
  38. End Sub


 
pelw

Reply

Marsh Posté le 02-09-2010 à 11:43:36    

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed