UnderBKMCreatePerSection2 ()
Dunkel rng som spänner
Dunkel sekund som delar upp
Dunkelt I som heltal
Dunkel ändelse () som stränger
Dunkel rngBookmark som spänner
Ändelse = splittring (”DE, EN, ES, FR, DET”,”, ”)
För varje sekund i ActiveDocument.Sections
Fastställd rng = Sec.Range
Med rng. Fynd
. Formatera = True
. Utforma = ActiveDocument.Styles (wdStyleHeading2)
Fastställd rngBookmark = Sec.Range
rngBookmark.MoveEnd-wdCharacter, -1
Om. Utför därefter
ActiveDocument.Bookmarks.Add ”Section_Bookmark_” & ändelse (I), rngBookmark
i = I + 1
Avsluta om
Avsluta med
Nästa sekund
Avsluta suben
|