Libreoffice, как скопировать из Writer и вставить неформатированный в Calc по умолчанию?

Question

У меня есть исправленная версия переведенного текста, сделанная клиентом, я являюсь сторонним рецензентом и должен заполнить модуль .xls всеми исходными текстами, переведенным и измененными клиентом.

Щелчок правой кнопкой мыши> вставка вызывает тот же шрифт (и размер), который был в Writer, но мне просто нужен чистый текст. Мы говорим о тысячах и более записях, и щелчок правой кнопкой мыши> вставить специальный> неформатированный текст> ОК не является ни быстрым, ни удобным для пользователя.

В Интернете я нашел только то, как копировать и вставлять в Calc так, как я хочу (используя макросы), но мне не удалось заставить его работать на разных платформах. Есть ли способ, пожалуйста? Это сводит меня с ума.

Версия LibreOffice: 4.4.3.2, Linux Mint 17.2 Cinnamon 64 bit

Заранее спасибо!

Answer 1

Есть несколько идей по адресу https://ask.libreoffice.org/en/question/1035/paste-unformatted-text-default-option/, но единственная, которая сработала для меня, - это макрос:

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

Под Tools -> Customize , установите горячую клавишу или кнопку панели инструментов для этого макроса. Например, я использовал F4.

Я проверил это на Ubuntu, который должен быть похож на Mint.