BKMCreatePerSection2 secondari ()
Rng fioco come gamma
Sec fioca come sezione
Oscurare la i come numero intero
Oscurare il suffisso () come stringa
Oscurare il rngBookmark come gamma
Il suffisso = ha spaccato (“DE, en, es, franco, ESSO„,„, ")
Per ogni sec in ActiveDocument.Sections
Regolare il rng = Sec.Range
Con rng. Ritrovamento
. La disposizione = allinea
. Stile = ActiveDocument.Styles (wdStyleHeading2)
Regolare il rngBookmark = Sec.Range
wdCharacter di rngBookmark.MoveEnd, -1
Se. Allora eseguire
ActiveDocument.Bookmarks.Add “Section_Bookmark_„ & suffisso (i), rngBookmark
i = i + 1
Concluder se
Concluder con
La sec prossima
Sommergibile dell'estremità
|