昨日の仕掛（その２）

前にアップした作成イメージの項番にそって概要を書いてみたい。

＜作成イメージ＞
１）LibreOffice Basicで、ファイルの選択、テキストのインポートを自動化できないか

マクロには詳しくないので、Webで公開されているものやマクロの自動記録で吐き出された内容を手直ししていく方法をとっている。

今回もWeb検索から始めた。

世の中には、同じように不便を感じる方がいたもので、私が作ろうとしていたイメージ通りのマクロソースを公開していらっしゃる方がおり、それを使わせてもらうことにした。

========　ここから、マクロソース

Sub Main
rem 変数の宣言
Dim FilePicker As Object
Dim Accept As Integer
Dim Doc As Object
Dim FileProperties(1) As New com.sun.star.beans.PropertyValue
Dim Url As String

rem ファイルを開くダイアログボックスを表示する
FilePicker=createUnoService("com.sun.star.ui.dialogs.FilePicker")
FilePicker.initialize(Array(com.sun.star.ui.dialogs.TemplateDescription.FILEOPEN_SIMPLE))
FilePicker.setTitle("")
FilePicker.appendFilter("CSV FIles(csv,txt)","*.csv;*.txt")
rem CSV
Accept=FilePicker.execute()
If Accept=1 Then rem ファイルを選択し開くボタンをクリックしたら
FIles()=FilePicker.getFiles()
Url=ConvertToUrl(files(0))
Else rem キャンセルボタンが押されたら
Url=""
Exit Sub
End if

rem FilePropertiesの指定
FileProperties(0).Name = "FilterName"
FileProperties(0).Value ="Text - txt - csv (StarCalc)"
FileProperties(1).Name = "FilterOptions"
FileProperties(1).value = "44,34,0,1"

rem CSVファイルを開く
Doc=StarDesktop.loadComponentFromURL(Url,"_blank",0,FileProperties())
End Sub

=========ここまで
White Tiger（http://www7b.biglobe.ne.jp/~whitetiger/ex/liboffice032.html）さんの作成したマクロ

ご親切にコメントまで付けていただいており、おかげで内容もなんとなくわかったので、Calcのマクロ編集画面にコピペで動かしてみたら、お～～、である。

あたしゃ、とてもこんなすっきりしたものはできない。（笑）

＜作成イメージ＞
２）できたマクロは、『マイマクロ』に登録し、Calcでの作業で共有化

マクロは個別のシートに紐付けする場合が多いけれど、汎用性のあるものは『マイマクロ』に登録すると他のシートでもシェアできるのでとても便利だ。

ということで、『マイマクロ』に上記のマクロを登録。

Calcのメニューから、「ツール」→「マクロ」→「マクロの管理」→「LibreOffice Basic」とクリックして辿ると、マクロのプロパティ画面が開く。

「マイマクロのStandard」の項を選択して、右側の「New」をクリックすると、「Module１」が作成され、マクロ編集画面となるので、そこに上記のマクロソースとコピペして登録。

このままだと、マクロを実行するのになんどもクリックとなる。
なんのためのマクロか分からない。（笑）

次回は、Calcのショートカットキーの登録手順。
続きは明日あたりかな。(*^^)v

＝＝＝＝＝＝＝＝＝＝＝＝
<今日は何の日>
今日は、『障害障害者の日』
1975(昭和50)年、国連総会で「障害者の権利宣言」が採択。
国際障害者年の1981(昭和56)年の今日、内閣府主催の中心記念事業「広がる希望の集い」で制定。

生まれながら、事故等で、普通の生活に大きな負担がある人がたくさんいらっしゃるのはわかります。
でも、障害者って何？
私はこのブログでも書いていますが、人間関係不得手。
でも、健常者Grです。

ここまで生きてきて思うのは、世の中変なヤツばかり。
完璧な人にはお目にかかったことがない。

みんなある意味障害者なんじゃないでしょうか。

自分とは違う、自分より弱いそんな視線で人を見るのはやめたらいいですね。

人は見方次第で、みな障害者！
健常者というのは、心のゆとり、豊かさの問題だと思います。