Поиск и замена слова в Word

Люди добрые!!!Помогите пожалуйста!!! Есть документ word, в котором нужно найти слово и заменить его другим. Пробовала писать следующий код, где Word - это WordApplication, Doc- WordDocument.
Перебор слов в документе начинать с i=1?. Ошибку выдаёт в строке с if.
_Document *Doc;

OleVariant OpenAsTemplate, FN ;
TVariant Template=true;
Template="Normal";
OpenAsTemplate=true;
Word->set_Visible(true);
FN = ExtractFilePath(ParamStr(0)) + "PersonelKart.doc";
Doc = WordApplication->Documents->OpenOld(FN, EmptyParam, EmptyParam, OpenAsTemplate, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam);

for (int i = 1; i<=Doc->Words->Count-1;i++)
{
if (Doc->Words->Item(i)->FormattedText->Text == (wchar_t*)"IDSURNAME")
//if (Doc->Words->Item(i)->FormattedText->get_Words() =="IDSURNAME")
//if (Doc->Words->Item(i)->FormattedText->get_Text(TVariant("IDSURNAME")))
// if (Doc->Words->Item(i)->FormattedText->Text ==(wchar_t*)edOnWhat->Text)
// if (Doc->Words->Item(i)->FormattedText->get_Text()==wchar_t*)"IDSURNAME")
//if (Doc->Words->Item(i)->FormattedText->set_Text(TVariant("IDSURNAME")))
Doc->Words->Item(i)->FormattedText->set_Text(TVariant(edOnWhat->Text)) ;

}