La copia del código es la siguiente:
'==========================================
'Descripción de la función: eliminar las etiquetas HTML con regularidad
'No se puede retener, etc., y definido por el usuario <y>
'==========================================
FunctionRemoveHtmltag (FString)
Dimre
Setre = newregexp
re.ignorecase = True
re.pattern = "<(. [^>]*)>"
fString = re.replace (fString, "")
Setre = nada
RemoverHtmltag = fString
Función final
'==========================================
'Descripción de la función: eliminar etiquetas HTML
'No se puede retener, etc., y definido por el usuario <y>
'==========================================
FunctionRemove_html (STR)
Dimilen1, Ilen2
Dowhileinster (1, str, "<", 1)> 0
ilen1 = instr (1, str, "<", 1)
ilen2 = instr (1, str, ">", 1)
Str = izquierda (str, ilen1-1) y mediano (str, ilen2+1)
Bucle
Eliminar_html = str
Función final
'==========================================
'Descripción de la función: eliminar etiquetas HTML
'Eliminar marcadores personalizados puede ser un poco lento
'==========================================
FunctionRemoveHtml (strText)
Dimtaglista
TagList = ";!-;
"Bgsound; big; blockquote; cuerpo; br; botón; titular; centro; citar; código;" & _
"Col; colgroup; comentario; dd; del; dfn; dir; div; dl; dt; em; incrustar; Fieldset;" & _
"Font; form; marco; frameset; cabeza; h1; h2; h3; h4; h5; h6; hr; html; i; iframe; img;" & _
"Entrada; ins; isIndex; kbd; etiqueta; capa; lagend; li; enlace; listado; mapa; marquee;" & _ _
"Menú; meta; nobr; noframes; noscript; object; ol; opción; p; parámetro; Textext;" & _