Gracias Mauricio por tu tiempo.
Seguí tus indicaciones la macro funciona según lo esperado.
Pero la modifiqué para aclarar mi inquietud sobre el foco así:
Veamos un ejemplo...
Sub PierdeFoco()
Dim sTmp As String
Dim PaginaDibujo As Object
Dim Formulario As Object
Dim txtPruebas As Object
PaginaDibujo =
ThisComponent.getCurrentController.getActiveSheet.getDrawPage
Formulario = PaginaDibujo.Forms.getByName("frmPruebas")
txtPruebas = Formulario.getByName("txtPruebas")
sTmp = txtPruebas.Text()
If sTmp = "" Then
msgbox "digite un valor", 0 ,"Error de datos"
txtPruebas.setFocus()
Else
MsgBox sTmp
end if
End Sub
Y en la linea txtPruebas.setFocus() me genera el error "Propiedad o
Método no encontrados"
He probado con Xray para conocer las propiedades y métodos de los
objetos pero tampoco he podido encontrar el adecuado para establecer el
Foco a la caja de texto.
--
Manuel Andrés Ramírez P.
Administrador Informático
GNU/Linux Registered User:412887
Visite:www.obtengalinux.org
"El placer más noble es el júbilo de comprender"
(Leonardo Da Vinci)
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
