VorBKMCreatePerSection2 ()
Schwaches rng als Strecke
Schwache sek als Abschnitt
I als ganze Zahl verdunkeln
Suffix () als Schnur verdunkeln
rngBookmark als Strecke verdunkeln
Suffix = aufspaltete („De, en, ES, Franc, ES“,“, ")
Für jede sek in ActiveDocument.Sections
Rng = Sec.Range einstellen
Mit rng. Entdeckung
. Format = ausrichten en
. Art = ActiveDocument.Styles (wdStyleHeading2)
rngBookmark = Sec.Range einstellen
rngBookmark.MoveEnd wdCharacter, -1
Wenn. Dann durchführen
ActiveDocument.Bookmarks.Add „Section_Bookmark_“ u. Suffix (i), rngBookmark
I = i + 1
Beenden wenn
Mit beenden
Folgende sek
Enden-Unterseeboot
|