MSWord = Шаблон.Получить();    
Документ = MSWord.Application.Documents(1);
Документ.Activate();        
Замена = Документ.Content.Find;
Украла где-то кучу полезных слов, всё получается, кроме колонтитула! Его тоже нужно определять из 1С.
Как?

Как откусить последний знак? Я умею только криво!
   Поставщик="";    
   Для Каждого СтрРез из  РезЗапроса Цикл
       Поставщик=Поставщик+ СтрРез.Ссылка.ДоговорКонтрагента.Владелец.Наименование+ "(ОГРН "+СтрРез.Ссылка.ДоговорКонтрагента.Владелец.хлОГРН+"), ";
   КонецЦикла;
Мне последнюю запятую нужно убрать.

вот это вот лучше в запросе получать
СтрРез.Ссылка.ДоговорКонтрагента.Владелец.Наименование

откусываем с помощью Сред

А я в запросе и получила. Сред - надо последний знак знать, а я не помню, в 7 - вроде СтрДлина, а в 8 что?
И очень беспокоит колонтитул!

Поставщик="";  
 
   Для Каждого СтрРез из  РезЗапроса Цикл
     Если Поставщик="" Тогда
 Поставщик=Поставщик+ СтрРез.Ссылка.ДоговорКонтрагента.Владелец.Наименование+ "(ОГРН "+СтрРез.Ссылка.ДоговорКонтрагента.Владелец.хлОГРН+")";
Иначе
 Поставщик=Поставщик+","+ СтрРез.Ссылка.ДоговорКонтрагента.Владелец.Наименование+ "(ОГРН "+СтрРез.Ссылка.ДоговорКонтрагента.Владелец.хлОГРН+")";
КонецЕсли;



   КонецЦикла;

(4) Спасибо! Как раз примерно так я и сама могу. Мне казалось краше - именно последнюю букву отцепить.

(5) юзай СРЕД(ТвояСтрока,1,СтрДлина(ТвояСтрока)-1)

Во! Красота, оказывается, и тут стрдлина работает!
А как с колонтитулом-то быть?

Колонтитул всё еще актуален!

//Верхний колонтитул
КомОбъект.Sections(1).Headers(1).Range.Text = "************ "+Формат(ТекущаяДата(),"ДЛФ=DDT");
//Нижний колонтитул
КомОбъект.Sections(1).Footers(1).Range.Text = "*******************";    
//Номера страниц
КомОбъект.Sections(1).Footers(1).PageNumbers.Add(1);    

Кажется, нашла!
11 Спасибо!