htmlテキストのキーワード太字化 (ID:82007)

名前

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

本文 IEに表示されているテキストのキーワードを色つけ・太字化しようと しています。コードは以下のようです。 Set oRange = oIE.document.Body.createTextRange 中略 For n = 0 To UBound(sKeyWord) Do While oRange.findText(sKeyWord(n)) '検索した語句を色つけ・太字化。 oRange.execCommand "ForeColor", False, "red" oRange.execCommand "bold", False, vbNull oRange.collapse False Loop Set oRange = oIE.document.Body.createTextRange Next この時、例えば IEに表示されているテキストが、 「上のテキストボックス内に検索したい語句を入力し、 検索ボタンをクリックして下さい。 」となっている時に sKeyWord(0):"検索ボタン" sKeyWord(1):"検索" とした場合、 oRange.execCommand "bold"メソッドはトグル動作する？ので 一旦、bold表示されている文字が、2回目のboldメソッド実行時に 元に戻ってしまいます。 上の例は簡単のものですが、実際のテキスト文字数はかなり大きなサイズ であり、キーワードも長いもが多くあり、そのパターンもランダムです。 なにか良いロジックは無いでしょうか？ 宜しくご教授お願いいたします。