luangabs

Conseguir adaptar o código do eduzsrj, nesse link Só deixo um adendo ao código dele: no final da execução do código, onde acontece o último "replace", é preciso escrever na seguinte forma ConverterParaExtenso = Replace(sExtensoFinal, " e e ", " e ", 1, , vbTextCompare) trocando-se o termo "e e " por " e e ", e o termo "e " por " e " (notar os espaços), pois dava problema no caso, por exemplo, do número 23 (ao invés de "vinte e três", o código lia a sequência "e e " e trocava-a por "e ", ficando então "vinte três").

Bom dia! Também fiz questão de me registrar no fórum para agradecer por essa informação valiozíssima! Queria aproveitar parar sugerir, porque eu não tenho muita experiência em VBA, outro problema: passar para extenso as porcentagens, assim como descrito no link http://www.migalhas.com.br/Gramatigalhas/10,MI24539,91041-Como+se+le+8347 A forma de escrever por extenso nesse caso é diferente, implicando num código provavelmente bem diferente também. Abraços!