ModifyHeaderFields secundario ()
Sec dévil como Word.Section
Rng dévil como Word.Range
Fld dévil como Word.Field
H dévil como Word.WdHeaderFooterIndex
Fijar el rng = Selection.Range
Fijar el sec = el rng. Secciones (1)
Para h = wdHeaderFooterPrimary al paso 2 de los wdHeaderFooterEvenPages 'omite el primer jefe de página
Para cada fld en sec. Jefes (h). Range.Fields
el fld. Code.Text = substituye (el fld. el bookmark_DE \ h de Code.Text, “de la referencia”, el “bookmark_EN \ h de la referencia”)
Fld siguiente
H siguiente
Submarino del extremo
|