Pergunta : Código de campo em mudança do encabeçamento atual

Caros peritos: o

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

Access 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. a esperança do

I isto é praticável.

Thank você muito adiantado.

Regards, Andreas class= do

Resposta : Código de campo em mudança do encabeçamento atual

Olá! Andreas, vê se este trabalha em todos os casos.
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

ModifyHeaderFields secundário ()
    Segundo não ofuscante como Word.Section
    Rng não ofuscante como Word.Range
    Fld não ofuscante como Word.Field
    H não ofuscante como Word.WdHeaderFooterIndex
    
    Ajustar o rng = o Selection.Range
    Ajustar o segundo = o rng. Seções (1)
    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
            o fld. Code.Text = substitui (fld. bookmark_DE de Code.Text, de “referência \ h”, da “bookmark_EN referência \ h”)
        Fld seguinte
    H seguinte
Submarino da extremidade
Outras soluções  
 
programming4us programming4us