[roamer]

Как вариант - можно использовать объекты Selection.
Примерно так (синтаксис не проверял, Sorry)

Код:

begin
  Word.Selection.Start:=0;
  Word.Selection.End:=0;
end;