Подскажите, как это правильно сделать?

вот так колонтитул с номером страницы добавляется, например

   Word=Новый COMОбъект("Word.Application");
   Word.Documents.Add();
   Док=Word.ActiveDocument();
   
   Док.Sections(1).footers(1).PageNumbers.Add(true,false);

+(1) А если нужен верхний колонтитул, то Headers

а как задать туда параметр. Например, как написать, чтобы в колонтитул передавалась переменная "СотрудникФио"+"___________"?

(3) Обычно документ предварительно заполняют параметрами, в процедуре подготовки документа к выводу заменяют параметры на нужные значения.
Например, так:
       
Замена=Документ.Sections(1).Footers(1).Range.Find;
Замена.Execute("<#ФИОСотра#>" , Ложь, Истина, Ложь, , , Истина, , Ложь, Сотрудник.Наименование + "___________");

спасибо

Блин, что то не получается. Смотрите, у меня такой текст. Все простые вордовые переменные меняются. А такая же переменная, нарисованная в нижнем колонтитуле не меняется. Остается как есть [сотрудникСПР]

       Заменить = Документ.Content.Find;
       Заменить.Execute("[ДатаДог]", Ложь, Истина, Ложь, , , Истина, , Ложь, ДатаДогЗапрос);
       Заменить = Документ.Content.Find;
       Заменить.Execute("[Организация]", Ложь, Истина, Ложь, , , Истина, , Ложь, ОрганизацияЗапрос);
       Заменить = Документ.Content.Find;
       Заменить.Execute("[Сотрудник]", Ложь, Истина, Ложь, , , Истина, , Ложь, СотрудникФИО+",");
       //Заменить = Документ.Content.Find;
       //Заменить.Execute("[ПодразделениеСпр]", Ложь, Истина, Ложь, , , Истина, , Ложь, ПодразделениеЗапрос+",");
       Заменить = Документ.Content.Find;
       Заменить.Execute("[АдресОрг]", Ложь, Истина, Ложь, , , Истина, , Ложь, АдресОРГЗапрос+",");
       Заменить = Документ.Content.Find;
       Заменить.Execute("[Должность]", Ложь, Истина, Ложь, , , Истина, , Ложь, ДолжностьЗапрос+",");
       
       Заменить = Документ.Content.Find;
       Заменить.Execute("[Организация1]", Ложь, Истина, Ложь, , , Истина, , Ложь, ОрганизацияЗапрос);
       //Заменить = Документ.Content.Find;
       //Заменить.Execute("[Тариф]", Ложь, Истина, Ложь, , , Истина, , Ложь, ТарифЗапрос);
       //Заменить = Документ.Content.Find;
       //Заменить.Execute("[Уральские]", Ложь, Истина, Ложь, , , Истина, , Ложь, УральскиеЗапрос);
       Заменить = Документ.Content.Find;
       Заменить.Execute("[Сотрудник1]", Ложь, Истина, Ложь, , , Истина, , Ложь, СотрудникФИО+",");
       Заменить = Документ.Content.Find;
       Заменить.Execute("[ПаспортСерия]", Ложь, Истина, Ложь, , , Истина, , Ложь, СерияЗапрос);
       Заменить = Документ.Content.Find;
       Заменить.Execute("[ПаспортНомер]", Ложь, Истина, Ложь, , , Истина, , Ложь, НомерЗапрос);
       Заменить = Документ.Content.Find;
       Заменить.Execute("[ПаспортДата]", Ложь, Истина, Ложь, , , Истина, , Ложь, ДатаЗапрос);
       Заменить = Документ.Content.Find;
       Заменить.Execute("[ПаспортВыдан]", Ложь, Истина, Ложь, , , Истина, , Ложь, ВыданЗапрос);
       Заменить = Документ.Content.Find;
       Заменить.Execute("[АдресПрописки]", Ложь, Истина, Ложь, , , Истина, , Ложь, АдресЗапрос);
       Заменить = Документ.Content.Find;
       Заменить.Execute("[СтраховойНомер]", Ложь, Истина, Ложь, , , Истина, , Ложь, СтраховойНомерЗапрос);
       
        //================================колонтитул тест
         Замена=Документ.Sections(1).Footers(1).Range.Find;
Замена.Execute("[СотрудникСпр]" , Ложь, Истина, Ложь, , , Истина, , Ложь, СотрудникФИО + "___________");
        //================================колонтитул тест

Замена=Документ.Sections(1).Footers(1).Item(1).Find;

ооо, с заменой в колонтитулах я долго любовью занимался. но сейчас быстро не найду

(7)
не проканало

+(8) кстати, решил самостоятельно с помощью гуглов и головы. автор, решение есть, ищи!

(9) не может быть

(11) да у него поди нужный айтем не 1

так тебе какой колонтитул нужен - верхний, или нижний?

(12) да вроде не может там быть более 1

(13)
нижний

тогда (11)

(12) а вот Section может быть и не первой...

Документ.Sections.Count чему равно?

Извиняюсь за свою невнимательность, код по замене не в то место вставил.
Изначальный вариант работает правильно, то есть правильно
         Замена=Документ.Sections(1).Footers(1).Range.Find;
Замена.Execute("[СотрудникСпр]" , Ложь, Истина, Ложь, , , Истина, , Ложь, СотрудникФИО + "___________");

(7) выдает ошибку

вот так вот - придут, напустят тумана, и в кусты

Я еще раз извиняюсь, но у меня еще один вопрос возник. Мне надо напечатать колонтитул на всех страницах, кроме последней. Как это настроить?

(21) последнюю переставить вперёд, и сказать, что колонтитул везде, кроме первой

(22)
ну у меня текствовый файл изначально по страницам не разбит, в зависимости от принтеров страницы могут меняться. Иначе я бы собственно не заморачивался с колонтитулами.

(23) в ворде руками сумеешь изобразить?

(24)
Ну фамилии разных длин, предприятия разных, адреса разные. Не получится строго страницы расположить в ворде.

(25) я про колонтитул

(26)
а как руками, есть только галки для первой страницы, четных и нечетных страниц?

(27) ну вот как сможешь, сразу пиши макрос и смотри, как это выглядит на языке ;)