Converter Letras
Enviado: 26 Set 2016 às 23:00
Boa noite a todos!!
Será que alguém poderia me ajudar na seguinte situação
O codigo esta muito extenso, e quando vou colocar na textbox fica gigante, não me recordo o nome de quem postou esse código, para poder referenciar, o codigo atende as necessidades, porém queria poder publicar em um modulo e chamar resumido para a textbox...
se alguém puder me ajudar a publicar no módulo, agradeço desde já...
Dim Altera As String
Dim Particula_atona(9) As String
Dim Particula(9) As String
Dim i As Integer
Particula_atona(1) = "Da"
Particula_atona(2) = "De"
Particula_atona(3) = "Do"
Particula_atona(4) = "No"
Particula_atona(5) = "A"
Particula_atona(6) = "E"
Particula_atona(7) = "I"
Particula_atona(8) = "O"
Particula_atona(9) = "U"
Particula(1) = "da"
Particula(2) = "de"
Particula(3) = "do"
Particula(4) = "no"
Particula(5) = "a"
Particula(6) = "e"
Particula(7) = "i"
Particula(8) = "o"
Particula(9) = "u"
Altera = txtPDnomecliente.Text
Altera = StrConv(Altera, vbProperCase)
For i = 1 To 9
Altera = Replace(Altera, " " & Particula_atona(i) & " ", " " & Particula(i) & " ")
Next
txtPDnomecliente.Text = Altera
Será que alguém poderia me ajudar na seguinte situação
O codigo esta muito extenso, e quando vou colocar na textbox fica gigante, não me recordo o nome de quem postou esse código, para poder referenciar, o codigo atende as necessidades, porém queria poder publicar em um modulo e chamar resumido para a textbox...
se alguém puder me ajudar a publicar no módulo, agradeço desde já...
Dim Altera As String
Dim Particula_atona(9) As String
Dim Particula(9) As String
Dim i As Integer
Particula_atona(1) = "Da"
Particula_atona(2) = "De"
Particula_atona(3) = "Do"
Particula_atona(4) = "No"
Particula_atona(5) = "A"
Particula_atona(6) = "E"
Particula_atona(7) = "I"
Particula_atona(8) = "O"
Particula_atona(9) = "U"
Particula(1) = "da"
Particula(2) = "de"
Particula(3) = "do"
Particula(4) = "no"
Particula(5) = "a"
Particula(6) = "e"
Particula(7) = "i"
Particula(8) = "o"
Particula(9) = "u"
Altera = txtPDnomecliente.Text
Altera = StrConv(Altera, vbProperCase)
For i = 1 To 9
Altera = Replace(Altera, " " & Particula_atona(i) & " ", " " & Particula(i) & " ")
Next
txtPDnomecliente.Text = Altera