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
| Sub Test()
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:="par_", Forward:=True, Wrap:=wdFindStop) = True
Selection.EndKey Unit:=wdLine, Extend:=wdExtend 'Sélection de la ligne
'insertion d'un index
ActiveDocument.Indexes.MarkEntry Range:=Selection.Range, _
Entry:=Selection.Range.Text, Italic:=True
Selection.Font.Italic = wdToggle 'on met la sélection en italiques
Selection.EndKey 'on se place en fin de ligne afin de ne pas...
'poursuivre la recherche sur la sélection
Loop
End With
Selection.EndKey Unit:=wdStory 'L'index sera placé en fin de doc...
'insertion d'un saut de page
Selection.InsertBreak Type:=wdPageBreak '... sur la page suivante
'il aura une seule colonne et les N° de pages seront placés à droite
With ActiveDocument
.Indexes.Add Range:=Selection.Range, HeadingSeparator:= _
wdHeadingSeparatorNone, Type:=wdIndexIndent, RightAlignPageNumbers:= _
True, NumberOfColumns:=1, IndexLanguage:=wdFrench
.Indexes(1).TabLeader = wdTabLeaderDots
End With
End Sub |
Partager