Fråga : Skapa bokmärkear delar upp med säkerhet

Kära experter: makroen för

below utför efter:
Each delar upp som innehåller den inbyggde överskriften utformar (wdStyleHeading2) får bookmarked. Namnge av bokmärkearna är som följer: Section_Bookmark_i (I = sekventiellt numrerar). makroen för

This bör vara omskriven…
…, så att bokmärkearna får namngav: Section_Bookmark_DE; Section_Bookmark_EN; Section_Bookmark_ES; Section_Bookmark_FR; Section_Bookmark_IT (som är bokmärken som kända ”Section_Bookmark_” får fästad av DE, EN, ES, FR, DET).

The applicerar efter till alla dokument som denna makro körs mot:
There är alltid 5 delar upp exakt som matchar den krav… …, (ReDim HasHeading2 (ActiveDocument.Sections.Count))

Help uppskattas mycket. Tacka dig mycket i förskott.

Regards, Andreas > för 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
" codeBody " " >Sub BKMCreatePerSection för class= " för
" klar "

Svar : Skapa bokmärkear delar upp med säkerhet

Det är en liten tweak.
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:

UnderBKMCreatePerSection2 ()
    Dunkel rng som spänner
    Dunkel sekund som delar upp
    Dunkelt I som heltal
    Dunkel ändelse () som stränger
    Dunkel rngBookmark som spänner
    
    Ändelse = splittring (”DE, EN, ES, FR, DET”,”, ”)
 
    För varje sekund i ActiveDocument.Sections
        Fastställd rng = Sec.Range
        Med rng. Fynd
            . Formatera = True
            . Utforma = ActiveDocument.Styles (wdStyleHeading2)
            Fastställd rngBookmark = Sec.Range
            rngBookmark.MoveEnd-wdCharacter, -1
            Om. Utför därefter
                ActiveDocument.Bookmarks.Add ”Section_Bookmark_” & ändelse (I), rngBookmark
                i = I + 1
            Avsluta om
        Avsluta med
    Nästa sekund
        
Avsluta suben
Andra lösningar  
 
programming4us programming4us