Перенос данных из Еxcel в Word

[m1cky]

Помогите,пожалуйста,написать макрос на VBA.
Суть такова,есть файл excel с табличкой (для примера введена 1 строчка с данными).Есть шаблон вордовский с несколькими полями,куда нужно вставлять данные из excel из соответствующих ячеек.

Столбцы в еxcеl имеют названия:
- Номер договора
- Дата
- Наименование организации
- Реквизиты
- Адрес
- Сумма
- Наименование работ

По 1 строке на каждого клиента

Так вот, в Word шаблоне я расставил в разных местах такие записи:
{договор},{дата},{организация},{рек визиты},{адрес},{сумма},{работы}

Хотелось бы чтоб в еxcel файле была кнопка,по нажатию которой данные из таблички берутся,после чего открывается шаблон ворд документа и во все места {} вставляются соответствующие данные (в шаблоне могут быть 2 одинаковых поля адрес,например). Далее идёт проверка на существование следующей строки в таблице и для нее тот же цикл.
Если не находит,то ничего не вставляет.

Примеры таблицы и шаблона смотрите в приложении.
Также другой архив - похожий макрос.

[R Dmitry]

посмотрите в низ поста

[m1cky]

Да это я видел,но у меня почему то не работает первая строчка макроса,не пойму почему,пишет неопределенный тип документа.В приложении же как раз файл с одной из тем внизу.