[pt-br-usuarios] [barra de ferramentas x autotexto] Inserir auto texto na barra

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 <eltondhiego@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+unsubscribe@pt-br.libreoffice.org
# Cancelar sua assinatura: mande e-mail vazio para:
 usuarios+unsubscribe@pt-br.libreoffice.org
# Arquivo de mensagens: http://listarchives.libreoffice.org/pt-br/usuarios/