TextBoxでは、Clipboard.SetText TextBox1.SelText　で簡単にTextをクリップボードに読み込む
ことができますが、同様にして
Clipboard.SetText WebBrowser1.SelText ではエラーになります。
WebBrowserコントロールでTextをClipboardに読み込む方法をご教授願います。

> WebBrowserコントロールでTextをClipboardに読み込む方法をご教授願います。

案1) ExecWB メソッドを使用する。
http://msdn.microsoft.com/workshop/browser/webbrowser/reference/methods/execwb.asp

案2) clipboardData オブジェクトを使用する。
http://msdn.microsoft.com/workshop/author/dhtml/reference/objects/clipboarddata.asp

案3) 選択範囲を textRange オブジェクトで取得し、自前でクリップボードに転送する。
http://msdn.microsoft.com/workshop/author/dhtml/reference/objects/obj_textrange.asp

> > WebBrowserコントロールでTextをClipboardに読み込む方法をご教授願います。
MSHTMLを参照して
Dim doc as mshtml.htmldocument
Dim strD as string

set doc=webbrowser1.document
strD=doc.body.outerhtml
などで文字列は取得されるとよいと思います。
後は魔界の仮面弁士様の方法で。

> set doc=webbrowser1.document
> strD=doc.body.outerhtml

それをいうなら、
　Set txtRange = WebBrowser1.Document.selection.createRange()
　strText = txtRange.text
　strHtml = txtRange.htmlText
といった感じでしょうか。

単に body.outerHTML を取得しただけでは、元質問にあった「TextBox1.SelText」の部分、
すなわち『選択された範囲のテキスト』というニーズを満たしていませんよね。


ちなみに先述の案1 であれば、
　WebBrowser1.ExecWB OLECMDID_COPY, OLECMDEXECOPT_DODEFAULT
という処理だけで、選択範囲の内容をコピーする事ができます。

> それをいうなら、
> 　Set txtRange = WebBrowser1.Document.selection.createRange()
> 　strText = txtRange.text
> 　strHtml = txtRange.htmlText
すいません。全く勘違いしてました。m(_ _)m
魔界の仮面弁士様のコードで取得できると思います。

魔界の仮面弁士様　ヤマ＠文系様　ご回答有難うございます。
魔界の仮面弁士様に教えて頂いた下のコードで問題が解決しましたのでお知らせします。
WebBrowser1.ExecWB OLECMDID_COPY, OLECMDEXECOPT_DODEFAULT