Договор = ПолучитьМакет("Макет"); // получим макет-ActiveDocument
MSWord = Договор.Получить();
Для каждого Строчка из ПриемНаРаботу.РаботникиОрганизации цикл
Попытка    

Doc = MSWord.Application.Documents(1);
Doc.Activate();

Replace = Doc.Content.Find;    
FindText = "{НомерДоговора}";        Replace.Execute(FindText,Ложь,Истина,Ложь,,,Истина,,Ложь,ОбщегоНазначенияЗК.ПолучитьНомерНаПечать(ПриемНаРаботу));

Если у меня в документе много шаблонов вида "{НомерДоговора}", то как задать цикл, чтоб они все заменились, а не только первый?

неужели нет метода? придется копировать блок с заменой текста столько раз, сколько текст встречается в макете :( Неоптимальненько как-то...

(1) открой ворд , включи запись макроса , выполни ту операцию ,которую хочешь выполнить программно , руками . останови запись макроса , посмотри код . мне иногда помогало.

Find.Execute Method
Parameters
Replace
Specifies how many replacements are to be made: one, all, or none. Can be any WdReplace constant.

Подробнее в синтакс [зачеркнуто], MSDN-помощнике
http://msdn.microsoft.com/en-us/library/office/bb179352(v=office.12).aspx

В бсп для ворда вроде есть процедуры. УправлениеПечатьюMSWordКлиент

как то надо сказать ворду - WdReplaceAll

(3) (4) (6) Спасибо, щас опробую

Блин, а как передать WDReplaceAll? Просто текстом не получается...

все, понял, вот так:
wdReplace = 2;
Replace.Execute(ИскомыйТекст,Ложь,Истина,Ложь,,,Истина,,Ложь,ТекстЗамены,wdReplace);

Еще раз спасибо!