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;