Gerar informações aleatórias LibreOffice Calc

[Xpecthor]

Fala, pessoal!

Sou novato no Libre, queria ver se podiam me informar como faço para pegar uma lista de palavras em um conjunto de células, apertar um botão criado e que uma dessas palavras seja selecionada aletoriamente para aparecer em outra célula. Exemplo: Crio uma lista com as palavras “Casa”, “Casebre” e “Mansão”, clico em um botão criado dentro do Libre com a palavra “Gerar” nele e em uma célula ao lado da lista é escolhido e preenchido aleatoriamente a palavra “Casebre”.

Agradeço desde já!

[schiavinatto]

Ola @Xpecthor, segue uma sugestão …

REM ***** BASIC *****

'Caso queira GERAR na célula ativa 
' desabilite a linha GoToLocal

Sub Gerar
	GoToLocal "Planilha1.D3"
x = Int((6 - 1 + 1) * Rnd + 1)
ThisComponent.getCurrentSelection().Value = x
ThisComponent.getCurrentSelection().Formula = "=CHOOSE("& x &";B3;B4;B5;B6;B7;B8)"
 CreateUnoService("com.sun.star.frame.DispatchHelper") _
 .executeDispatch(ThisComponent.CurrentController.Frame _
  , ".uno:ConvertFormulaToValue", "", 0, Array())
End Sub


Sub GoToLocal ( xLocal$ )
dim Loc(0) as new com.sun.star.beans.PropertyValue
Loc(0).Name = "ToPoint" : Loc(0).Value = xLocal
CreateUnoService("com.sun.star.frame.DispatchHelper") _
.executeDispatch(ThisComponent.CurrentController.Frame _
, ".uno:GoToCell", "", 0, Loc())
End Sub

Arquivo do teste: Xpecthor.ods (199.7 KB)