Libre office マクロ

いままで、msOffice エクセルを使ってましたが、将来を考え、LibreOfficeを使いかけています。
エクセルにおいては、自分で作った簡単なマクロをクイックアクセスツールバーのボタンに組み込んで、Enter後のカーソル移動方向を右向きにしたり下向きにしたり、「可視セルコピー」、「値での貼り付け」をワンタッチでできるようにしていました。
Libre Office ではどのような方法があるか調べていたのですが、なかなか思うようにいきません。
とくに、Enter後の移動方向の変更は頻繁に使いたいので、良い方法が知りたいと思います。
もちろん、基本は下方向にしておいて、TABで右向きに動かすという方法はわかっていますが、常にEnterキーで処理したいと思っています。
Libre office に詳しい方いらっしゃいましたらお力頂きたいと思います。

No.3 ベストアンサー 回答者： WindFaller 回答日時： 2015/08/25 09:02

こんにちは。

LibreOffice はなかなか便利だと思います。Office にはない機能もあります。いろいろ探して、私は、お絵かきソフトは、Drawになりました。

ただ、LibreOffice のヘルプはかなり貧弱ですから、既存のコマンドさえ分からない時があります。

マニュアルとしては、JA福岡市が出ているのが詳しいような気がするのです。
http://www.ja-fukuoka.or.jp/libre/781/

https://help.libreoffice.org/Common/Using_Micros …

それと、マクロの話が出ていますが、私は、LibreOfficeの前のOOo(OpenOffice.org)のマクロで挫折したのは、BASICと言いながら、その中身は、決して、VBAの言語とは違う別の言語が透けて見えてくるのと、全体の構成が分かりにくかったのです。

もうひとつは、Microsoft Office は、外部オブジェクトを豊富に使えるという点で、LibreOfficeなどでは、その使い方が分からないということです。ものすごく単純なことでも、その方法が見つからないので、Calcなどの継続的な利用はやめてしまいました。

Excel VBAから、LibreOfficeのコンバーターもありますが、思うようにはいかないようです。それと、LibreOfficeのマクロのBASICには、チュートリアル・サイトもあります。
http://www.debugpoint.com/category/programming/l …

ご質問に出されている、LbreOfficeで、「Enterキーで(右へ)処理」は、Calc のオプションで「右」を選べばよいのではありませんか？マクロについては分かりませんが。

過去の歴史からすると、コンピュータの主流のアプリケーションソフトが、ある日を堺に、急に市場から消えることもあるかもしれませんね。私は、二度経験しました。しかし、基本的な所を押さえていれば、どんな製品になろうと使えるものなのです。変に、前の使っていたソフトの仕様を求めると、なかなか切り替えができないようです。Lotus123からExcelに移行した人たちなどは、かなり長い間、前のパターンが残ったようです。

この回答へのお礼

ありがとうございます。
気長に取り組みます。

お礼日時：2015/08/25 16:09

No.4 回答者： himajin100000 回答日時： 2015/08/25 13:55

Option Explicit

' 参考資料
' https://github.com/LibreOffice/core/blob/4a6ebbe …
' https://github.com/LibreOffice/core/blob/ff3c4f4 …
' あまり深く読んで考えてない参考資料
' https://forum.openoffice.org/en/forum/viewtopic. …
' http://superuser.com/questions/592338/libreoffic …

' 値での貼り付け
Sub PasteValueOnly()
Dim dispatchhelper As Object
dispatchhelper = CreateUNOService("com.sun.star.frame.DispatchHelper")
dispatchhelper.executeDispatch(ThisComponent.CurrentController.Frame, ".uno:PasteOnlyValue", "", 0, Array())
End Sub

' http://api.libreoffice.org/docs/idl/ref/servicec …
' http://api.libreoffice.org/docs/idl/ref/namespac …

Sub ChangeMoveDirection()
Dim globalsettings As Object
globalsettings = CreateUNOService("com.sun.star.sheet.GlobalSheetSettings")
globalsettings.MoveDirection = 3 ' 例えば…左
End Sub

しかし…

’ 以下失敗
Option Explicit

Sub Main()
Dim aConfigProvider, oNode, args(2) As new com.sun.star.beans.PropertyValue
aConfigProvider = createUnoService("com.sun.star.configuration.ConfigurationProvider")
args(0).Name = "nodepath"
args(0).Value = "/org.openoffice.Office.Calc/Input"
'args(1).Name = "enableasync"
'args(1).Value = false
'args(2).Name = "nocache"
'args(2).Value = true
oNode = aConfigProvider.createInstanceWithArguments ("com.sun.star.configuration.ConfigurationUpdateAccess", args)
oNode.replaceByName("MoveSelectionDirection",1)
oNode.commitChanges()
End Sub

こう書くと、カーソルが動かなくなったんで設定画面見ても型がbyteにしかなってないのは何故かはわからない…

>可視セルコピー
面倒だったので調べず(LibreOffice Extensionsのサイトにある拡張は少なくとも5.0 x86_64 on Windows 10で動作していない。原因未調査)

この回答へのお礼

ありがとうございます。
簡単そうな処理なのに、まだまだ先が長そうです。

お礼日時：2015/08/25 16:08

No.2 回答者： kuririku922 回答日時： 2015/08/25 03:27

質問者様は現在お幾つなのでしょうか。

就職されているお年ですか。

就職して会社で使うのは、ほとんどがMicrosoftOfficeだと
思っているので回答いたしました。
民間の会社では無料のソフトは使わないと
聞いたことがありますけれど、間違いでしょうか。

ですが、Microsoft Officeを習得された上での勉強なら、
Libre officeやOpenOfficeを勉強するのもいいかもしれません。
使っている企業があれば役に立つと思いますから。

この回答へのお礼

50代です。
もちろん、仕事ではmsOfficeを使っています。
Libre Office はプライベートで使おうとしています。
ありがとうございました。

お礼日時：2015/08/25 16:12

No.1 回答者： kuririku922 回答日時： 2015/08/24 15:17

回答ではないので申し訳ないのですが。

将来を考えるなら、、MicrosoftOfficeをじっくり勉強した方が
役に立つと思いますけれど。

この回答へのお礼

ご回答ありがとうございます。
msOfficeはこれまでそれなりに勉強してきました。
ExcelもAccessもやってきました。
今後いつまでも高いお金を払って新しいバージョンのOfficeを使わなきゃならないかと思った時、以前から気になっていたOpenOffice系が相当進歩していると感じ、私的には今後はAccessも使う頻度は減るのでExcelとWord程度ならとLibreOfficeの選択を試しています。
もし、msにこだわった方がよい何か理由があれば知りたいと思います。
よろしくお願い致します。

お礼日時：2015/08/25 02:25