Ooo 的 MacroExecutionMode

　　
因為保安理由，Ooo 用 Macro 開啟一個「含有 Macro 新檔案」時，「新檔案」的 Macro 不會執行。

為了這個問題，上網找了很多資料，始終是日本人的工作細緻，給了個解答。以下是主要的程式碼：

Sub bbb_open

Dim oDoc,oDoc1 As Object
Dim sUrl As String
Dim mArg(0) As New com.sun.star.beans.PropertyValue

oDoc=StarDesktop.CurrentComponent
sUrl="file:///C:/usr/bbb.ods"

mArg(0).Name = "MacroExecutionMode"
mArg(0).Value = com.sun.star.document.MacroExecMode.USE_CONFIG　'按 openoffice 設定
oDoc1 = StarDesktop.loadComponentFromURL(sUrl, "_blank", 0, mArg())

oDoc.close(true)

End Sub

順手記一下：

新檔案禁止執行 Macro： NEVER_EXECUTE
新檔案容許執行 Macro ： ALWAYS_EXECUTE_NO_WARN