ModifyHeaderFields secondaire ()
Faible sec comme Word.Section
Faible rng comme Word.Range
Faible fld comme Word.Field
Faible h comme Word.WdHeaderFooterIndex
Placer le rng = le Selection.Range
Placer sec = le rng. Sections (1)
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
le fld. Code.Text = remplacent (fld. bookmark_DE de Code.Text, « de référence \ h », « bookmark_EN de référence \ h »)
Prochain fld
Prochain h
Sous-marin d'extrémité
|