Boa tarde de novo pessoal,

 

Aguém sabe como faço para localizar uma determinada palavra em um texto?

 

grato

Pierre

Segue o Código...

'

Dim mtzTeste As Variant
Dim strTeste As String
Dim i As Integer

strTeste = Text1
mtzTeste = Split(strTeste, " ")

Do While i <= UBound(mtzTeste)
    If Len(mtzTeste(i)) > 3 Then mtzTeste(i) = UCase(Mid(mtzTeste(i), 1, 1)) & LCase(Mid(mtzTeste(i), 2, Len(mtzTeste(i))))
    Text2 = Text2 & mtzTeste(i) & " "
    i = i + 1
Loop

 

t+...

Como uso este código, Naum deu certo aqui

 

grato

Pierre

Use a função InStr()