Oi, Elton, ainda esta precisando de uma solução, para problema abaixo?
Vai uma dica, talvez diminua o problema.
Com os Autotextos criados, crie macros conforme abaixo, para cada Autotexto:
rem -----------------------------------------------------------------------
rem o mone da sub é o nome do ATALHO do Autotexto
rem ----------------------------------------------------------------------
sub DPA
rem ----------------
rem define variables
dim document as object
dim dispatcher as object
rem --------------------------
rem get access to the document
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
rem ------------------------------------------------
dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "Text"
rem
----------------------------------------------------------------------------------------
rem altere abaixo o valor entre aspas "" para o nome do ATALHO do Autotexto
rem
----------------------------------------------------------------------------------------
args1(0).Value = "DPA"
dispatcher.executeDispatch(document, ".uno:InsertText", "", 0, args1())
rem F3
dispatcher.executeDispatch(document, ".uno:ExpandGlossary", "", 0, Array())
end sub
-----------------------------------
Após criação das macros, vá em Ferramentas/Personalizar...
selecione o box do Menu clique e Novo de um nome OK
selecione o Menu criado, clique no box Conteúdo do menu e clique em
Adicionar
em Categoria, expanda Macros do libreoffice, selecione onde esta suas macros
clique na desejada para inclusão no Menu e clique Adicionar
voltará para o box Conteúdo do menu, selecione-a expanda o botão Modificar
selecione Renomear..., se necessário. E logo abaixo selecione Salvar em:
LibreOffice Writer.
faça com todas as necessárias.
de Ok
Você estando no Writer, aparecera o novo menu com seus Autotextos listados,
caso queira aciona-los e só clicar no desejado, que acionara a macro
correspondente.
(a macro é a digitação do ATALHO + F3).
Caso queira partir de um arquivo modelo, ao invés de Salvar em:
LibreOffice Writer
é só Salvar neste arquivo.
Ao seu dispor para mais detalhes.
[pt-br-usuarios] [barra de ferramentas x autotexto] Inserir auto texto
na barra
Subject: [pt-br-usuarios] [barra de ferramentas x autotexto]
Inserir auto texto na barra
From: Elton Dhiego Dias Fernandes <eltondhi...@yahoo.com.br>
Date: Tue, 30 Apr 2013 11:21:20 -0700 (PDT)
To: "usuarios@pt-br.libreoffice.org" <usuarios@pt-br.libreoffice.org>
Pessoal,
Tem como inserir alguns autotextos criados como atalho na barra de
ferramentas?
Imaginem que alguns autotextos enormes foram criados e somente são
utilizados de tempos em tempos, de modo que o usuário não consegue
decorar o atalho. Toda vez que ele precisa desses textos é preciso abrir
a janela de autotexto e procurá-los. Sendo possível inserir esses
autotextos como atalhos na barra de ferramentas, o usuário quando
precisar do texto em questão apenas clicaria no botão.
Na verdade, é um monte de usuário acostumado com esse recurso no
Word e sobra pra mim a missão de descobrir como podemos fazer algo
semelhante no LibO.
Desde já agradeço a ajuda de todos.
Atenciosamente,
Ass: Elton Dhiego
________________________________
--
Você está recebendo e-mails da lista usuarios@pt-br.libreoffice.org
# Informações sobre os comandos disponíveis (em inglês):
mande e-mail vazio para usuarios+unsubscr...@pt-br.libreoffice.org
# Cancelar sua assinatura: mande e-mail vazio para:
usuarios+unsubscr...@pt-br.libreoffice.org
# Arquivo de mensagens: http://listarchives.libreoffice.org/pt-br/usuarios/
