Cuestión : Colocando a través de 4 secciones, códigos de campo cambiantes en jefes

Con el cursor residiendo en una cierta sección de mi documento, quisiera realizar el siguiente: el acceso del

- la página IMPAR y el jefe de página UNIFORME de la sección donde reside el cursor actual adentro y cambia el código de campo {bookmark_DE \ h de la referencia} a {el bookmark_EN \ h de la referencia} usar VBA. (Que es lo que está haciendo el código below) el

- el código debe ENTONCES ENCENDERSE encendido y el lazo a través de las 3 (tres) secciones siguientes y cambiar el código de campo existente {bookmark_DE \ h de la referencia} en incluso y jefes de página impares en la orden siguiente… a la esperanza del

I del
{el bookmark_IT \ h del
{bookmark_FR \ h del
{bookmark_ES \ h de la referencia} de la referencia} de la referencia} esto es factible.

Thank usted mucho por adelantado para su ayuda.

Regards, Andreas class= > " claro " 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

Respuesta : Colocando a través de 4 secciones, códigos de campo cambiantes en jefes

Aquí está uno que me preparé anterior (antes de almorzar)
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:

ModifyHeaderFields secundario ()
    Sec dévil como Word.Section
    Fld dévil como Word.Field
    S dévil como número entero
    secStart dévil como número entero
    Langs déviles () como secuencia
    H dévil como Word.WdHeaderFooterIndex
    
    los langs = partieron (“EN, ES, franco, ÉL”,”, ")
    
    secStart = Selection.Sections (1).Index
    Para s = 0 a 3
        Fijar el sec = ActiveDocument.Sections (secStart + s)
        Para h = wdHeaderFooterPrimary al paso 2 de los wdHeaderFooterEvenPages 'omite el primer jefe de página
            Para cada fld en sec. Jefes (h). Range.Fields
                Si fld. Tipo = wdFieldRef después
                    el fld. Code.Text = substituye (el fld. Code.Text, “bookmark_DE”, el “bookmark_” y
                    fld. Actualización
                Terminar si
            Fld siguiente
        H siguiente
    S siguiente
Submarino del extremo
Otras soluciones  
 
programming4us programming4us