Libreoffice, como copiar do Writer e colar não formatado no Calc, por padrão?

Question

Eu tenho a revisão de um texto traduzido, feito pelo cliente, eu sou o revisor de terceiros e tenho que preencher um módulo .xls com todos os textos de origem, o traduzido e o alterado pelo cliente.

Clique com o botão direito > Colar traz a mesma fonte (e tamanho) que estava no Writer, mas eu só preciso do texto puro. Estamos falando de mil ou mais entradas e clique com o botão direito > colar especial > texto não formatado > OK não é nem rápido nem fácil de usar.

Encontrei on-line apenas como copiar e colar no Calc da maneira que desejo (usando macros), mas não consegui fazê-lo funcionar em todas as plataformas. Existe alguma maneira, por favor? Está me deixando louco.

Versão do LibreOffice: 4.4.3.2, Linux Mint 17.2 Canela 64 bits

Obrigado antecipadamente!

    

Answer 1

Existem várias ideias no link , mas a única um que funcionou para mim é uma macro:

Sub paste_unformatted
    Dim document As Object
    Dim dispatcher As Object
    document = ThisComponent.CurrentController.Frame
    dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
    Dim args1(0) As New com.sun.star.beans.PropertyValue
    args1(0).Name = "SelectedFormat"
    args1(0).Value = 1
    dispatcher.executeDispatch(document, ".uno:ClipboardFormatItems", "", 0, args1())
End Sub

Em Tools -> Customize , defina uma tecla de atalho ou um botão da barra de ferramentas para essa macro. Por exemplo, eu usei F4 .

Eu testei isso no Ubuntu, que deve ser semelhante ao Mint.