Fråga : Kretsa till och med 4 delar upp och att ändra sätter in kodifierar i titelrader

Med markören som bor i något, dela upp av mitt dokument, mig skulle något liknande för att utföra efter:

- tar fram UDDA sidan, och ÄVEN sidatitelraden av dela upp, var markören bor för närvarande in, och ändrar sätta in kodifierar {referens-bookmark_DE \ H} till {referens-bookmark_EN \ H} using VBA. (Som är vad det nedanfört kodifierar gör),

- kodifiera bör DÄREFTER GÅ PÅ på, och att kretsa till och med efter 3 (tre) delar upp och ändrar det existerande sätter in kodifierar {referens-bookmark_DE \ H} i även, och udda sidatitelrader i hoppet för

I för
{referens-bookmark_IT \ H} för
{referens-bookmark_FR \ H} för beställa…
{referens-bookmark_ES \ H} detta är efter görliga.

Thank dig mycket i förskott för din hjälp.

Regards, Andreas > för 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
" codeBody " " >Sub ModifyHeaderFields för class= " för
" klar "

Svar : Kretsa till och med 4 delar upp och att ändra sätter in kodifierar i titelrader

Är här en förberedd tidigare för I (för lunch)
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:

UnderModifyHeaderFields ()
    Dunkel sekund som Word.Section
    Dunkel fld som Word.Field
    Dunkelt s som heltal
    Dunkel secStart som heltal
    Dunkla langs () som stränger
    Dunkelt H som Word.WdHeaderFooterIndex
    
    langs = splittring (”EN, ES, FR, DET”,”, ”)
    
    secStart = Selection.Sections (1). Index
    För s = 0 till 3
        Fastställd sekund = ActiveDocument.Sections (secStart + s)
        För H = wdHeaderFooterPrimary till wdHeaderFooterEvenPages kliver 2 'utelämnar den första sidatitelraden
            För varje fld i sekund. Titelrader (H). Range.Fields
                Om fld. Typ = wdFieldRef därefter
                    fld. Code.Text = byter ut (fld. Code.Text, ”bookmark_DE”, ”bookmark_” &
                    fld. Uppdatering
                Avsluta om
            Nästa fld
        Nästa H
    Nästa s
Avsluta suben
Andra lösningar  
 
programming4us programming4us