Pytanie : Śródpolny kod aktualny chodnikowiec

Kochany Ekspert:

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

Access 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.

I nadzieja to być prawdopodobny.

Thank ty bardzo mocno w postęp.

Regards, Andreas

Odpowiedź : Śródpolny kod aktualny chodnikowiec

Cześć Andreas, widzieć jeżeli skrzynka pracować w wszystkie skrzynka.
(1):
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

Okręt podwodny 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
Inne rozwiązania  
 
programming4us programming4us