Программная работа с полями (формула)

[NomadV]

Задача: сделать двойную нумерацию страниц, обновляемую программно.
Соответственно, в одном поле будет код { PAGE }. В данном случае код присваивается полю элементарно:

Selection.Fields(1).Code.Text = "PAGE"

Но в другом поле нужна нумерация со сдвигом, т.е. кодом поля будет уже формула { = { PAGE} + 12 } к примеру. Причем если эту формулу вбивать вручную, то фигурные скобки надо обязательно вводить сочетанием клавиш CTRL+F9. Подробнее, кому интересно, тут:
http://office.microsoft.com/ru-ru/wo...349001049.aspx
Но вот как сделать это программно?
Такой вариант:

Selection.Fields(1).Code.Text = "PAGE + 3"

не работает.
Пробовал считывать свойство текст в уже готовом поле, определять ASCII-коды фигурных скобок и вставлять их в строку функцией Chr(). Или даже просто считывать свойство .Text, заменять в нем последний символ на нужную мне цифру и обратно присваивать эту строку свойству .Text. Каждый раз синтаксическая ошибка((
Может у кого есть опыт работы с подобного рода формулами? Подскажите как их правильно писать

[Aent]

Ну, например, так:

With ActiveDocument
       Selection.InsertFormula Formula:="=3+"
       .Fields.Add Range:=.Fields(.Fields.Count).Code.Characters(5), Type:=wdFieldPage
       .Fields.Update
End With

Ваша ошибка в том, что {=3+{PAGE}} это 2 поля а не одно.

[NomadV]

Большое спасибо!
Не сразу, правда, понял, как при помощи Вашего примера можно не добавлять, а изменять уже существующую нумерацию. Кроме того в моем случае Номер страницы находится в надписи, а надпись в колонтитуле и сгруппирована с рамкой.
Пришлось еще вчитаться в довольно познавательный сайт http://markros.ru/graphics/
В итоге получилось вот такое:

Shift = 3
For Each ShapeObj In ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary).Shapes
    If ShapeObj.Type = msoGroup Then
        For Each shpInShape In ShapeObj.GroupItems
          If shpInShape.textframe.HasText Then
            If shpInShape.textframe.TextRange.Fields.Count > 0 Then
                With shpInShape.textframe.TextRange
                    .Select
                    Selection.InsertFormula Formula:="=" & Shift & "+"
                    .Fields.Add Range:=.Fields(.Fields.Count).Code.Characters(5), Type:=wdFieldPage
                    .Fields.Update
                End With
            End If
          End If
        Next shpInShape
    End If
Next ShapeObj

Т.е. получается, что мы каждый раз заменяем содержимое надписи на новое. В принципе, результат работы программы меня полностью устраивает, но интересен такой вопрос: это единственный способ или формулу можно не только добавлять, но и модифицировать?

[Aent]

Естественно формулу можно модифицировать. Но если модифицируемыми операндами являются поля, то их нужно добавлять/удалять через модификацию коллекции Fields или её элементов.
Так же не очень понятно: зачем собственно вам модифицировать формулу?
Задавайте сдвиг в поле SET и используйте затем эту закладку вместе с PAGE.
{SET SSS 3} {= SSS +{PAGE}}

[NomadV]

Просто программирование в Word для меня пока малопонятно. И большинства возможностей его я не знаю. После Excel объектная модель Word выглядит довольно запутанной. Логику работы с полями и закладками я, видимо, тоже еще не до конца понял.
Где бы про это подробнее почитать? Ссылку не подкинете?

[Aent]

Про использование полей http://www.addbalance.com/usersguide/fields.htm
Про поля в VBA - HELP по объектной модели для 2003 Word.
Так же см.:
http://msdn.microsoft.com/en-us/libr...ice.10%29.aspx
http://gregmaxey.mvps.org/Field_Macros.htm
http://www.thezcorp.com/VBACodeSamples.aspx (cм. примеры к Fields)
Кстати, для второго уровня нумерации удобно использовать поле SEQ.

[Sasha_Smirnov]

Сообщение от NomadV

...Причем если эту формулу вбивать вручную, то фигурные скобки надо обязательно вводить сочетанием клавиш CTRL+F9. Подробнее, кому интересно, тут:
http://office.microsoft.com/ru-ru/wo...349001049.aspx
Но вот как сделать это программно?

Из окна документа Word фигурные скобки для полей вставляет

SendKeys "^{f9}", True

P/s: Aent, это, что называется, заметим в скобках. Так, для полноты.

[Aent]

SendKeys "^{f9}", True

Зачем же делать на VBA через пользовательский интерфейс то, что можно легко сделать через объектную модель ?