Questione : Generare i segnalibri per determinate sezioni

Cari esperti: la macro del

below effettua quanto segue: la sezione del
Each che contiene lo stile incorporato dell'intestazione (wdStyleHeading2) ottiene bookmarked. La nomina dei segnalibri è come segue: Section_Bookmark_i (i = numero sequenziale). la macro del

This dovrebbe essere…
… in modo che i segnalibri ottengano chiamati: Section_Bookmark_DE; Section_Bookmark_EN; Section_Bookmark_ES; Section_Bookmark_FR; Section_Bookmark_IT (che è il nome “Section_Bookmark_„ del segnalibro ottiene allegato dal DE, dall'en, dall'es, dal franco, ESSO). seguire del

The si applica a tutti i documenti contro cui questa macro è fatta funzionare: il
There è sempre esattamente 5 sezioni che abbinano il
di requisito…… (ReDim HasHeading2 (ActiveDocument.Sections.Count))il

Help molto è apprezzato. Grazie molto in anticipo.

Regards, Andreas class= > " libero " del
> " del codeSnippet " del class= del
class= " lineNumbers " del
class= del 
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 notpretty BKMCreatePerSection " del class= " del id= " codeSnippet829379 del
class= del

Risposta : Generare i segnalibri per determinate sezioni

Quello è un piccolo ritocco.
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:

BKMCreatePerSection2 secondari ()
    Rng fioco come gamma
    Sec fioca come sezione
    Oscurare la i come numero intero
    Oscurare il suffisso () come stringa
    Oscurare il rngBookmark come gamma
    
    Il suffisso = ha spaccato (“DE, en, es, franco, ESSO„,„, ")
 
    Per ogni sec in ActiveDocument.Sections
        Regolare il rng = Sec.Range
        Con rng. Ritrovamento
            . La disposizione = allinea
            . Stile = ActiveDocument.Styles (wdStyleHeading2)
            Regolare il rngBookmark = Sec.Range
            wdCharacter di rngBookmark.MoveEnd, -1
            Se. Allora eseguire
                ActiveDocument.Bookmarks.Add “Section_Bookmark_„ & suffisso (i), rngBookmark
                i = i + 1
            Concluder se
        Concluder con
    La sec prossima
        
Sommergibile dell'estremità
Altre soluzioni  
 
programming4us programming4us