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

qila 2008-04-16 10:17:31
如题如题~~~非常着急~~~~谢谢
...全文
24 点赞 收藏 3
写回复
3 条回复
gameloader 2008年04月16日
BCB6下有个例子:PWordDemo
赶紧看一下吧。
回复 点赞
mabaoyes 2008年04月16日
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页。
回复 点赞
qila 2008年04月16日
自己搞出来~~贴一下~大家共享:
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();
回复 点赞
发动态
发帖子
VCL组件使用和开发
创建于2007-08-02

438

社区成员

1.3w+

社区内容

C++ Builder VCL组件使用和开发
社区公告
暂无公告