Программно создать поле в колонтитуле

[Казанский]

А второй код?

[madster]

Сообщение от Казанский

Правильнее, конечно, вводить отдельные поля, иначе в другой локали "Стр. <№> из <всего>" не сработает:

With CreateObject("Word.Document")
  Set ptr = .Sections(1).Footers(1).Range
  ptr.InsertAfter "Стр. "
  ptr.MoveEnd 6         'wdStory
  ptr.Collapse 0        'wdCollapseEnd
  .Fields.Add ptr, 33   'wdFieldPage
  ptr.MoveEnd 6
  ptr.InsertAfter " из "
  ptr.MoveEnd 6
  ptr.Collapse 0
  .Fields.Add ptr, 26   'wdFieldNumPages
  .Application.Visible = True
End With

Наверно, можно сдвигать и коллапсировать Range в одно действие. Кто-нибудь знает, как?

Спасибо! Всё получилось!