LibreOfficeでPythonを使う

2018年4月19日に更新

Ubuntu Studioに標準でインストールされているLibreOfficeには、LibreOffice Basicしか入っていませんので、インストールし直すことにしました。

・LibreOffice_5.4.3_Linux_x86-64_deb.tar.gz

・LibreOffice_5.4.3_Linux_x86-64_deb_langpack_ja.tar.gz

・LibreOffice_5.4.3_Linux_x86-64_deb_helppack_ja.tar.gz

・LibreOffice_5.4.3_Linux_x86-64_deb_sdk.tar.gz

最新版をダウンロードしインストール。ReadMeを読むとインストールは、「sudo dpkg -i *.deb」を各ファイルのフォルダで実行するだけで、すごく簡単にインストールできました。

マクロでPythonをクリックすると、JAVA JREをインストールしなければ動かないとのこと。

https://qiita.com/TsutomuNakamura/items/f12fdf0a8502e634584d

$ sudo add-apt-repository ppa:webupd8team/java

$ sudo apt update

$ sudo apt install oracle-java8-installer

$ sudo dpkg --list | grep oracle-java

インストールしたJAVAのバージョンを確認。

ii  oracle-java8-installer           8u151-1~webupd8~0          all          Oracle Java(TM) Development Kit (JDK) 8
ii  oracle-java8-set-default         8u151-1~webupd8~0          all          Set Oracle JDK 8 as default Java

環境変数を設定するパッケージのインストール

$ sudo apt-get install oracle-java8-set-default

インストールが完了したらターミナルを再起動して、環境変数を確認してみます。とあるがここで問題が発生。

$ env | grep -i java

これで、環境変数が追加されて内容が表示されるはずだが出てこない。

インストールをもう一度やっても駄目。調べてもわからないので、このまま先に進むことにする。

これでPythonマクロが使えるようになったが、・・・・・Pythonは新規作成ができない？？？あれ、作成のボタンが白くならない？？？ボタンを押せない！！

OpenOfficeのサイトで英語を翻訳しながら探していたら、Pythonだけエディタが無いらしい。えっ〜〜

Ubuntuではないが、別のLinuxで使っている人がいて、/home/ユーザー名/.config/libreoffice/4/user/Scripts/python/のフォルダにプログラムを入れるらしい。　

とりあえずここにネットで探したA1セルに値を入力するだけの簡単なプログラムを入れると、お〜〜Pythonマクロのダイアログボックスにファイル名がでてきた。

https://qiita.com/zanjibar/items/fa4d4c690cd07828d4f9

 def a1():
   doc = XSCRIPTCONTEXT.getDocument()   #関数の宣言以外は字下げが必要です。
   sheet = doc.getSheets().getByName('Sheet1')
   A1 = sheet.getCellRangeByName('A1')
   A1.Value = 100

次に、Calcから直接Pythonマクロを実行できるかどうかやっていきます。

参考にするサイト

日本語

https://blue21neo.blogspot.jp/2016/12/libreofficecalcbasicpython.html

英語

https://ask.libreoffice.org/en/question/52125/execute-a-python-macro-function-from-base-and-return-value-to-base/

上記の英語のサイトの回答欄だけをGoogle翻訳で翻訳したものです。

https://pocketcomputer.jimdo.com/libreoffice%E3%81%A7python-2/

日本語のサイトを参考にBasicマクロからPythonマクロを実行することは確認できました。

下記のコードで一応動きました。

Sub Main
    'Pythonマクロ（Sample.pyのBasic2Python)を実行        成功
    Dim a(0),b(0),c(0) As Variant
    scpr = ThisComponent.getScriptProvider
    scmod = scpr.getScript("vnd.sun.star.script:Sample.py$Basic2Python?language=Python&location=user")
    ret = scmod.invoke(a,b,c)
End Sub

Python側の関数の引数に「*args」と入れます
def Basic2Python(*args):

後は、Calcのユーザー関数として「=HonyakuE2J(A1)」のようにして使えるか、試します。

ちょっと、姑息な手段ですがCalcから関数として直接翻訳することに成功しました。ヒント「=HonyakuE2J(1)」引数に注意！

まっとうな手段で実行したいが。まぁ、できたことはできた。

LibreOffice Basicから引数=10をPythonマクロに渡して、Python側でx5して、戻り値をCalcのセルに入れることに成功しました。

これで、Calcから直接翻訳できそうです。

上記の参考にするサイトの英語版のサイトの回答欄の２．を参考にしました。

沢山の英文をCalcで翻訳する必要があったので、本格的に使おうと思ったらプログラムに問題があったので変更しました。

翻訳文のセルを"A2"と固定していたので実用的に使うことが出来ませんでした。

解決策としてアクティブセルの左隣に翻訳文を表示するようにしました。

これでも少し問題があります。関数のセルをコピーで連続してペーストすると、アクティブセルの左隣りのセルに翻訳文が次々と表示しては消えていきます。

コピペする時は、１つ１つペーストする必要があります。標準の関数のように連続してペーストする方法がわかりません。

"sl"の値が翻訳する言語です。"kr"を指定すると韓国語が翻訳されます。他の外国語は試していないのでわかりません。Google翻訳は英語以外は翻訳の精度が悪いです。英語はだいぶ良くなってきました。

"tl"の値が翻訳後の言語です。現状は"ja"日本語です。

Basic側コード

Function HonyakuE2J(Eng As String) as String
      
    On Error Goto HandleError1001

    Dim oActiveCell As Object
    oActiveCell = ThisComponent.CurrentSelection
    j = oActiveCell.CellAddress.Column        'アクティブセルを取得
    i = oActiveCell.CellAddress.Row

    Dim a(0) As String
    Dim b(0),c(0) As Variant

    oSheet = ThisComponent.CurrentController.getActiveSheet()
    oCell =     oSheet.getCellByPosition( j-1 , i )        'アクティブセルの左隣り
    a(0) = Eng
    scpr = ThisComponent.getScriptProvider
    scmod = scpr.getScript("vnd.sun.star.script:Honyaku.py$Test1HonyakuE2J?language=Python&location=user")
    returnFromPython = scmod.invoke(a,b,c)   
    oCell.String =  returnFromPython
        Exit Function
    HandleError1001:
        resume next
End Function

Python側コード

Honyaku.py

# coding: utf-8

import sys
import requests
import os

   # 英語を日本語に翻訳
def Test1HonyakuE2J(Eng):
    #引数のEngはStringで英語の文章
        #doc = XSCRIPTCONTEXT.getDocument()             #削除忘れ
    #sheet = doc.CurrentController.getActiveSheet() #削除忘れ

    sentence = Eng
    url = "https://translate.google.com/translate_a/single"

    headers = {
       "Host": "translate.google.com",
       "Accept": "*/*",
       "Cookie": "",
       "User-Agent": "GoogleTranslate/5.9.59004 (iPhone; iOS 10.2; ja; iPhone9,1)",
       "Accept-Language": "ja-jp",
       "Accept-Encoding": "gzip, deflate",
       "Connection": "keep-alive",
       }


    params = {
        "client": "it",
        "dt": ["t", "rmt", "bd", "rms", "qca", "ss", "md", "ld", "ex"],
        "otf": "2",
        "dj": "1",
        "q": sentence,
        "hl": "ja",
        "ie": "UTF-8",
        "oe": "UTF-8",
        "sl": "en",
        "tl": "ja",
        }


    res = requests.get(
        url=url,
        headers=headers,
        params=params,
        )

    res = res.json()
    return res["sentences"][0]["trans"]

後の課題は、引数を１つ増やして翻訳文を表示するセルを指定すること。

 つい最近まで使っていた古いPCに、このページ通りにインストールしてGoogle翻訳マクロが動くかやってみることにしました。

新しいPCの環境は、自作PCにUbuntu Studio17.10

古いPCは最近Linux Mint 18(Ubuntuの派生OS)をインストール

不足しているは上の方の記事を参照する。

Google翻訳のPythonコードをWEBからコピー（URLは上の方を参照）

LibreOfficeのマクロを確認。やっぱりBasicしか入っていません。

今回SDKを探していたら、すべてのVerを見つけたのでSDKだけインストールしたら、依存関係が・・・・・とインストール不可でした。

結局、このページ見ながら同じようにインストールすることにしました。

$ sudo spt-get remove libreoffice*           でLibreOfficeのアンインストールからはじめました。

OSが違うからか、インストール中のなんというか結果の表示内容が微妙に違う。

Google翻訳プログラムをPythonで実行。

$ python ./trans.py "翻訳する英文"

Python2は、ImportError: No module named 'requests'　　　今回はエラーだが、Ubuntu Studioでは翻訳できた。

$ python3 ./trans.py "翻訳する英文"

Python3は、翻訳できた。

$ /opt/libreoffice5.4/program/python ./trans.py "翻訳する英文"

LibreOfficeのPythonは、もちろんエラー

次に、LibreOfficeのマクロ　ー＞　Basic　ー＞　編集でコードを上記からコピーしてBasicエディタに貼りつける。

翻訳プログラムに上記のコードを追加、削除する。できた*.pyファイルを次のフォルダにコピーまたは移動します。

字下げ（インデント）は重要です。間違わないようにしなければいけません。

字下げがなければ、マクロ名の所に表示されませんし、字下げ位置が間違っていたらエラーがでる可能性があります。

/home/ユーザー名/.config/libreoffice/4/user/Scripts/python

~/.config/libreoffice/4/user/Scripts/python      でも同じです。"~"はホームディレクトリの意味です。

".config"フォルダは"."が付いているので普段は見えません。

端末の場合、"ls -a"と"-a"をつけると表示されます。

ファイルマネージャーは設定で　表示　ー＞　隠しファイルを表示するにチェックを入れると表示されます。

Scriptsとpythonのフォルダはなかったので作成しました。

コピーが終わるとLibreOfficeのマクロ　ー＞　実行　ー＞　ライブラリ　ー＞　マイマクロ　に表示されます。

ClacのC1セルに英文を入力し、A1セルに"=HONYAKUE2J(C1)"を入力。

あれ、エラーが出ないのに翻訳結果が出ない・・・

よく見たらBasicのコードが"Sheet2"になっていました。"Sheet1"に変更したら翻訳されました。

後でどのシート名でも翻訳できるように、アクティブシートに変更します。現在はコードを覚えていないので探してから。

全部終わって、LibreOfficeのインストールからおこなっても、順調に行けば４０~５０分で終わりそうです。

Python側のコードはCalc用　Honyaku.py　をそのまま使用する。

Basic側のコード

Global sTxtCString As String

Sub Main
    Dim oSels As Object
    Dim oSel As Object
    Dim oString
    Dim Honyaku As String

    oDoc = ThisComponent
    '選択した文字列を取得       
    oSels = oDoc.getCurrentSelection()
    oSel = oSels.getByIndex(i)
    oString = oSel.getString()        '選択した文字列

   'Pythonマクロ（Honyaku.pyのTest1HonyakuE2J)を実行      
    Dim a(0) As String
    Dim b(0),c(0) As Variant
    a(0) = oString
    scpr = ThisComponent.getScriptProvider
    scmod = scpr.getScript("vnd.sun.star.script:Honyaku.py$Test1HonyakuE2J?language=Python&location=user")
    returnFromPython = scmod.invoke(a,b,c)  

    Honyaku =  returnFromPython        '戻り値（翻訳された文章）

    CopyToClipBoard(Honyaku)
End Sub

'クリップボードにコピーする
Sub CopyToClipBoard( sText )
  ' create SystemClipboard instance
  oClip = CreateUnoService( _
      "com.sun.star.datatransfer.clipboard.SystemClipboard")
  oTR = createUnoListener("Tr_", _
      "com.sun.star.datatransfer.XTransferable")
  ' set data
  oClip.setContents(oTR,Null)
  sTxtCString = sText
  'oClip.flushClipboard() ' does not work
End Sub

Function Tr_getTransferData( _
    aFlavor as com.sun.star.datatransfer.DataFlavor)
  If (aFlavor.MimeType = "text/plain;charset=utf-16") Then
    Tr_getTransferData() = sTxtCString
  End If
End Function
 
Function Tr_getTransferDataFlavors()
  Dim aFlavor As new com.sun.star.datatransfer.DataFlavor
  aFlavor.MimeType = "text/plain;charset=utf-16"
  aFlavor.HumanPresentableName = "Unicode-Text"
  Tr_getTransferDataFlavors() = array(aFlavor)
End Function
 
Function Tr_isDataFlavorSupported( _
    aFlavor as com.sun.star.datatransfer.DataFlavor) as Boolean
  If aFlavor.MimeType = "text/plain;charset=utf-16" Then
    Tr_isDataFlavorSupported = true
  Else
    Tr_isDataFlavorSupported = false
  End If
End Function

リンク

Intercepting Context Menus

https://wiki.openoffice.org/wiki/Documentation/DevGuide/WritingUNO/Intercepting_Context_Menus

LibreOffice Pythonのサイト

https://p--q.blogspot.jp/2014/01/libreoffice1.html