//获得WebBrowser1里的文本相当于 Caption = Webbrowser1.Text

//获得当前选中的文本  Webrowser.Selection.Text

//获得当前选中的文本  Webrowser.Selection.HTML

//设置选中的文本Webrowser.Selection.Text="ABC";

function GetSelText():string;

var

  Doc: IHtmlDocument2;

begin

  Result:=( (Form1.WebBrowser1.Document as IHTMLDocument2).selection.createRange as IHtmlTxtRange).text;

end;

procedure SetSelText(s:string);

var

  Doc: IHtmlDocument2;

begin

  ( (Form1.WebBrowser1.Document as IHTMLDocument2).selection.createRange as IHtmlTxtRange).text:=s;

end;

function GetSelHtmlText():string;

var

  Doc: IHtmlDocument2;

begin

  Result:=( (Form1.WebBrowser1.Document as IHTMLDocument2).selection.createRange as IHtmlTxtRange).htmlText;

end;

procedure SetSelHtmlText(s:string);

var

  Doc: IHtmlDocument2;

begin

  ( (Form1.WebBrowser1.Document as IHTMLDocument2).selection.createRange as IHtmlTxtRange).pasteHTML(s);

end;