文字検索フォーム

フォームのテキストボックスやNotepadは語句を取り出して色分けすることができない。『エクセルVBA上達ドリル』（アスキー　2005）によって、文字の色分けを行うフォームを作ってみた。前に、漢文エディタでもタグを挿入して間にカーソルを置く工夫をした際、似たような切り出し方を試みたが、途中に改行コードがあると位置がずれてしまい、いまひとつ機能を果たさなかった。Instr関数とCharactersプロパティを使うとうまく行くようだ。これはうまく動く。

検索後の表示画面（色はランダムに現われる。）
検索後の画面