Libre base URLを開くには

カテゴリー: Office

2015-11-06

base URLを開くには

LibreOfficeの「エディットボックスのURL」を「ボタン」で開く方法

固定URLを開く場合
　属性　プッシュボタン
　　アクション「ドキュメントまたはHTMLを開く」
　　URL 「開きたいURLを入力します」を指定

他のコントロールから値を取得して開きたい場合
　属性　プッシュボタン
　　アクション「ドキュメントまたはHTMLを開く」
　　イベント　「実行前」にマクロ割り当て[ OpenUrl1 ]

マクロ

Sub OpenUrl1(oEv as object)
   dim oForm, oTextBox
   dim oSender , targetName

   oSender = oEv.source.model
   if (oSender.name = "BtnOpenURL2") then
         targetName = "txtURL2"
   else
         targetName = "txtURL1"
   end if
   
   oForm=oEv.source.model.parent
   oTextBox=oForm.getbyname(targetName)
   if ( TRIM(oTextBox.text) <> "") then
      oEv.source.model.targeturl = TRIM(oTextBox.Text)
      openurl = true
    else
      openurl = false
   end if
End Sub

Sub OpenUrlDirect(sURL as string)
   dim paramText
      paramText = "url.dll,FileProtocolHandler " & "'" & sURL & "'"
      Shell("rundll32.exe" , 1, paramText)
      ' https://help.libreoffice.org/Basic/Shell_Function_Runtime/ja
End Sub