Кто работал с колонтитулами в Ворде - киньте примером пжалста.
Суть - заменить часть текста колонтитула нужным.
С основным текстом проблем не возникает.
Cont.Find.Execute("[Комментарий]",0,0,,,,,,,Комментарий,2);  

Как "залезть" в колонтитул, чтобы там запустить процедуру замены?

Documents(j).Sections(k).Footers(1).Range.Find.Execute FindText:=Text1, _
                            ReplaceWith:=Text2, Replace:=wdReplaceAll
               Documents(j).Sections(k).Headers(1).Range.Find.Execute FindText:=Text1, _
                            ReplaceWith:=Text2, Replace:=wdReplaceAll


Разберешься?

Только до ветки добрался...
(1) Да, спасибо, помогло.

Прилагаю в 1Cовском варианте (кому-нибудь да понадобится):

Word = СоздатьОбъект("Word.Application");
WordDoc = Word.Documents;
Docum = WordDoc.Add(ИмяФайла);  
Docum.Sections(1).Headers(1).Range.Find.Execute("[ФамилияИнициалы]",0,0,,,,,,,ФамилияИнициалы,2);//верхний колонтитул
Docum.Sections(1).Footers(1).Range.Find.Execute("[ФамилияИнициалы]",0,0,,,,,,,ФамилияИнициалы,2);//нижний колонтитул