这句代码：
Tables(tname).Current(cname) = str.Replace("</p><p>",vbcrlf).Replace("<p>",vbcrlf).Replace("<br>",vbcrlf).Replace("</p>","").Replace(" ","").Replace(" ","")
我想把尖括号内以p或br 开头的代码 都像<p>、<br>一样替换成vbcrlf，怎样修改上面这句代码？
比如把这段代码整体替换成vbcrlf：
以下内容为程序代码:
1 ＜pstyle="font:16px24px微软雅黑;margin:12px0px0px110px;padding:0px;border:0pxcurrentcolor;border-image:none;text-align:left;color:rgb(0,0,0);text-transform:none;text-indent:0px;letter-spacing:normal;word-spacing:0px;white-space:normal;font-size-adjust:none;font-stretch:normal;background-color:rgb(253,252,248);-webkit-text-stroke-width:0px;"=""＞
2
加好友 
发短信
Post By：2017/7/13 7:29:00 [只看该作者]
