テストページ
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に代入テスト - YouTubewww.youtube.com