function PF_nohtml(str)
 Dim objRegExp, Match, Matches    
 Set objRegExp = New Regexp    
 objRegExp.IgnoreCase = True    
 objRegExp.Global = True    
 '取閉合的<>    
 objRegExp.Pattern = "<.+?>"    
 '進行匹配    
 Set Matches = objRegExp.Execute(strHTML)    
 ' 遍曆匹配集合，並替換掉匹配的項目    
 For Each Match in Matches    
 strHtml=Replace(strHTML,Match.Value,"")    
 Next    
 PF_nohtml=str    
 Set objRegExp = Nothing    
 set Matches=nothing   
end function