A esto lo logré mediante el evento de hoja doble click, al cual le enganché la sig macro
Código: Seleccionar todo
Sub ModificaDescripcion()
Dim oDialogo As Object
'Dim oControlComponentes As Object
Dim Res As Integer
Dim oCelda As Object
Dim oPosCelda As Object
Dim oHojaActual As Object
Dim sTmp As String
DialogLibraries.LoadLibrary( "Standard" )
oDialogo = CreateUnoDialog( DialogLibraries.Standard.getByName("DlgModificaDescripcion") )
oCelda = thisComponent.getCurrentSelection()
oPosCelda = oCelda.getRangeaddress()
'esto que sigue es para probar ubicar posicion de la celda donde se clickea
sTmp = "El rango esta en la hoja: " & oPosCelda.Sheet & Chr(13) & _
"Columna de inicio: " & oPosCelda.StartColumn & Chr(13) & _
"Fila de inicio: " & oPosCelda.StartRow & Chr(13) & _
"Columna final: " & oPosCelda.EndColumn & Chr(13) & _
"Fila final: " & oPosCelda.EndRow
MsgBox sTmp
oControlComponentes = oDialogo.getModel("LDescripcion")
oControlComponentes.Title = oCelda.getString
'El método execute devuelve un valor
Res = oDialogo.execute()
if Res = 1 then
else
End if
oDialogo.dispose()
End Sub
A esta macro la grabo en el documento, lo mismo que al cuadro de diálogo, bueno estamos en contacto, saludos
Fede