【搞定】问一个关于ole字段的问题**

浙江益和

我在一个ole字段中存了一个word文档,我要在系统中取文档中所有'\[??\]'的字串.
直接替换的例子我看过,但是不知道怎么从word中返回东西.

jiahaiminghr

大致的用法应该都一样，只是需要查找一下word的vba帮助，看读取文本的函数应该是哪一个。

楼主可以参考一下下面的链接或者在网上搜索一下有没有做好的例子。
http://www.myfaq.com.cn/A/2001-10-29/3183.html

jiahaiminghr

楼主，还有问题吗？
没有就结贴了！

浙江益和

说一下我对dispatchhelper不了解的地方吧,我直接怎么发送一个find或者什么过去,但是我不知道怎么取回我要的数据
TOleContainer(DataEdit4.InplaceControl).DoVerb(0);        doc := System.DispatchHelper.Create(TOleContainer(DataEdit4.InplaceControl).OleObject);
  app := System.DispatchHelper.Create(doc.PropertyGet('Application', []));
  sel:=System.DispatchHelper.Create(app.PropertyGet('Selection',[]));
  find := System.DispatchHelper.Create(sel.PropertyGet('find', []));
  find.InvokeMethod('Execute',['\（*\）',false,false,true,false,false,true,1,false,'',false]);

这个代码是一段带通配符的搜索,word文档中包含"（C1）笑嘻嘻（C2）"
我要取回C1和C2,而不是只在word中选中那些.

jiahaiminghr

楼主，返回选中的字符串，需要执行相关的VBA代码，
这个我也不太清楚，请查一下相关的帮助文件吧。

jiahaiminghr

楼主，还有其他问题吗？
没有就结贴了！