对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);
请给位仁兄帮助一下小弟，在此谢谢了！！！！！！！！！

[fx_guo]

/*TVariant RepPara=wdReplaceNone;//wdReplaceAll; //如果是查找的话，就用wdReplaceNone;如果是替换的话，就用wdReplaceAll
TVariant EmptyPara=EmptyParam;
WordApp->Selection->Find->Text=WideString("从");
//WordApp->Selection->Find->Replacement->Text=WideString("fghj");//如果是替换的话，需要加上此代码
WordApp->Selection->Find->Execute(&EmptyPara,&EmptyPara,&EmptyPara,&EmptyPara,
&EmptyPara,&EmptyPara,&EmptyPara,&EmptyPara,
&EmptyPara,&EmptyPara,&RepPara,&EmptyPara,
&EmptyPara,&EmptyPara,&EmptyPara);
if(WordApp->Selection->Find->Found)
{
ShowMessage("true");
}
else
ShowMessage("false");
ShowMessage((AnsiString)WordApp->Selection->Text); */
结合上述代码就可以正确进行查找