——此文章摘自《Delphi开发经验技巧宝典》定价
￥
特价
￥
购买>>
应用程序可以把Word中的文本提取出来作为模糊查询的依据或其他操作本例是单击打开文档按钮从选中的Word文档中提取文本内容如图所示
通过createoleobject方法创建OLE对象通过OLE对象的DocumentsOpen方法打开所选中的Word文档从文档中提取出文本内容显示在RichEdit中主要代码如下
procedure TFormButtonClick(Sender: TObject);
var
wordapp doc: olevariant;
strs: TStringList;
begin
if OpenDialogExecute then
begin
strs := TStringListCreate;
wordapp := createoleobject(Wordapplication);
try
doc := wordappDocumentsOpen(FileName := OpenDialogFileName);
RichEditText := docrangeText;
docClose;
finally
wordappquit;
strsFree;
end;
end;
end;
图 读取Word中的文本
