Tipo Word

[Gigabyte]

Aí pesssoal, a dúvida e a seguinte:

Como é que eu faço para fazer aquele negócio do Word, que substitui automaticamente algumas palavras pré definidas. Na Prática eu vou precisar substituir "1/2" por "Chr(189)" por exemplo, mas durante a digitação. Já procurei neste fórum pela palavra chave Replace mas os resultados não ajudaram.

Grato.

[Fabson]

Tente isso:

Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)

If InStr(Text1, "1/2") > 0 Then

Text1 = Replace(Text1, "1/2", "¢")

SendKeys "{END}"

End If

End Sub

Até mais...

[Gigabyte]

Aí Fabson, valeu mesmo!!!!

Eu estou tão acostumado com certas dificuldades para implementar o código que muitas vezes acabo tomando o caminho mais complicado para resolver problemas simples! Você tinha que ver o código monstro que eu tinha criado para fazer o mesmo serviço!!!!!

Cara, brigadão mesmo, já tava ficando louco com isso.

[Fabson]

Estamos ai pra isso.

As vezes as pessoas que estão "fora do problema" conseguem ver soluções mais simples do que as pessoas que estão envolvidas nele.

Isso acontece constantemente comigo.

Até mais....