Работа с excel из Wod

[faiza]

Ребят, подскажите пожалуйста решение такой задачи: есть отчет в Word из текста и таблиц с данными, есть справочник в Excel, к которому я обращаюсь так:

Set Ex = CreateObject("excel.application")
Ex.Workbooks.Open FileName:=ThisDocument.Path & "\Справочник.xlsx"
Ex.Application.Visible = True

Нужно:
1. Найти в worde год (который выбирается из пользовательской формы и передаётся в А1 excel), предыдущий и запредыдущий выбранному (например, выбран год = 2010, значит в документе ищем 2010, 2009 и 2008).
2. Взять слово перед этим годом.
3. найденное слово в worde нужно найти в "Справочник.xlsx", но искать только в диапозоне А3:AC14.
4.Когда в excel слово найдем, нужно взять значение которое лежит на 1 ячейку ниже найденного и уже этим словом заменить то, которое нашли в пункте 2 перед годом.
А поиск и замену в word осуществлять по всему документу:титульник, сноски,таблицы,текст.
Причем, если найденное перед годом слово было с маленькой буквы то и заменяться оно должно словом с маленькой буквы и наоборот.

[faiza]

Ну, неужели никто так и не подскажет? Умные люди, откликнитесь)

[bdfy]

excel.worksheetFunction.match посмотри. поможет

[doober]

Ну, неужели никто так и не подскажет

Да,пока файлов не будет