Vraag : Van een lus voorziend door 4 secties, veranderende gebiedscodes in kopballen

Met de curseur die in één of ander hoofdstuk van mijn document verblijven, zou ik het volgende willen uitvoeren: />- Toegang


- de code DAN OP en lijn door de volgende 3 (drie) secties moeten GAAN en de bestaande gebiedscode {ref bookmark_DE \ h} in de gelijke en oneven paginakopballen in de volgende orde…/> {ref bookmark_ES \ h}
{ref bookmark_FR \ h}
{ref bookmark_IT \ h}

I hoop

Thank u zeer vooraf voor uw hulp.

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

Sub ModifyHeaderFields ()
    Schemerige seconde als Word.Section
    Schemerige rng als Word.Range
    Schemerige fld als Word.Field
    Schemerig h als Word.WdHeaderFooterIndex
    
    Reeks rng = Selection.Range
    Vastgesteld seconde = rng. Secties (1)
    Voor h = wdHeaderFooterPrimary aan wdHeaderFooterEvenPagesStap 2 'laat eerste paginakopbal weg
        Voor Elke fld in seconde. Kopballen (h). Range.Fields
            fld. Code.Text = vervang (fld. Code.Text, „ref bookmark_DE \ h“, „ref bookmark_EN \ h“)
        Volgende fld
    Volgende h
Sub van het eind

Antwoord : Van een lus voorziend door 4 secties, veranderende gebiedscodes in kopballen

Hier is één ik (voor de lunch) vroeger voorbereidde
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:

Sub ModifyHeaderFields ()
    Schemerige seconde als Word.Section
    Schemerige fld als Word.Field
    Schemerig s als Geheel
    Schemerige secStart als Geheel
    Schemerige langs () als Koord
    Schemerig h als Word.WdHeaderFooterIndex
    
    langs = verdeel („EN, S, Fr, IT“,“, „)
    
    secStart = Selection.Sections (1). Index
    Voor s = 0 tot 3
        Vastgesteld seconde = ActiveDocument.Sections (secStart + s)
        Voor h = wdHeaderFooterPrimary aan wdHeaderFooterEvenPagesStap 2 'laat eerste paginakopbal weg
            Voor Elke fld in seconde. Kopballen (h). Range.Fields
                Als fld. Type = wdFieldRef toen
                    fld. Code.Text = vervang (fld. Code.Text, „bookmark_DE“, „bookmark_“ & langs)
                    fld. Update
                Eind als
            Volgende fld
        Volgende h
    Volgende s
Sub van het eind
Andere oplossingen  
 
programming4us programming4us