Не заполняет таблицу в word

Функция Печать() Экспорт 
	
	Word = Новый COMОбъект("Word.Application");
		
	//получаем макет
	Макет = ПолучитьМакет("МакетWord");
	ВременныйПуть = КаталогВременныхФайлов();
	ИмяВременногоФайла = ВременныйПуть + "Пример ворд.doc";
	Макет.Записать(ИмяВременногоФайла);
	ТекДок = Word.Documents.ADD(ИмяВременногоФайла);
    
    // Поиск и замена маркеров
    Замена = ТекДок.Content.Find;    
	
	//Execute работает как замена текста, подробности метода не знаю, единственное и это точно - без цифры 2 заменяется только первый текст, вторая замена не срабатывает
	//Замена.Execute("[ВставкаИз1с]",,,,,,,,, "привет 1с", 2);
	Замена.Execute("%ОбществоООО%",,,,,,,,, СсылкаНаОбъект.Наименование, 2);
	Замена.Execute("%ОбществоОООГенДир%",,,,,,,,, СсылкаНаОбъект.Наименование, 2);
	
	 ШаблонВорд = ТекДок;
	//Заполняем первую таблицу
	Если ШаблонВорд.Bookmarks.Exists("Таблица1") Тогда
		
		//Выделяем обязательную закладку начала таблицы
		ШаблонВорд.Bookmarks("Таблица1").Select();
		
		
		//Перемещаемся вниз, выделяем строку таблицы и копируем ее в буфер обмена
		ШаблонВорд.Application.Selection.MoveDown();
		ШаблонВорд.Application.Selection.SelectRow();
		ШаблонВорд.Application.Selection.Copy();
		
		Для Счетчик = 1 По 10 Цикл
			
			//Заменяем значения
			ШаблонВорд.Application.Selection.Find.Execute("%Наим%" ,,,,,,,,,"Наим="+Счетчик,2);
			ШаблонВорд.Application.Selection.Find.Execute("%Сер%" ,,,,,,,,,Счетчик+10,2);
			
			
			//Перемещаемся вниз, вставляем из буфера обмена строку
			ШаблонВорд.Application.Selection.MoveDown();
			ШаблонВорд.Application.Selection.Paste();
			//Перемещаемся вверх и выделяем строку для замены значений
			ШаблонВорд.Application.Selection.MoveUp();
			ШаблонВорд.Application.Selection.SelectRow();
			
		КонецЦикла;
		
		//Вырезаем лишнюю строку
		ШаблонВорд.Application.Selection.Cut();
		
		//Скрываем обязательную закладку начала таблицы
		ШаблонВорд.Bookmarks("Таблица1").Select();
		ШаблонВорд.Application.Selection.TypeText(" ");
		
	КонецЕсли;

	

    // Вывод документа
    ТекДок.Application.Visible = Истина;
    ТекДок.Activate();

	Сообщить("СсылкаНаОбъект = " + СсылкаНаОбъект);
	
	
КонецФункции