Webブラウザコントロールで検索をするには？ (ID:90039)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 どうもお世話になります。 Webブラウザコントロールの使い方で、また教えて頂けないでしょうか。 http://www.microsoft.com/japan/msdn/library/default.asp?url=/japan/msdn/library/ja/jpisdk/dhtml/content/TextRange.asp の「ドキュメントのテキストを検索する」という解説で、 ■コード１ var rng = document.body.createTextRange(); if (rng.findText("sample")==true) { rng.select(); rng.scrollIntoView(); } というコードが書いてあるのですが、これを参考にして、私は次のようなＶＢのコードを書いてみました。 ■コード２ Private WithEvents Body As MSHTML.HTMLBody Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant) Set Body = WebBrowser1.Document.Body End Sub Private Sub Command1_Click() If Body.createTextRange.findText("テキスト") Then Body.createTextRange.Select Body.createTextRange.scrollIntoView True End If End Sub 私としては、コード１と２は内容的には同じだと思ったのですが、これを実行するとドキュメント全体が選択された状態になってしまいます。一体何がおかしいのでしょうか。 （ＭＳＤＮを詳しく読んではいますが、いまいち私にはピンと来ませんので、要領を得ない質問ですみません）