我将word文档,以流的形式存入Blob字段中,
现在我想在该Blob字段中查找字符串,请问如何实现?
如果不能,请问word文档内容在Delphi中如何调用显示出来?RichEdit可以显示吗?
现在我想在该Blob字段中查找字符串,请问如何实现?
如果不能,请问word文档内容在Delphi中如何调用显示出来?RichEdit可以显示吗?
解决方案 »
- 问个关于ClientDataset的问题!紧急
- 各位师兄师姐,小弟我想学点Delphi程序方面的东西。但是我不知道看什么书好(视频教程),请不吝赐教!
- 第一次遇到这个问题!
- 开贴补1000分,请 ly_liuyang(Liu Yang) 进来接分(2)
- 紧急求救,问题应该不太难解决,来者有分,请各位不吝赐教多谢!!!
- cxGrid能否实现这种效果?
- 积分制的弊端!造成CSDN今天这样萧条的原因!欢迎大家来讨论!
- 请教有关socket的问题
- 我要告别Delphi了,
- 本人要做一特殊报表,求各位指点。
- c/s完成,, 具体都要哪些东西,, 用ADO来实现?
- 如何用fastreport把DBData里的数据实现打印预览
RichEdit和Memo都可以吧
WORDAPPLICATION、WORDDOCUMENT可以在提供路径的情况下打开WORD文档。具体代码:var template,newtemplate,itemindex:olevariant;
begin
template:=trim(dbmemo2.text); 用来存放文件路径
newtemplate:=true;
itemindex:=1;
wordapplication1.Connect;
wordapplication1.Visible:=true;
wordapplication1.Documents.AddOld(template,newtemplate);
worddocument1.ConnectTo(wordapplication1.Documents.Item(itemindex));
end;
谢谢!
Selection.Find.ClearFormatting
With Selection.Find
.Text = "要搜索的字符串"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = False
.CorrectHangulEndings = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = False
.MatchFuzzy = False
End With
Selection.Find.Execute
End Sub
以上是用word中利用vba來實現查找的功能,你可以改寫為delphi的,裡面的屬性,方法應該可以在delphi中直接使用.
有图,或其它的格式就不行了