Question : Faisant une boucle par 4 sections, codes de champ changeants dans les en-têtes

Avec le curseur résidant dans une certaine section de mon document, je voudrais exécuter ce qui suit : l'accès du

- la page IMPAIRE et l'en-tête ÉGAL de la section où le curseur réside actuellement dedans et changent le code de champ {bookmark_DE de référence \ h} en {bookmark_EN de référence \ h} using VBA. (Est à dire qui ce que le code ci-dessous fait) le

- le code devrait ALORS CONTINUER dessus et la boucle par les 3 (trois) sections suivantes et changer le code de champ existant {bookmark_DE de référence \ h} dans même et les en-têtes impairs dans l'ordre suivant en… espoir du

I du
{bookmark_IT de référence \ h} du
{bookmark_FR de référence \ h} du
{bookmark_ES de référence \ h} ceci est faisable.

Thank vous beaucoup à l'avance pour votre aide.

Regards, Andreas class= > " clair " de
> de " codeSnippet " de class= de
class= " lineNumbers " de
class= de 
1 :
2 :
3 :
4 :
5 :
6 :
7 :
8 :
9 :
10 :
11 :
12 :
13 :
14 :
>Sub " de l'id= " codeSnippet780815 de
class= de

Réponse : Faisant une boucle par 4 sections, codes de champ changeants dans les en-têtes

Voici on que j'ai préparé plus tôt (avant le déjeuner)
1 :
2 :
3 :
4 :
5 :
6 :
7 :
8 :
9 :
10 :
11 :
12 :
13 :
14 :
15 :
16 :
17 :
18 :
19 :
20 :
21 :
22 :
23 :

ModifyHeaderFields secondaire ()
    Faible sec comme Word.Section
    Faible fld comme Word.Field
    Faible s comme nombre entier
    Faible secStart comme nombre entier
    Faibles langs () comme corde
    Faible h comme Word.WdHeaderFooterIndex
    
    les langs = se sont dédoublés (« en, es, franc, IL », », ")
    
    secStart = Selection.Sections (1).Index
    Pour s = 0 à 3
        Placer sec = ActiveDocument.Sections (secStart + s)
        Pour h = wdHeaderFooterPrimary à l'étape 2 de wdHeaderFooterEvenPages 'omettent le premier en-tête
            Pour chaque fld en sec. En-têtes (h). Range.Fields
                Si fld. Type = puis wdFieldRef
                    le fld. Code.Text = remplacent (fld. Code.Text, « bookmark_DE », « bookmark_ » et
                    fld. Mise à jour
                Finir si
            Prochain fld
        Prochain h
    Prochain s
Sous-marin d'extrémité
Autres solutions  
  •  MS Excel 2007 et pdf - l'exportation vers le pdf prend de longues heures !
    •
  •  Dans le Perl, comment j'ajoute une valeur à la liste, puis le contrôle pour voir si la valeur existent avant d'ajouter une nouvelle valeur
    •
  •  Comment fais j'initialiser de la HP BL460c G6 de san et de la HP XP 240000
    •
  •  Comment fais j'employer une clef de permis de volume sur un ordinateur de HP avec du CD de restauration
    •
  •  Emplacement primaire de deux SCCM dans l'annuaire actif
    •
  •  L'initiateur et la HP D2D de l'iSCSI R2 du serveur 2008 de Windows GERCENT l'issue
    •
  •  Stocker le dossier dans le mysql using connector.net et le champ de goutte
    •
  •  Carte vidéo d'USB - bit 32 sur le matériel travaillant au niveau du bit 64 ?
    •
  •  asp.net que j'essaye de convertir une forme de HTML en forme d'aspx ou ? ce qui jamais. Aide du besoin sur la façon dont à à elle.
    •
  •  Winzip 12 issues de secours du travail ?
    •
     
    programming4us programming4us