Sub ModifyHeaderFields ()
Schemerige seconde als Word.Section
Schemerige rng als Word.Range
Schemerige fld als Word.Field
Schemerig h als Word.WdHeaderFooterIndex
Reeks rng = Selection.Range
Vastgesteld seconde = rng. Secties (1)
Voor h = wdHeaderFooterPrimary aan wdHeaderFooterEvenPagesStap 2 'laat eerste paginakopbal weg
Voor Elke fld in seconde. Kopballen (h). Range.Fields
fld. Code.Text = vervang (fld. Code.Text, „ref bookmark_DE \ h“, „ref bookmark_EN \ h“)
Volgende fld
Volgende h
Sub van het eind
|