Pergunte aqui
0

Como criar macro para que o texto em um formulário fique sempre em maiúscula

perguntadas 2016-08-30 20:04:47 +0200

imagem do gravatar de Rodrigo Zimmermann

updated 2017-04-27 02:35:41 +0200

Tenho um formulário no LibreOffice Writer que permite inserir dados em uma tabela do Base, porém há um campo em que o usuário precisa inserir texto apenas em letras maiúsculas.

Não encontrei uma maneira de limitar a entrada do texto apenas em maiúsculas. Como é um campo de formulário, o recurso de transformar em maiúsculas do Writer não funciona.

Penso em uma macro, mas não sei como criá-la. Alguém sabe como fazer uma macro para que o texto digitado dentro do campo do formulário se transforme automaticamente em maiúsculas?

editar alterar tag assinalar como ofensivo fechar mesclar Excluir

Comentários

Boa tarde! O que exatamente vai neste campo? Possui tamanho fixo de caracteres? Se for o caso, talvez nem precise de macro, mas sim utilizar o controle "campo de padrão". Atte, Grafeno.

imagem do gravatar de GrafenoGrafeno ( 2016-08-30 23:20:04 +0200 )editar

Não possui tamanho fixo de caracteres. Como faço para definir que somente entre letras maiúsculas no campo

imagem do gravatar de Rodrigo ZimmermannRodrigo Zimmermann ( 2016-08-31 18:15:34 +0200 )editar

1 Resposta

1

respondidas 2016-08-31 19:19:45 +0200

imagem do gravatar de Grafeno

updated 2016-08-31 19:20:53 +0200

Boa tarde,


Atribua a macro abaixo ao evento Ao perder o foco do controle caixa de texto. Ela foi adaptada desta contribuição aqui (em inglês).

Sub UPPER_case (oEvent As Object) 'Text Box > Events > When Losing Focus
   oTextBox = oEvent.Source.Model
   sText = Ucase(oTextBox.Text)
   oTextBox.BoundField.updateString(sText)
End Sub


Atte,
Grafeno

editar assinalar como ofensivo Excluir Link mais

Comentários

Funcionou perfeitamente. Obrigado.

imagem do gravatar de Rodrigo ZimmermannRodrigo Zimmermann ( 2016-09-08 21:44:49 +0200 )editar

Que ótimo! Obrigado pelo retorno, mas, então, vc poderia assinalar a resposta como correta, clicando no √? Assim contribuímos para o Ask ficar mais organizado.

imagem do gravatar de GrafenoGrafeno ( 2016-09-18 13:49:49 +0200 )editar
Login/Registrar para responder

Ferramentas de perguntas

1 seguidor

Estatísticas

Perguntadas: 2016-08-30 20:04:47 +0200

Lidas: 431 vezes

Última atualização: Aug 31 '16