WebBrowserのページ内の文字検索について (ID:147392)

名前

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

本文

以前にも同じ質問のスレがありまして
そこを見てやってみたのですがうまく動作しません。

＞Private Sub Command1_Click()
＞    Dim Doc As Object       'MSHTML.HTMLDocument
＞    Dim Body As Object      'MSHTML.HTMLBody
＞    Dim objRange As Object  'MSHTML.IHTMLTxtRange
＞    Dim BMK As String
＞    
＞    
＞    '検索文字列を入れておいてください。
＞    If Len(Text1.Text) = 0 Then Exit Sub
＞    
＞    Set Doc = WebBrowser1.Document
＞    Set Body = Doc.Body
＞    Set objRange = Body.createTextRange
＞    
＞    '≫≫≫≫≫ 検索開始
＞    'For L = 0 To 255
＞    '   If objRange.findText(Text1.Text) = False Then Exit For
＞    Do While objRange.findText(Text1.Text)
＞        '最初に見つかった位置を保存しておきます。
＞        If Len(BMK) = 0 Then BMK = objRange.getBookmark
＞        
＞        '検索した語句を黄色く反転させる。
＞        objRange.execCommand "BackColor", False, "YELLOW"
＞        
＞        '論理カーソル位置を、検索した語句の末尾に移動させる。
＞        objRange.collapse False
＞    Loop
＞    'Next L
＞    '≪≪≪≪≪ 検索終了
    
＞    'ついでに、最初に見つけた語句の位置までスクロールさせています。
＞    If Len(BMK) Then
＞        objRange.moveToBookmark BMK
＞        objRange.scrollIntoView
＞    End If    
＞    '最後は一応、後始末を。
＞    Set objRange = Nothing
＞    Set Body = Nothing
＞    Set Doc = Nothing
＞End Sub

このソースを参考にさせていただいたのですが
実行すると

＞objRange = Body.createTextRange

この部分でエラーになり
公開メンバ 'createTextRange' は型 'HtmlElement' に見つかりませんでした。

となって動作しません。

環境は、vb.net 2010
OSは、windows 7
net.fremework 4.0

'createTextRange'の場所が変わってしまったのでしょうか？
誰かご存知の方教えてください

←解決時は質問者本人がここをチェックしてください。

戻る