Hola gente, estoy buscando un code para hacer mas o menos, que
busque en el Text1 la palabra de un inputbox osea..
Private Sub Command1_Click()
Buscar = InputBox("Que quieres buscar?","Buscar")
Split(Text1.text,Buscar)
end sub
y ademas de buscarlo, si se encuentra, que lo marque..
espero sus respuestas! salu2
Espero que esto te sirva:
Palabra = InputBox("Palabra a buscar", "Buscar")
For i = 1 To Len(Text1)
If LCase(Mid(Text1, i, Len(Palabra))) = LCase(Palabra) Then
Text1.SetFocus
Text1.SelStart = i - 1
Text1.SelLength = Len(Palabra)
Exit For
End If
Next i
NOTA: Cuando encuentra la palabra buscada, va a terminar la busqueda, por lo que si queda otra palabra igual mas adelante no se va a marcar. Para arreglarlo sacale el Exit For y te recomiendo ir poniendo el valor de i en una variable para despues ir buscandola. Espero que se entienda ;D
Saludos.-
perfecto anda 10 pts
pero no tenes algun code para que busque otro? osea.. buscar siguiente