из 1с 7.7 в word

Процедура Договор()
		Word = СоздатьОбъект("Word.Application");
	Word.Documents.Add("D:Договор поставки.doc");  //основной	                	
    а = ТекущийДокумент;  
  
	
	Пока Word.ActiveDocument.Content.Find.Execute("[Номер]", , , , , , , , ,СокрЛП(ТекущийДокумент.НомерДок))<>0 Цикл
	КонецЦикла;
	Пока Word.ActiveDocument.Content.Find.Execute("[Дата]", , , , , , , , ,СокрЛП(ТекущийДокумент.ДатаДок))<>0 Цикл
	КонецЦикла;
	Пока Word.ActiveDocument.Content.Find.Execute("[Должность]", , , , , , , , ,СокрЛП(ТекущийДокумент.Исполнитель.Должность))<>0 Цикл
	КонецЦикла;
	Пока Word.ActiveDocument.Content.Find.Execute("[ФИО]", , , , , , , , ,СокрЛП(ТекущийДокумент.Исполнитель))<>0 Цикл
	КонецЦикла; 
	Пока Word.ActiveDocument.Content.Find.Execute("[ПолноеНаименованиеКонтрагента]", , , , , , , , ,СокрЛП(ТекущийДокумент.Контрагент.ПолнНаименование))<>0 Цикл
	КонецЦикла; 
                                                                                                                
 Сумма = 0;
 СуммаНДС = 0;
	а.ВыбратьСтроки();
	Пока а.ПолучитьСтроку() = 1 Цикл 
		Пока Word.ActiveDocument.Content.Find.Execute("[КоллТекстом]", , , , , , , , ,Формат(а.Количество, "ЧП"))<>0 Цикл
		КонецЦикла; 
		Пока Word.ActiveDocument.Content.Find.Execute("[Колл]", , , , , , , , ,СокрЛП(а.Количество))<>0 Цикл
		КонецЦикла;   
		Пока Word.ActiveDocument.Content.Find.Execute("[Номенклатура]", , , , , , , , ,СокрЛП(а.Товар))<>0 Цикл 
		КонецЦикла;    
		Сумма = Сумма + а.Всего;
		б = ((а.Сумма * а.НДС)/100); 
		СуммаНДС = СуммаНДС + б;
	КонецЦикла;   
	
	Пока Word.ActiveDocument.Content.Find.Execute("[Сумма]", , , , , , , , ,Формат(Сумма, "Ч10.2"))<>0 Цикл
	КонецЦикла;