Sub ModifyHeaderFields ()
Тусклый sec как Word.Section
Тусклое rng как Word.Range
Тусклое fld как Word.Field
Тусклый h как Word.WdHeaderFooterIndex
Установите rng = Selection.Range
Установите sec = rng. Разделы (1)
Для h = wdHeaderFooterPrimary к разделу 2 wdHeaderFooterEvenPages 'снимает первый коллектор страницы
Для каждого fld в sec. Коллекторы (h). Range.Fields
fld. Code.Text = заменяет ть (fld. bookmark_DE Code.Text, «REF \ h», «bookmark_EN REF \ h»)
Следующее fld
Следующий h
Подводная лодка конца
|