delphi如何在TWordApplication中选中文字 求教delphi如何在TWordApplication中选中文字!另外,我还需要另一种更高要求的选中文字的方法:我要选中【和接下来出现的第一个】之间的字符并包两个括号本身,然后进行我要的操作,比如改颜色。有没有大大能告诉我的,不胜感激! 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 http://hi.baidu.com/lingyin55/blog/item/252144f2e7547717b07ec5c9.html参考一下这个,或自己搜一下。 我大概写了一些,你试试吧 ARange: Range;begin ARange := WordApp.activedocument.Range(EmptyParam, EmptyParam); sContent := WordApp.activedocument..Content; x := pos( '【', sContent ); y := pos( '】', sContent ); ARange.Start := x; ARange.End_ := y; ARange.Select;end; youthon的回复已被采用。细节我再去研究研究。另外,阁下可以再给个QQ吗? 急!delphi 操作有密码word问题,新建和导入自动加密!在线 请教有关进度条显示的问题! 【数据库】DELPHI【数据库】 如何在DBGRID中实现自动汇总呀. 怎么移动指针? 问题 能否说一下判断文件是否存在的函数? TiniFile如何清空其中的内容? 招聘有经验的Delphi程序员 自动计算字段如何排序? sametext,comparestr,comparetext有什么不同?请详细解之! indy通讯,解释下这个线程的意义~
参考一下这个,或自己搜一下。
ARange: Range;
begin
ARange := WordApp.activedocument.Range(EmptyParam, EmptyParam);
sContent := WordApp.activedocument..Content;
x := pos( '【', sContent );
y := pos( '】', sContent );
ARange.Start := x;
ARange.End_ := y; ARange.Select;
end;
细节我再去研究研究。另外,阁下可以再给个QQ吗?