Добавление текста в колонтитул документа

[Serge]

Как выполнить такую операцию? А из другого приложения?
Я так понимаю что нужно юзать ActiveX, но какой для этого нужен объект и свойства - не знаю.

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

Думаю это все VBA умеет, только я не знаю какие методы нужны

[Bikutoru]

В Excel можно сделать так

Код: Выделить всё

With ActiveWorkSheet.PageSetup
    .LeftHeader="1"
    .CenterHeader="2"
    .RightHeader="3"
    .LeftFooter="1"
    .CenterFooter="2"
    .RightFooter="3"
End With

В Word аналогично, только вместо WorkSheet используется Document...

[Serge]

OOPS...
Compile error:
Method or data member not found.
ОЙ, о чем это он...
Может объектная модель все же отличается?

[Игорь Акопян]

старутем в Ворде запись макроса, выполняем задание колонтитула, останавливаем запись. Переходим в ВБА - и изучаем методы и свойства использованные для этого...

[Serge]

по этому методу получается так:

ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
Selection.TypeText Text:="1234567"
ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument

[Bikutoru]

OOPS...
Compile error:
Method or data member not found.
ОЙ, о чем это он...
Может объектная модель все же отличается?

И правда ошибка... А вот такой код работает без проблем (в Excel 2000)

Код: Выделить всё

Public Sub NewDoc&#40]

[Serge]

Ну так я ж и говорю, что объектные модели оличаются...
Я искал .*Header в классе PageSetup Ворда, ничего нет.