Sub BKMCreatePerSection2 ()
Schemerige rng als Waaier
Schemerige Seconde als Sectie
Schemerige I als Geheel
Schemerig Achtervoegsel () als Koord
Schemerige rngBookmark als Waaier
Het achtervoegsel = verdeelde („DE, EN, S, Fr, IT“,“, „)
Voor Elke Seconde in ActiveDocument.Sections
Reeks rng = Sec.Range
Met rng. Vind
. Formaat = Waar
. Stijl = ActiveDocument.Styles (wdStyleHeading2)
Reeks rngBookmark = Sec.Range
rngBookmark.MoveEnd wdCharacter, -1
Als. Voer dan uit
ActiveDocument.Bookmarks.Add „Section_Bookmark_“ & Achtervoegsel (I), rngBookmark
i = I + 1
Eind als
Eind met
Volgende Seconde
Sub van het eind
|