delphi如何在TWordApplication中选中文字

[popogens]

求教delphi如何在TWordApplication中选中文字！

另外，我还需要另一种更高要求的选中文字的方法：我要选中【和接下来出现的第一个】之间的字符并包两个括号本身，然后进行我要的操作，比如改颜色。有没有大大能告诉我的，不胜感激！

[babydog01]

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;

[popogens]

youthon的回复已被采用。
细节我再去研究研究。另外，阁下可以再给个QQ吗？