LibreOffice Basic MsgBoxで表示できない長いテキスト表示する

LibreOffice Basic MsgBoxで表示できない長いテキスト表示する

　http://hermione.s41.xrea.com/pukiwiki/index.php?OOoMacrobbs#ne7a0a21
上記のサイトの 長いテキスト表示用ダイアログ を拝借しました。

コードのダイアログのサイズ、テキストエリアのサイズなど変更した。
テキストのコピーもできるのでなにかと便利


マイマクロのStandardライブラリ→Module1の内容を表示する。

Sub Library()
    Dim oLibry as Object
    Dim oSrc as String
        oLibry = GlobalScope.basicLibraries.getByName("Standard")
        oSrc = oLibry.getByName("Module1")
        'txtDialog呼出
        Call txt(oSrc)
End Sub

ライブラリリストの表示

Sub Library2()
    Dim oLibry as Object
    Dim oDisp as String
        oLibry = GlobalScope.basicLibraries.getElementNames()
        oDisp = "[ Library List ]" & Chr(10)
        for i = 0 to UBound(oLibry)
            oDisp = oDisp & oLibry(i) & Chr(10)
        next i
    msgbox oDisp,0,"Library List"
End Sub

上記のマクロは　　マクロの杜様から

http://openoffice3.web.fc2.com/index.html
http://openoffice3.web.fc2.com/OOoBasic_General3.html

コメント 1

Zithromax Side Effects Elderly https://buyciallisonline.com/ - Buy Cialis Fluconazole 150 Mg For Sale <a href=https://buyciallisonline.com/#>Buy Cialis</a> Buy Clomid Pills Online In The Uk
by Bupsfutty (2020-06-07 17:50)