BKMCreatePerSection2 secundários ()
Rng não ofuscante como a escala
Segundo não ofuscante como a seção
Escurecer i como o inteiro
Escurecer o sufixo () como a corda
Escurecer o rngBookmark como a escala
Sufixo = separação (“DE, EN, ES, franco, ELE”,”, ")
Para cada segundo em ActiveDocument.Sections
Ajustar o rng = o Sec.Range
Com rng. Achado
. O formato = retifica
. Estilo = ActiveDocument.Styles (wdStyleHeading2)
Ajustar o rngBookmark = o Sec.Range
wdCharacter de rngBookmark.MoveEnd, -1
Se. Executar então
ActiveDocument.Bookmarks.Add “Section_Bookmark_” & sufixo (i), rngBookmark
i = i + 1
Terminar se
Terminar com
O próximo segundo
Submarino da extremidade
|