Помогите подправить код!!!

Есть простой код, который в Вордовском файле из 1й строчки делал таблицу, путем ее копирования и повторного заполнения следующей порцией данных.
В Ворде 2007 это стало некоректно работать, надо что то подправить, но я не знаю
тонкости VBA.
Помогите, исправить формат для заполнения строк!!!

Для Каждого Строка_тзСтрок Из тзСтрок Цикл
НомерСтроки = НомерСтроки + 1;

тзПараметры = Строка_тзСтрок.ТаблицаПараметров;

Если НомерСтроки = 1 Тогда
WordDoc.Application.Selection.SelectRow();
WordDoc.Application.Selection.Copy();
Иначе

Если mWordObject.Version = "11.0" Тогда // w2003
WordDoc.Application.Selection.MoveDown(5,1); // Unit:=wdLine, Count:=1
WordDoc.Application.Selection.Paste();
WordDoc.Application.Selection.MoveUp(5,1); // Unit:=wdLine, Count:=1
//WordDoc.Application.Selection.SelectRow();
Иначе // w97
Для н = 1 По НомерСтроки - 1 Цикл
WordDoc.Application.Selection.MoveDown(5,1); // Unit:=wdLine, Count:=1
КонецЦикла;
WordDoc.Application.Selection.Paste();
Для н = 1 По НомерСтроки - 1 Цикл
WordDoc.Application.Selection.MoveUp(5,1); // Unit:=wdLine, Count:=1
КонецЦикла;

КонецЕсли;

WordDoc.Application.Selection.SelectRow();

КонецЕсли;

Для Каждого Строка_тзПараметры Из тзПараметры Цикл
Параметр = Строка_тзПараметры.Параметр;
Значение = Строка_тзПараметры.Значение;
WordDoc.Range().Find.Execute("$$" + Параметр + "$$",,,,,, Forward, wdFindStop,, Значение, wdReplaceOne);
// WordDoc.Application.Selection.Find.Execute("$$" + Параметр + "$$",,,,,,,,, Значение, 2);
КонецЦикла;

WordDoc.Application.Selection.SelectRow();

КонецЦикла;

КонецЦикла;