Ненавижу Microsoft Office !!!

Пока учился в универе уроды достали "офисом", а теперь вот приходится платиться за то что не учил эти темы. Дали задание вывод накладных в Excel по имеющимся шаблонам (надо лишь програмно заменить определенные слова). Вот функия котороя должна это делать. Она заменяет все ячейки с текстом szOldValue текстом szNewValu, после чего залетает, предпологаю что функция не может определить когда заменены все элементы. Может кто знает как правильно надо.

classCExelManager
{
private:
Variant m_Application;
Variant m_WorkSheet;
Variant m_Range;
...
public:
...
void FindEndReplaceAll( const char * szOldValue, const char * szNewValu );
...
};

void CExelManager::FindEndReplaceAll(
const char * szOldValue,
const char * szNewValu )
{
Variant RangeFind;
RangeFind = m_WorkSheet.OlePropertyGet("UsedRange");

if ( RangeFind.IsEmpty() )
return;


Variant RangeResultCeil = RangeFind.OleFunction(
"Find",
szOldValue);


static int i = 0;

//!VarIsNull(RangeResult)
while ( RangeResultCeil.IsEmpty() )
{
//RangeResult.OlePropertySet("Formula", szNewValu);

RangeResultCeil.OlePropertySet("Formula", IntToStr(i++).c_str());

RangeResultCeil = RangeFind.OleFunction("FindNext", RangeResultCeil);

}

}