buscar cadena sobre un WebBrowser1

[gades2005]

Necesitaria realizar una busqueda de un texto determinado sobre un contenido de un documento html visualizado a traves de WebBrowser1. A su vez, necesitaria colocar la busqueda de un color resaltado.

Es lo mismo que realiza la tipica busqueda a traves de EDITAR->BUSCAR

Private Sub cmdBuscarEnPHM_Click()
On Local Error Resume Next
Wbr.SetFocus
SendKeys ("^f") 'envia la pulsacion de /ctrl F/ sobre la pantalla del explore
End Sub


pero dicha busqueda no debe aparecer la ventanita de buscar sino ira buscando una cadena de texto generada por el programa.

[pana99]

Hola.
Te puedo ayudar para encontrar la cadena, para realtarla, sinceramente no se me ocurre nada pra hacerlos

Entonces, para encontrar una cadena

Código:

'Guardamos el contenido del webbrowser
aux = WebBrowser1.Document.body.innerHTML
Cadena = "TuCadena"
'Buscamos donde comineza la cadena
Ini = InStr(1, aux, Cadena) 
'Si existe
If ini >0 then
    'Lo mostramos
     msgbox mid(aux, ini, len(Cadena)-Ini)
endif

Espero te sirva por lo menos ara comenzar

Saludos