急~~请问如何使用office2k控件把WORD里的文字读出来~~只要文字，其他格式、图片都不要~

[qila]

如题如题~~~非常着急~~~~谢谢

[qila]

自己搞出来~~贴一下~大家共享：
AnsiString aa;
OleVariant FileName,ConfirmConversions,ReadOnly,AddToRecentFiles;
OleVariant PasswordDocument,PasswordTemplate,Revert,WritePasswordDocument;
OleVariant WritePasswordTemplate,Format,ItemIndex;
WordApp->Connect();
if(!OD->Execute())return;
FileName=OD->FileName;
ConfirmConversions=false;
ReadOnly=false;
AddToRecentFiles=false;
PasswordDocument=' ';
PasswordTemplate=' ';
Revert=True;
WritePasswordDocument=' ';
WritePasswordTemplate=' ';
Format=wdOpenFormatDocument;

WordApp->Documents->Open(FileName);
WordApp->Options->CheckSpellingAsYouType=false;
WordApp->Options->CheckGrammarAsYouType=false;
WordApp->Selection->SetRange(WordApp->Selection->Start,WordApp->ActiveDocument->Content->End);
aa=WordApp->Selection->Text;
WordApp->Disconnect();

[mabaoyes]

TForm1::Button1Click(TObject *Sender)
{
AnsiString strFileName;

if (OpenDialog1->Execute())
{
strFileName=OpenDialog1->FileName;
Edit1->Text=strFileName;


OleVariant FileName;
OleVariant ItemIndex = 1;

WordApplication1->Connect();
FileName=strFileName;
WordApplication1->Documents->Open(FileName,
EmptyParam,EmptyParam,EmptyParam,
EmptyParam,
EmptyParam,EmptyParam,EmptyParam,
EmptyParam,EmptyParam,EmptyParam,
EmptyParam);

WordDocument1->ConnectTo(WordApplication1->Documents->Item(ItemIndex));

WordDocument1->Range(EmptyParam, EmptyParam)->Copy();
Memo1->Clear();
Memo1->PasteFromClipboard();

WordApplication1->Disconnect();

}
}

WordApplication和WordDocument两控件都在BCB6的Office2K页。

[gameloader]

BCB6下有个例子：PWordDemo
赶紧看一下吧。