【结贴】求助：取word中的文本内容

浙江益和 · 发表于 2007-3-6 16:29:11

在delphi 中可以用
begin
  OleContainer1.Run;
  vrange:=OleContainer1.OleObject;
  vrange.select;
  v1:=vrange.range;
  dialogs.ShowMessage(vartostr(v1));
end;
取到word中的文本内容
不知道在X3中怎么取.

aDragon · 发表于 2007-3-6 17:18:06

http://bbs.justep.com/forum.php? ... ighlight=%C8%A1word
http://bbs.justep.com/forum.php?mod=viewthread&tid=9195

aDragon · 发表于 2007-3-7 08:30:53

有一种方法就是在DELPHI里面做好之后，再用导入第三方控件得方式导入进来！

alang · 发表于 2007-3-7 08:59:22

http://bbs.justep.com/forum.php? ... ight=dispatchhelper

alang · 发表于 2007-3-7 08:59:54

http://bbs.justep.com/forum.php? ... ight=dispatchhelper

浙江益和 · 发表于 2007-3-7 10:13:05

还是没搞定啊,能写个例子给我看看吗?

alang · 发表于 2007-3-7 10:55:33

4楼 5楼已经有例子了，而且5楼还有说明的，你自己看看
不行的话，把你自己写的程序贴出来，问题是什么贴出来

aDragon · 发表于 2007-3-7 10:57:10

http://bbs.justep.com/forum.php? ... ight=dispatchhelper
里面得例子也搞不定吗

浙江益和 · 发表于 2007-3-7 19:07:07

说一下我对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中选中那些.

aDragon · 发表于 2007-3-14 09:17:22

先结贴了！

		自动登录	找回密码
密码			立即注册