ソースと解説は http://www.ken3.org/vba/backno/vba180.html でやってます。
コードを公開するなら、丁寧に作らないと、
三流コード被害者の会 から また、クレームの書き込みとメールをもらうかなぁ。
今回は、危ないポイントを1つ
※それでもエラー処理は1つだけしかやらないのかよ。
危ないのは、ココ
Set objParent = objDT(n).parentElement '親オブジェクトを代入
'次にSTRONG 強調表示の値を探す
Set objTagSTRONG = objParent.all.tags("STRONG")
↑.tags("STRONG")でSTRONGタグを抜く
ここで、もし、STRINGのタグ、指定したタグが無かったら?
指定したタグが無い時のテストをしてみます。
Link to this comment:
All Comments (0)