Pergunta : Dando laços através de 4 seções, códigos de campo em mudança nos encabeçamentos

Com o cursor que reside em alguma seção de meu original, eu gostaria de executar o seguinte: o acesso do

- a página IMPAR e o encabeçamento de página UNIFORME da seção onde o cursor reside atualmente dentro e muda o código de campo {bookmark_DE da referência \ h} a {bookmark_EN da referência \ h} using VBA. (Que é o que o código below está fazendo) o

- o código deve ENTÃO IR SOBRE sobre e o laço através das seguintes 3 (três) seções e para mudar mesmo o código de campo existente {bookmark_DE da referência \ h} no e em encabeçamentos de página impares na seguinte ordem… à esperança do

I do
do
do
{bookmark_ES da referência \ h} {bookmark_FR da referência \ h} {o bookmark_IT da referência \ h} isto é praticável.

Thank você muito adiantado para sua ajuda.

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

Resposta : Dando laços através de 4 seções, códigos de campo em mudança nos encabeçamentos

Está aqui um que eu me preparei mais cedo (antes do almoço)
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:

ModifyHeaderFields secundário ()
    Segundo não ofuscante como Word.Section
    Fld não ofuscante como Word.Field
    S não ofuscante como o inteiro
    secStart não ofuscante como o inteiro
    Langs não ofuscantes () como a corda
    H não ofuscante como Word.WdHeaderFooterIndex
    
    langs = separação (“EN, ES, franco, ELE”,”, ")
    
    secStart = Selection.Sections (1). Índice
    Para s = 0 a 3
        Ajustar o segundo = o ActiveDocument.Sections (secStart + s)
        Para h = wdHeaderFooterPrimary a etapa 2 dos wdHeaderFooterEvenPages 'omite o primeiro encabeçamento de página
            Para cada fld no segundo. Encabeçamentos (h). Range.Fields
                Se fld. Tipo = wdFieldRef então
                    o fld. Code.Text = substitui (fld. Code.Text, “bookmark_DE”, o “bookmark_” &
                    fld. Atualização
                Terminar se
            Fld seguinte
        H seguinte
    S seguinte
Submarino da extremidade
Outras soluções  
 
programming4us programming4us