WebBrowserコントロールでHTMLの書き換え (ID:90513)

名前

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

本文 WebBrowserコントロールを使用して、HTMLDocumentの内容を書き換えることは可能でしょうか？ 具体的には、NavigateComplete2イベントでHTML内のTITLEタグの値を書き換えたいのですが、書き換え方法が分かりません。 Private Sub WebBrowser1_NavigateComplete2(ByVal pDisp As Object, URL As Variant) Dim objHTML As HTMLDocument Dim objElement As IHTMLElement Dim objDomNode As IHTMLDOMNode Set objHTML = Me.WebBrowser1.Document For Each objElement In objHTML.All If StrConv(objElement.tagName, vbLowerCase) = "title" Then Set objDomNode = objElement MsgBox objDomNode.Text ←ここでTextの内容を変更したい。 End If Next End Sub のようにコードを記述しています。 どなたか、ご教授ください。