Lista de Seleção

[schiavinatto]

Quando executo Alt+Down a Lista de seleção é aberta e permanece até efetivar a escolha.

Mas se executo a Macro abaixo, abre e fecha rapidamente, sem tempo de selecionar.

Pergunta, existe maneira de deixa-la aberta até finalizar a escolha

'================================================|
sub AbrirListaSelecao
'================================================|
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
dispatcher.executeDispatch(document, ".uno:DataSelect", "", 0, Array())
end Sub

[schiavinatto]

Sei lá o que estava errado com o arquivo, hoje abri e esta funcionando !!!

[schiavinatto]

.

Sub AbrirListaSelecao
    CreateUnoService("com.sun.star.frame.DispatchHelper") _
    .executeDispatch(ThisComponent.CurrentController.Frame _
    , ".uno:DataSelect", "", 0, Array())
    End Sub