BKMCreatePerSection2 secundarios ()
Rng dévil como gama
Sec dévil como sección
Amortiguar i como número entero
Amortiguar el sufijo () como secuencia
Amortiguar el rngBookmark como gama
El sufijo = partió (“DE, EN, ES, franco, ÉL”,”, ")
Para cada Sec en ActiveDocument.Sections
Fijar el rng = Sec.Range
Con el rng. Hallazgo
. El formato = verdad
. Estilo = ActiveDocument.Styles (wdStyleHeading2)
Fijar el rngBookmark = Sec.Range
wdCharacter de rngBookmark.MoveEnd, -1
Si. Entonces ejecutar
ActiveDocument.Bookmarks.Add “Section_Bookmark_” y sufijo (i), rngBookmark
i = i + 1
Terminar si
Terminar con
El Sec próximo
Submarino del extremo
|