对Word的全文检索

[fx_guo]

我在c++builder中，用WordApplication与WordDocuments控件，我中间是这样写的，为什么不会对字进行更改？
ariant a;
a="d:\\读取.doc";
WordApp->Connect();
WordApp->Visible=true;
WordApp->Documents->Open(a);
WordDoc->ConnectTo(WordApp->Documents->Item(Variant(1)));
WordDoc->Paragraphs->Item(Variant(1))->Range->Select();//将第二段文字选择上

WordApp->Selection->Start=WordApp->Selection->Start;
//在选择的范围中的第5个字符作为选择的开始字符
WordApp->Selection->End=WordApp->Selection->Start;
WordApp->Selection->Find->ClearFormatting();
WordApp->Selection->Find->Execute((TVariant*)"从",(TVariant*)false,(TVariant*)false,(TVariant*)false,(TVariant*)false,(TVariant*)false,(TVariant*)true,(TVariant*)wdFindContinue,(TVariant*)false,(TVariant*)"lk",(TVariant*)wdReplaceAll,(TVariant*)false,(TVariant*)false,(TVariant*)false,(TVariant*)false,(TOLEBOOL*)true);
请给位仁兄帮助一下小弟，在此谢谢了！！！！！！！！！