Ganzen Text in einen TWebbrowser markieren

[Sprint]

Delphi-Quellcode:

var
  TextRange: OleVariant;
begin
   TextRange := WebBrowser1.OleObject.Document.selection.createRange;
   TextRange.moveToElementText(WebBrowser1.OleObject.Document.body);
   TextRange.select;
end;

Mein Beispiel markiert alles was auf der Seite vorhanden ist. Wenn du dir das anders vorstellst, dann frag' nochmal.