Vraag : Cre�ër referenties voor bepaalde secties

Beste Deskundigen: de macro

below voert het volgende uit:
Each- sectie die de ingebouwde rubriekstijl bevat (wdStyleHeading2) krijgt bookmarked. Het noemen van de referenties is als volgt: Section_Bookmark_i (I = opeenvolgend aantal). de macro

This herschreven…
moeten zijn… zodat de referenties genoemd worden: Section_Bookmark_DE; Section_Bookmark_EN; Section_Bookmark_ES; Section_Bookmark_FR; Section_Bookmark_IT (dat de referentienaam „Section_Bookmark_“ toegevoegd wordt door DE, EN, S, Fr, IT is). het volgende

The is op alle documenten van toepassing waartegen deze macro in werking wordt gesteld:
There is altijd precies 5 secties die het vereiste…
… aanpassen (ReDim HasHeading2 (ActiveDocument.Sections.Count))

Help wordt veel gewaardeerd. Dank u zeer vooraf.

Regards, Andreas
" codeBody " 
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:

Sub BKMCreatePerSection ()
    Schemerige HasHeading2 () zoals Van Boole
    Schemerige rng als Waaier
    Schemerige Seconde als Sectie
    Schemerige paragraaf als Paragraaf
    Schemerige I als Geheel
    
    i = 1

Reeks rng = ActiveDocument.Range
 
 ReDim HasHeading2 (ActiveDocument.Sections.Count)
    Reeks rng = ActiveDocument.Range
    Met rng. Vind
        . Formaat = Waar
        . Stijl = ActiveDocument.Styles (wdStyleHeading2)
        Doe terwijl. Voer uit (Omslag: =wdFindStop)
           HasHeading2 (rng. Secties (1). Index) = Waar
        Lijn
    Eind met
    Voor Elke Seconde in ActiveDocument.Sections
        Reeks rng = Sec.Range
        Als HasHeading2 (Sec.Index) toen
            ActiveDocument.Bookmarks.Add „Section_Bookmark_“ & I, rng
            ActiveDocument.UndoClear
            i = I + 1
        Eind als
    Volgende Seconde
        
Sub van het eind

Antwoord : Cre�ër referenties voor bepaalde secties

Dat is een klein kneepje.
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:

Sub BKMCreatePerSection2 ()
    Schemerige rng als Waaier
    Schemerige Seconde als Sectie
    Schemerige I als Geheel
    Schemerig Achtervoegsel () als Koord
    Schemerige rngBookmark als Waaier
    
    Het achtervoegsel = verdeelde („DE, EN, S, Fr, IT“,“, „)
 
    Voor Elke Seconde in ActiveDocument.Sections
        Reeks rng = Sec.Range
        Met rng. Vind
            . Formaat = Waar
            . Stijl = ActiveDocument.Styles (wdStyleHeading2)
            Reeks rngBookmark = Sec.Range
            rngBookmark.MoveEnd wdCharacter, -1
            Als. Voer dan uit
                ActiveDocument.Bookmarks.Add „Section_Bookmark_“ & Achtervoegsel (I), rngBookmark
                i = I + 1
            Eind als
        Eind met
    Volgende Seconde
        
Sub van het eind
Andere oplossingen  
 
programming4us programming4us