Boa noite, pessoal sou principiante e auto didático estou querendo descobrir como colocar no formulário uma macro para colocar no text box um função para deixar ao digitar o texto em formato maiusculo
Alguém pode me ajudar por favor
Atenciosamente,
Nelinho
Boa Tarde
Sim isso mesmo
Segue exemplo simples de uso…
Sub Teste
msgbox ucase("teste")
msgbox lcase("Teste")
End Sub
Eu gostaria de saber se tem como colocar e como fazer para funcionar nos campo de text box.
Enconteri um exemplo mais não deu certo vou lhe mostra o que eu achei.
Sub ConverterTextBoxParaMaiusculas
Dim oDoc As Object, oForm As Object, oTextBox As Object, oTextBox1 As object, oTextBox2 As object
Dim oTextBox3 As object, oTextBox4 As object, oTextBox5 As object, oTextBox6 As object, oTextBox7 As object
Dim oTextBoxControl As Object
Dim sTexto As String
’ Obter o documento atual
oDoc = ThisComponent
’ Obter o formulário (assumindo que o TextBox está em um formulário)
oForm = oDoc.DrawPage.Forms.getByName(“Frm_Cad_Exames”) ’ Substitua “Formulario” pelo nome do seu formulário
’ Obter o controle TextBox (assumindo que o nome do TextBox é “TextBox1”)
oTextBox = oForm.getByName(“TxtNomePac”) ’ Substitua “TextBox1” pelo nome do seu TextBox
'oTextBox1 = oForm.getByName(“TxtExpeditor”) ’ Substitua “TextBox1” pelo nome do seu TextBox
'oTextBox2 = oForm.getByName(“TxtNomeMae”) ’ Substitua “TextBox1” pelo nome do seu TextBox
'oTextBox3 = oForm.getByName(“TxtPlano”) ’ Substitua “TextBox1” pelo nome do seu TextBox
'oTextBox4 = oForm.getByName(“TxtEndereco”) ’ Substitua “TextBox1” pelo nome do seu TextBox
'oTextBox5 = oForm.getByName(“TxtBairro”) ’ Substitua “TextBox1” pelo nome do seu TextBox
'oTextBox6 = oForm.getByName(“TxtComplemento”) ’ Substitua “TextBox1” pelo nome do seu TextBox
'oTextBox7 = oForm.getByName(“TxtMunicipio”) ’ Substitua “TextBox1” pelo nome do seu TextBox
’ Obter o valor do TextBox
sTexto = oTextBox.Text
'sTexto = oTextBox1.Text
'sTexto = oTextBox2.Text
'sTexto = oTextBox3.Text
'sTexto = oTextBox4.Text
'sTexto = oTextBox5.Text
'sTexto = oTextBox6.Text
'sTexto = oTextBox7.Text
’ Converter o texto para maiúsculas
oTextBox.Text = UCase(sTexto)
'oTextBox1.Text = UCase(sTexto)
'oTextBox2.Text = UCase(sTexto)
'oTextBox3.Text = UCase(sTexto)
'oTextBox4.Text = UCase(sTexto)
'oTextBox5.Text = UCase(sTexto)
'oTextBox6.Text = UCase(sTexto)
'oTextBox7.Text = UCase(sTexto)
’ Opcional: Atualizar o controle para exibir a mudança
oTextBoxControl = oDoc.getCurrentController().getControl(oTextBox)
oTextBoxControl.commit()
End Sub
Mais vou ver este seu exemplo de Mensagem