Программное управление кодом поля

[DBEER]

Коллеги, кто знает, где описано, как из VBA управлять/писать .Fields....Code.Text, и чтобы при этом еще и работало.
С песнями и плясками через штатный интерфейс Word`a создаю поле, где в коде:
(1) { = { PAGE } + 2 } (по кр.мере, это видно глазами) , когда руками вкл. видимость кодов в поле
при отладке в Watch и Immediate видно что-то типа:
(2) = □ PAGE □ + 2
если прогаммно писать в .Fields....Code.Text то, что в строке (1), то поле не работает ("..ошибка..")
То же самое, если, например, запомнить в varSTR содержимое .Fields....Code.Text, а потом обратно его же и запихать туда.

Потребность возникла при упражнениях с нумерацией страниц при программной вставке/удалении новых разделов
(манипулирую колонтитулами "Как в предыдущем"= False; "различать кол..лы 1 стр. и послед"=False).
После нескольких телодвижений "слетает" поле с Нум.страниц в том разделе, что после вставленного.
При этом остальные конструкции колонтитула живы.
КОроче, пока найдется первопричина, я захотел просто программно восстановить формулу/код в этом поле.
Поле программно в отладчике трогаю, оно есть, но не отображается. Хочу написать туда снова код поля, а оно всё ошибочно!! Как жить дальше?!!

[viter.alex]

То, что в поле отображается как фигурные скобки — это символы Chr(19) и Chr(21) для открывающей и закрывающей скобок соответственно. Так что просто так задать поле текстом не получится. Конечно, можно последовательно добавлять поля, сначала поле { = + 2}, потом внутрь него полe { PAGE ), но геморрой это ещё тот:

  Dim oRng As Range
  Set oRng = ActiveDocument.Range
  Dim oFld As Fied
  Set oFld = Selection.Fields.Add(Selection.Range, wdFieldEmpty, "= + 2")
'  Диапазон, куда вставлять новое поле
  oRng.SetRange oFld.Code.Start, oFld.Code.Start
'  Перемещаем начало диапазона после знака "="
  oRng.Move wdCharacter, 3
  oFld.Code.Fields.Add oRng, wdFieldPage, ""