Re: [pt-br-usuarios] Preciso de Auxílio com Macro

Renato,

o código que enviei era pra vincular à variável ao conteúdo do InputBox 
(entendi que era essa a atividade desejada).

Para vincular uma variável ao conteúdo de um campo de um Formulário, 
pode utilizar o seguinte código:

'Variáveis de formulário
Global oDoc        As Object
Global oDocCrl     As Object
Global oForm       As Object
Global txtNome     As Object
Global txtAnoNasc  As Object
Global txtIdade    As Object

Sub Form_Open
   'Iniciar as variáveis de formulário
   oDoc    = StarDesktop.CurrentComponent
   oDocCrl = oDoc.getCurrentController()
   oForm   = oDoc.DrawPage.Forms.GetByIndex(0)

   txtNome    = oDocCrl.GetControl(oForm.getByName("txtNome"))
   txtAnoNasc = oDocCrl.GetControl(oForm.getByName("txtAnoNasc"))
   txtIdade   = oDocCrl.GetControl(oForm.getByName("txtIdade"))

   txtNome.Text    = ""
   txtAnoNasc.Text = ""
   txtIdade.Text   = ""
End Sub

Sub PegarIdade

   sName    = InputBox ("Qual o seu nome?","Cálculo de idade")
   iAnoNasc = Int(InputBox (sName & ", em que ano você 
nasceu?","Informe o ano com quatro dígitos"))
   iIdade   = (2012 - iAnoNasc)

   txtNome.Text    = sName
   txtAnoNasc.Text = iAnoNasc
   txtIdade.Text   = iIdade

End Sub

Segue em anexo um arquivo com um formulário de modelo.

Abraço.

Antonio Ezequiel.

Em 26/11/2012 16:13, GMAIL contador.renato.eco escreveu:
> Oi Antonio
>
> Como escrevi no email d ontem, só à noite peguei e li direito o seu 
> email e o que me sugeriste não é tratado pelo Basic como objeto de 
> formulário (Form)
>
> Segue abaixo imagem
>
> Abraços
>
> Renato
>
> ERRO LIBRE.JPG


--
Você está recebendo e-mails da lista usuarios@pt-br.libreoffice.org
# Informações sobre os comandos disponíveis (em inglês):
 mande e-mail vazio para usuarios+help@pt-br.libreoffice.org
# Cancelar sua assinatura: mande e-mail vazio para:
 usuarios+unsubscribe@pt-br.libreoffice.org
# Arquivo de mensagens: http://listarchives.libreoffice.org/pt-br/usuarios/