BODYタグの中身を書き換える .InnerHTMLに代入

テストページ
http://oct2011.s2008day.com/test.html
を表示後、
objIE.Document.body.InnerHTML
で、BODYタグを取得後、
テストで 松井の文字の前後にBタグをセットしてみました。

ソースコード

Option Explicit

'ページを表示させ、BODYタグの中身を書き換えるテスト
'strBODY = objIE.Document.body.InnerHTML で変数に入れて
'単純に Replaceで置き換えて、再代入しただけです。。。

Sub ie_body_test_1017()

'IEの起動
    Dim objIE As Object '変数を定義します。
    Set objIE = CreateObject("InternetExplorer.Application") 'オブジェクトを作成します。
    objIE.Visible = True      '可視、Trueで見えるようにします。
    
'処理したいページを表示します。
    objIE.Navigate "http://oct2011.s2008day.com/test.html"

'ページの表示完了を待ちます。
    While objIE.ReadyState <> 4 Or objIE.Busy = True '.ReadyState <> 4の間まわる。
        DoEvents  '重いので嫌いな人居るけど。
    Wend
    
'BodyのHTMLを書き換える テストで松井の前後にBタグをセットしてみた
    Dim strBODY As String
    strBODY = objIE.Document.body.InnerHTML '変数に代入
    strBODY = Replace(strBODY, "松井", "<b>松井</b>")  'テストで松井を太字にする
    objIE.Document.body.InnerHTML = strBODY  'データをセットする(BODY全体を再セット)

End Sub

テスト結果と簡単な解説

IE操作 VBA BODYタグの中身を書き換え .InnerHTMLに代入テスト - YouTube
www.youtube.com