Pos quitale el argumento erroneo
Código:
extraeTodos = extraeTodos((texto1 & texto2))
Extraer? Borrar? Supongo que lo que quieres es extraer lo que haya entre esos tags para luego guardar el texto resultante
SIN lo extraido, ¿verdad? Pos en mi pueblo llamamos borrar a eso. Es decir:
function extraeTodos(texto)
Dim textox
textox = texto
te = instr(1, textox, "
<font face=""Verdana, Arial, Geneva, sans-serif"" size=2>", 1)
if te <> 0 and te <> vbNull then
texto1 = left(textox, te-1)
tu = instr(1, textox, "
</font>", 1)
if tu <> 0 and tu <> vbNull then texto2 = mid(textox,tu+4)
extraeTodos = extraeTodos((texto1 & texto2))
end if
end function
En fin, espero haberte ayudado.
Chaus