Utilizamos cookies propias y de terceros para mejorar la experiencia de navegación, y ofrecer contenidos y publicidad de interés. Al continuar con la navegación entendemos que se acepta nuestra política de cookies.
Hola amigo :-) aquí tienes un codigo tienes que cargar desde la ventana componente este objeto Microsoft HTML Object Librery o declaras una variable tipo object
Dim T As IHTMLTxtRange ' o tipo object
Set T = Web.Document.body.createTextRange
if T.findText("Busqueda") = true then T.Select else msgbox "NO se encontro el texto" end if