@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 na pergunta ou abaixo. Não use Adicionar resposta para comentário. Grato.
Caso a resposta atendeu sua necessidade, por gentileza, click na bolinha a esquerda da resposta, para finalizar a pergunta.