Sub BKMCreatePerSection2 ()
Тусклое rng как ряд
Тусклый Sec как раздел
Затемните I как интежер
Затемните суффикс () как шнур
Затемните rngBookmark как ряд
Суффикс = разделил («DE, EN, ES, FR, ОНО»,», ")
На каждый Sec в ActiveDocument.Sections
Установите rng = Sec.Range
С rng. Находка
. Форма = True
. Тип = ActiveDocument.Styles (wdStyleHeading2)
Установите rngBookmark = Sec.Range
wdCharacter rngBookmark.MoveEnd, -1
Если. Исполните после этого
ActiveDocument.Bookmarks.Add «Section_Bookmark_» & суффикс (I), rngBookmark
iий = I + 1
Закончитесь если
Закончитесь с
Следующий Sec
Подводная лодка конца
|