delphi怎么在TWordApplication中选中文字
delphi如何在TWordApplication中选中文字
求教delphi如何在TWordApplication中选中文字！
另外，我还需要另一种更高要求的选中文字的方法：我要选中【和接下来出现的第一个】之间的字符并包两个括号本身，然后进行我要的操作，比如改颜色。有没有大大能告诉我的，不胜感激！
------解决方案--------------------
我大概写了一些，你试试吧
求教delphi如何在TWordApplication中选中文字！
另外，我还需要另一种更高要求的选中文字的方法：我要选中【和接下来出现的第一个】之间的字符并包两个括号本身，然后进行我要的操作，比如改颜色。有没有大大能告诉我的，不胜感激！
------解决方案--------------------
我大概写了一些，你试试吧
- Delphi(Pascal) code
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;