Précédent   Forum des professionnels en informatique > Logiciels > Microsoft Office > Word > Contribuez
Partagez cette discussion sur d'autres réseaux sociaux : Viadeo Twitter Google Facebook Digg Delicious MySpace Yahoo
Réponse Proposer ce sujet en actualité
 
Outils de la discussion
Publicité
'
Vieux 14/09/2007, 12h53   #1
Inactif
 
Avatar de ouskel'n'or
 
Inscription : février 2005
Messages : 12 466
Détails du profil
Informations forums :
Inscription : février 2005
Messages : 12 466
Points : 11 930
Points : 11 930
Par défaut Rechercher un mot en boucle et inserer un signet indexé

L'exemple suivant implique les éléments suivants :
- Le texte cherché est toujours identique
- Le signet est appliqué au paragraphe entier à partir du mot cherché
- Le nom de l'index sera "Signet" & index
Code :
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Sub InsérerSignetEnBoucle()
Dim i as integer
Dim LeMot
LeMot = "Début" 'mot cherché
    Selection.HomeKey Unit:=wdStory 'On se place en début de document
    With Selection.Find
        .ClearFormatting
        'Début la boucle de recherche : Tant que la donnée est trouvée, on continue
        Do While .Execute(FindText:=LeMot, Forward:=True, _
                  Wrap:=wdFindStop) = True
 
            'Sélection jusqu'en fin de ligne
            Selection.EndKey Unit:=wdLine, Extend:=wdExtend
 
            'Insertion d'un signet indexé
            i = i + 1
            ActiveDocument.Bookmarks.Add Range:=Selection.Range, _
                  Name:="Signet" & i
        Loop
    End with
End Sub
ouskel'n'or est déconnecté   Envoyer un message privé Réponse avec citation 00
Réponse Proposer ce sujet en actualité
Outils de la discussion



Fuseau horaire GMT +2. Il est actuellement 20h55.


 
 
 
 
Partenaires

Hébergement Web