Pytanie : Zapętlać przez 4 sekcja, śródpolny kod w chodnikowiec

Z the kursor w niektóre sekcja mój dokument, I polubić the następujący:

- Dostęp the DZIWNY strona i PARZYSTY, RÓWNY strona chodnikowiec the sekcja dokąd the kursor obecnie przebywać wewnątrz i zmieniać the śródpolny kod {REF bookmark_DE \ h} {REF bookmark_EN \ h} using VBA. (Który być ( the ( kod robić)

- The kod musieć WTEDY DALEJ dalej i przez the następujący 3 (trzy) sekcja i the istniejący śródpolny kod {REF bookmark_DE \ h} w the wyrównywać i dziwny strona chodnikowiec w the następujący rozkaz…
{REF bookmark_ES \ h}
{REF bookmark_FR \ h}
{REF bookmark_IT \ h}

I nadzieja ) być prawdopodobny.

Thank ty bardzo mocno w postęp dla twój pomoc.

Regards, Andreas 
(1):
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

Sub ModifyHeaderFields ()
    Ciemnawy sec Jako Word.Section
    Ciemnawy rng Jako Word.Range
    Ciemnawy fld Jako Word.Field
    Ciemnawy h Jako Word.WdHeaderFooterIndex
    
    Ustalony rng = Selection.Range
    Ustalony sec = rng. Sekcja (1)
    Dla h = wdHeaderFooterPrimary WdHeaderFooterEvenPages Krok 2 'pomijać pierwszy strona chodnikowiec
        Dla Fld fld W sec. Chodnikowiec (h). Range.Fields
            fld. Code.Text = Zamieniać (fld. Code.Text, "REF bookmark_DE \ h", "REF bookmark_EN \ h")
        Następny fld
    Następny h
Końcówka Okręt podwodny

Odpowiedź : Zapętlać przez 4 sekcja, śródpolny kod w chodnikowiec

Tutaj być jeden I przygotowywać wczesny (przed lunch)
(1):
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:

Okręt podwodny ModifyHeaderFields ()
    Ciemnawy sec Jako Word.Section
    Ciemnawy fld Jako Word.Field
    Ciemnawy s Jako Integer
    Ciemnawy secStart Jako Integer
    Ciemnawy langs () Sznurek
    Ciemnawy h Jako Word.WdHeaderFooterIndex
    
    langs = Rozłam ("EN, ES, FR, ONO",", ")
    
    secStart = Selection.Sections (1).Index
    Dla s = (0) 3
        Ustalony sec = ActiveDocument.Sections (secStart + s)
        Dla h = wdHeaderFooterPrimary WdHeaderFooterEvenPages Krok 2 'pomijać pierwszy strona chodnikowiec
            Dla Fld fld W sec. Chodnikowiec (h). Range.Fields
                Jeżeli fld. Typ = wdFieldRef Wtedy
                    fld. Code.Text = Zamieniać (fld. Code.Text, "bookmark_DE", "bookmark_" &
                    fld. Aktualizacja
                Kończyć Jeżeli
            Następny fld
        Następny h
    Następny s
Końcówka Okręt podwodny
Inne rozwiązania  
 
programming4us programming4us