Sub Hoyoyo( sString As String ) msgbox sString End Sub
Hoyoyo ドキュメント中の Standard ライブラリ、Module1 にある Hoyoyo subroutine を引数付きで実行する。
Sub invoke_Hoyoyo sURL = "vnd.sun.star.script:Standard.Module1.Hoyoyo?language=Basic&location=document" 'フレームを見つけてくる oFrames = StarDesktop.getFrames() Dim oFrame As Object For i = 0 To oFrames.getCount() -1 Step 1 If Left(oFrames.getByIndex(i).Title,6) = "Hoyoyo" Then oFrame = oFrames.getByIndex(i) End If Next If NOT IsNull( oFrame ) Then oDoc = oFrame.getController().getModel() oSP = oDoc.ScriptProvider oScript = oSP.getScript(sURL) If NOT IsNull( oScript ) Then oScript.invoke( Array( "Say Hoyoyo." ), Array(), Array() ) End If End If End Sub
