Questione : Collegando attraverso 4 sezioni, codici di campo cambianti in intestazioni

Con il cursore che risiede in una certa sezione del mio documento, vorrei effettuare quanto segue: l'accesso del

- la pagina DISPARI e l'intestazione di pagina PERFINO della sezione in cui il cursore attualmente risiede dentro e cambia il codice di campo {bookmark_DE \ h di riferimento} a {bookmark_EN \ h di riferimento} using VBA. (Che è che cosa il codice sotto sta facendo) il

- il codice dovrebbe ALLORA ACCENDERE sopra ed il ciclo attraverso le seguenti 3 (tre) sezioni e cambiare il codice di campo attuale {bookmark_DE \ h di riferimento} persino e nelle intestazioni di pagina dispari nel seguente ordine… a speranza del

I del
{bookmark_IT \ h del
{bookmark_FR \ h del
{bookmark_ES \ h di riferimento} di riferimento} di riferimento} questo è fattibile.

Thank voi molto in anticipo per il vostro aiuto.

Regards, Andreas class= > " libero " del
> " del codeSnippet " del class= del
class= " lineNumbers " del
class= del 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
>Sub notpretty ModifyHeaderFields " del class= " del id= " codeSnippet780815 del
class= del

Risposta : Collegando attraverso 4 sezioni, codici di campo cambianti in intestazioni

Qui è uno che ho preparato più presto (prima di pranzare)
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:

ModifyHeaderFields secondario ()
    Sec fioca come Word.Section
    Fld fioco come Word.Field
    S fioca come numero intero
    secStart fioco come numero intero
    Langs fiochi () come stringa
    H fioca come Word.WdHeaderFooterIndex
    
    i langs = hanno spaccato (“en, es, franco, ESSO„,„, ")
    
    secStart = Selection.Sections (1).Index
    Per s = 0 - 3
        Regolare sec = ActiveDocument.Sections (secStart + s)
        Per la h = wdHeaderFooterPrimary a punto 2 di wdHeaderFooterEvenPages 'omette la prima intestazione di pagina
            Per ogni fld in sec. Intestazioni (h). Range.Fields
                Se fld. Tipo = wdFieldRef allora
                    il fld. Code.Text = sostituisce (fld. Code.Text, “bookmark_DE„, “bookmark_„ &
                    fld. Aggiornamento
                Concluder se
            Fld seguente
        H seguente
    S seguente
Sommergibile dell'estremità
Altre soluzioni  
 
programming4us programming4us