[es-users] Fwd: Macros: ejecutar sub al hacer click en un boton

Saludos!

Tengo un formario en Base, con un boton al cual le he asignado un evento en
"Botón del Raton Pulsado" - en Propiedades del Boton -> Acontecimientos.

Pero parece no funcionar, y no veo q puede estar faltando... aca les dejo
el codigo:

Sub Click_Button
    Dim oDoc as Object
    Dim oDrawpage as Object
    Dim oForm as Object

    oDoc = ThisComponent
    oDrawpage = oDoc.drawpage
    oForm = oDrawpage.forms.getByName("formulario")

     oForm.getByName("campo_txt").setText("un Texto")
End Sub

Basicamente lo que estoy probando es colocar un texto a un campo de texto,
cuando se hace click en el boton.

Gracias.

-- 
Para instrucciones sobre darse de baja envíe un mensaje a: users+unsubscribe@es.libreoffice.org
¿Problemas? http://es.libreoffice.org/asistencia/listas-de-correo/como-darse-de-baja/
Guías para envío + más: http://wiki.documentfoundation.org/Netiquette/es
Archivo de la lista: http://listarchives.libreoffice.org/es/users/
Todos los mensajes enviados a esta lista serán archivados públicamente y no pueden ser eliminados