Abrir formulário a partir de uma seleção da 'Caixa de Listagem' no mesmo arquivo

Oi galera, sou médico, e portanto um tanto quanto leigo nisso.

Estou criando uma ficha de Prontuário para atender pacientes na clínica.

A dúvida é, a partir da seleção específica que eu clicar, por exemplo, diabetes, vai abrir NESSE MESMO ARQUIVO (logo abaixo) um formulário específico para diabetes, e assim por diante.

Eu sou leigo, se alguém puder dar uma força e mostrar um passo-a-passo eu agradeceria muito!

@andre0692, é possível montar com Autotexto

https://help.libreoffice.org/7.0/pt-BR/text/swriter/guide/autotext.html?DbPAR=WRITER#bm_id3155521

oi amigo
primeiro obrigado por responder
o autotexto pelo q entendí seria uma alternativa sim. Eu digito uma palavra X e ela completa com o resto.
Mas eu gostaria de outra maneira como mostrei: ao clicad na opcao q escolher naquela lista, mostrar mais opcoes que eu montaria. Parece que tem como, mas usando MACROS. Acho q vou ter que fuçar sobre, você poderia me explicar?
Muito obrigado de coraçao amigo

Não é o ideal, é só uma alternativa, até alguém corrigir:

Não sei como ligar a caixa de texto com a macro diretamente.

Arquivo teste: Dropbox - File Deleted

Vídeo mostrando: Dropbox - File Deleted

Utiliza Autotexto.

Nossa, é bem isso que preciso mesmo! Que legal! Vou aguardar a solução! Obrigado por se interessar e ajudar!

@andre0692, sugestão de solução ( Lembrei que para o Calc eu tinha )…

Macro usada da questão ask.81458 e adaptada para Writer ( Na verdade cortei uns pedaços e funcionou ).

REM  fonte https://ask.libreoffice.org/t/caixa-de-listagem-no-calc/21977

Sub lstLocais_Alterado( oEvento ) ' Caixa de Listagem > Eventos > Alterado
Dim olstLocais As Object, olstLocaisView As Object
Dim oDoc As Object, oControlador As Object
Dim oPlanDestino As Object
Dim sAtual As String, sEscolha As String

   ' Obter o Controlador
   oDoc = ThisComponent
   oControlador = oDoc.CurrentController
   
   ' Model (Modelo) do Listbox que disparou o evento
   ' Model descreve a aparência, o comportamento
   ' e apresenta os dados do controle
   olstLocais = oEvento.Source.Model
   ' Escolha do usuário no listbox 
   sEscolha = olstLocais.CurrentValue
   ' Se escolher a planilha atual não fazer nada
   If sEscolha  = sAtual Then Exit Sub   
   
   ' View (Visão) do Lisbox que disparou o evento
   ' View é o que usuário vê do controle e
   ' por onde interage através do(s) controlador(es)
   olstLocaisView = oControlador.getControl( olstLocais )

   ' Chamada de SubMacro   
		Consulta sEscolha
End Sub


Sub Consulta ( xMotivo$ )
dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "Text" : args1(0).Value = xMotivo
CreateUnoService("com.sun.star.frame.DispatchHelper") _
.executeDispatch(ThisComponent.CurrentController.Frame, ".uno:InsertText", "", 0, args1())
CreateUnoService("com.sun.star.frame.DispatchHelper") _
.executeDispatch(ThisComponent.CurrentController.Frame, ".uno:ExpandGlossary", "", 0, Array())
End Sub 

Arquivo do teste, lembrando da necessidade da criação dos Autotextos


ATENÇÂO:: Para dar mais detalhes a sua pergunta, use Descrição da imagem na pergunta ou Descrição da imagem abaixo. Não use Adicionar resposta para comentário. Grato.

Caso a resposta atendeu sua necessidade, por gentileza, click na bolinha Descrição da imagem a esquerda da resposta, para finalizar a pergunta.

Você é o cara!! Deu certo!

Mas ainda tenho uma dúvida!

Isso só está funcionando enquanto está no modo editável.

Quando eu desabilito o modo editável, ou até mesmo converto para PDF (para utilizar apenas como de fato um formulário), ele não funciona. Alguma sugestão?

Para funcionar 100% em PDF deve ser criado com Adobe com as funções nativa dele.

Se tivesse mencionada que iria converter para PDF, já teria alertado.

O LibreOffice tem funções e macros não aceitas para conversão em PDF.