Frage : Schleifung durch 4 Abschnitte, ändernde Feldschlüssel in den Überschriften

Wenn der Cursor in irgendeinem Abschnitt liegt, meines Dokuments, möchte ich das folgende durchführen:

- Zugang die UNGERADE Seite und die Überschrift DER GLEICHMÄSSIGEN Seite des Abschnitts, in dem der Cursor z.Z. innen liegt und ändern den Feldschlüssel {Hinweis bookmark_DE \ h} zu {Hinweis bookmark_EN \ h} using VBA. (Das ist, was der below Code tut), sollte

- der Code DANN an WEITERGEHEN und Schleife durch die folgenden 3 (drei) Abschnitte und den vorhandenen Feldschlüssel {Hinweis bookmark_DE \ h} in und in den ungeraden Seitenüberschriften im Folgenden Auftrag…
{Hinweis bookmark_ES \ h} sogar zu ändern
{Hinweis bookmark_FR \ h}
{Hinweis bookmark_IT \ h}

I zur Hoffnung dieses ist durchführbar.

Thank Sie sehr viel im Voraus für Ihre Hilfe.

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

Sub ModifyHeaderFields ()
    Schwache sek als Word.Section
    Schwaches rng als Word.Range
    Schwaches fld als Word.Field
    Schwaches h als Word.WdHeaderFooterIndex
    
    Rng = Selection.Range einstellen
    Sek = rng einstellen. Abschnitte (1)
    Für lassen h = wdHeaderFooterPrimary zu wdHeaderFooterEvenPages Schritt 2 'erste Seitenüberschrift aus
        Für jedes fld in der sek. Überschriften (h). Range.Fields
            fld. Code.Text = ersetzen (fld. Code.Text, „Hinweis bookmark_DE \ h“, „Hinweis bookmark_EN \ h“)
        Folgendes fld
    Folgendes h
Enden-Unterseeboot

Antwort : Schleifung durch 4 Abschnitte, ändernde Feldschlüssel in den Überschriften

Ist hier ein, das ich mich früh vorbereitete (vor dem Mittagessen)
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:

VorModifyHeaderFields ()
    Schwache sek als Word.Section
    Schwaches fld als Word.Field
    Schwaches s als ganze Zahl
    Schwaches secStart als ganze Zahl
    Schwache langs () als Schnur
    Schwaches h als Word.WdHeaderFooterIndex
    
    langs = spalteten auf sich („en, ES, Franc, ES“,“, ")
    
    secStart = Selection.Sections (1).Index
    Für s = 0 bis 3
        Sek = ActiveDocument.Sections (secStart + s) einstellen
        Für lassen h = wdHeaderFooterPrimary zu wdHeaderFooterEvenPages Schritt 2 'erste Seitenüberschrift aus
            Für jedes fld in der sek. Überschriften (h). Range.Fields
                Wenn fld. Art = wdFieldRef dann
                    fld. Code.Text = ersetzen (fld. Code.Text, „bookmark_DE“, „bookmark_“ u.
                    fld. Update
                Beenden wenn
            Folgendes fld
        Folgendes h
    Folgendes s
Enden-Unterseeboot
Weitere Lösungen  
 
programming4us programming4us