BKMCreatePerSection2 secondaires ()
Faible rng comme gamme
Faible sec comme section
Obscurcir I comme nombre entier
Obscurcir le suffixe () comme corde
Obscurcir le rngBookmark comme gamme
Le suffixe = s'est dédoublé (« De, en, es, franc, IL », », ")
Pour chaque sec dans ActiveDocument.Sections
Placer le rng = le Sec.Range
Avec le rng. Trouvaille
. Le format = rectifient
. Modèle = ActiveDocument.Styles (wdStyleHeading2)
Placer le rngBookmark = le Sec.Range
wdCharacter de rngBookmark.MoveEnd, -1
Si. Exécuter alors
ActiveDocument.Bookmarks.Add « Section_Bookmark_ » et suffixe (i), rngBookmark
i = I + 1
Finir si
Finir avec
La sec prochaine
Sous-marin d'extrémité
|