Pytanie : Tworzyć bookmarks dla pewny sekcja

Kochany Ekspert:

below macro wykonywać the następujący:
Each sekcja który zawierać the obmurowany kłoszenie styl (wdStyleHeading2) dostawać obmurowany. The the bookmarks być podążać: Section_Bookmark_i (i = sekwencyjny liczba).

This macro musieć przepisywać…
… tak, że the bookmarks dostawać zwany: Section_Bookmark_DE; Section_Bookmark_EN; Section_Bookmark_ES; Section_Bookmark_FR; Section_Bookmark_IT (który być the bookmark imię "Section_Bookmark_" dostawać ono DE, EN, ES, FR, ONO).

The stosować wszystkie the dokument przeciw che ten macro biegać:
There być zawsze dokładnie 5 sekcja który dopasowywać the wymaganie…
… (ReDim HasHeading2 (ActiveDocument.Sections.Count))

Help dużo doceniać. Dziękować ty bardzo mocno w postęp.

Regards, Andreas 
(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 ()
    Ciemnawy HasHeading2 () Boolowski
    Ciemnawy rng Pasmo
    Ciemnawy Sec Jako Sekcja
    Ciemnawy para Akapit
    Ćmić i Jako Integer
    
    i = (1)

Ustalony rng = ActiveDocument.Range
 
 ReDim HasHeading2 (ActiveDocument.Sections.Count)
    Ustalony rng = ActiveDocument.Range
    Z rng. Znalezisko
        . Format = Prawdziwy
        . Styl = ActiveDocument.Styles (wdStyleHeading2)
        Robić Podczas Gdy. Wykonywać (Opakunek: =wdFindStop)
           HasHeading2 (rng. Sekcja (1).Index) = Prawdziwy
        Pętla
    Końcówka Z
    Dla ActiveDocument.Sections Sec W ActiveDocument.Sections
        Ustalony rng = Sec.Range
        Jeżeli HasHeading2 (Sec.Index) Wtedy
            ActiveDocument.Bookmarks.Add "Section_Bookmark_" & i, rng
            ActiveDocument.UndoClear
            i = i + (1)
        Kończyć Jeżeli
    Następny Sec
        
Końcówka Okręt podwodny

Odpowiedź : Tworzyć bookmarks dla pewny sekcja

To być mały polepszenie.
(1):
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:

Okręt podwodny BKMCreatePerSection2 ()
    Ciemnawy rng Pasmo
    Ciemnawy Sec Jako Sekcja
    Ćmić i Jako Integer
    Ćmić Przyrostek () Sznurek
    Ćmić rngBookmark Pasmo
    
    Przyrostek = Rozłam ("DE, EN, ES, FR, ONO",", ")
 
    Dla ActiveDocument.Sections Sec W ActiveDocument.Sections
        Ustalony rng = Sec.Range
        Z rng. Znalezisko
            . Format = Prawdziwy
            . Styl = ActiveDocument.Styles (wdStyleHeading2)
            Ustalony rngBookmark = Sec.Range
            rngBookmark.MoveEnd wdCharacter, -1
            Jeżeli. Wykonywać Wtedy
                ActiveDocument.Bookmarks.Add "Section_Bookmark_" & Przyrostek (i), rngBookmark
                i = i + (1)
            Kończyć Jeżeli
        Kończyć Z
    Następny Sec
        
Końcówka Okręt podwodny
Inne rozwiązania  
 
programming4us programming4us