Okręt podwodny BKMCreatePerSection2 ()
Ciemnawy rng Pasmo
Ciemnawy Sec Jako Sekcja
Ćmić i Jako Integer
Ćmić Przyrostek () Sznurek
Ćmić rngBookmark Pasmo
Przyrostek = Rozłam ("DE, EN, ES, FR, ONO",", ")
Dla ActiveDocument.Sections Sec W ActiveDocument.Sections
Ustalony rng = Sec.Range
Z rng. Znalezisko
. Format = Prawdziwy
. Styl = ActiveDocument.Styles (wdStyleHeading2)
Ustalony rngBookmark = Sec.Range
rngBookmark.MoveEnd wdCharacter, -1
Jeżeli. Wykonywać Wtedy
ActiveDocument.Bookmarks.Add "Section_Bookmark_" & Przyrostek (i), rngBookmark
i = i + (1)
Kończyć Jeżeli
Kończyć Z
Następny Sec
Końcówka Okręt podwodny
|