01.Function resizepicture(txt)
02. On Error Resume Next
03. Set regex = New RegExp
04. Set regex1 = New RegExp
05. regex.Pattern = "width='^\[610-2000]$'"
06. regex1.Pattern = "width=^\[610-2000]$"
07. txt = regex.replace(txt,"width='450'")
08. txt = regex1.replace(txt,"width=450")
09.
10. resizepicture = txt
11. If Err Then
12. resizepicture=""
13. end if
14.End Function
