ModifyHeaderFields secondario ()
Sec fioca come Word.Section
Rng fioco come Word.Range
Fld fioco come Word.Field
H fioca come Word.WdHeaderFooterIndex
Regolare il rng = Selection.Range
Regolare sec = il rng. Sezioni (1)
Per la h = wdHeaderFooterPrimary a punto 2 di wdHeaderFooterEvenPages 'omette la prima intestazione di pagina
Per ogni fld in sec. Intestazioni (h). Range.Fields
il fld. Code.Text = sostituisce (fld. bookmark_DE \ h di riferimento “, di Code.Text„, “bookmark_EN \ h di riferimento„)
Fld seguente
H seguente
Sommergibile dell'estremità
|