如何在LibreOffice Basic运行时通过代码增删子程序或函数？

LibreOffice Basic本身不支持原生的运行时动态创建、删除子程序/函数，但可以通过几种变通方案实现类似效果，以此满足你模拟依赖倒置的需求：

1. 通过BasicLibraries操作代码模块 #

可以直接操作文档或应用级的宏库，在运行时创建新模块、写入代码文本，完成后可调用新增的函数/子程序，也能删除模块实现清理。

Sub CreateAndRunDynamicFunction()
    Dim oLib As Object, oModule As Object
    ' 加载标准宏库（若不存在会自动创建）
    oLib = BasicLibraries.LoadLibrary("Standard")
    ' 创建新模块
    oModule = oLib.createModule("DynamicCodeModule")
    ' 写入函数源码
    oModule.Source = "Function DynamicMultiply(a As Double, b As Double) As Double" & Chr(13) & _
                     "    DynamicMultiply = a * b" & Chr(13) & _
                     "End Function"
    ' 调用动态创建的函数
    MsgBox Run("Standard.DynamicCodeModule.DynamicMultiply", 4.5, 2)
End Sub

Sub RemoveDynamicModule()
    Dim oLib As Object
    oLib = BasicLibraries.LoadLibrary("Standard")
    ' 删除指定模块
    If oLib.hasByName("DynamicCodeModule") Then
        oLib.removeModule("DynamicCodeModule")
    End If
End Sub

注意：这种方式会修改宏库的源码并保存，需要文档启用宏权限，否则会被安全机制拦截。

2. 用ScriptProvider执行临时代码片段 #

借助LibreOffice的脚本框架，可以直接执行字符串形式的代码，无需写入模块，适合临时逻辑的运行：

Sub RunTemporaryCode()
    Dim oScriptProvider As Object, oScript As Object
    Dim sCode As String
    ' 定义临时函数并执行
    sCode = "Function TempCalc(x) : TempCalc = x ^ 3 : End Function : TempCalc(3)"
    oScriptProvider = CreateUnoService("com.sun.star.script.provider.MasterScriptProviderFactory") _
                      .createScriptProvider("")
    oScript = oScriptProvider.getScript("vnd.sun.star.script:" & sCode & "?language=Basic&location=user")
    ' 执行并输出结果
    MsgBox oScript.invoke(Array(), Array(), Array())
End Sub

这种方式的代码不会被持久化，但无法创建全局可重复调用的命名函数，仅适合单次执行场景。

3. 模拟依赖倒置的更优方案 #

如果核心需求是实现依赖倒置，无需依赖动态代码，用类模块+多态更稳定：

1. 创建多个类模块（如ClassPaymentAlipay、ClassPaymentWechat），每个类都实现统一的ProcessPayment(amount As Double)方法；
2. 主逻辑中根据需求实例化不同类，调用统一方法：

Sub DependencyInversionDemo()
    Dim oPayment As Object
    ' 根据业务条件选择支付实现类
    If UseAlipay() Then
        oPayment = New ClassPaymentAlipay
    Else
        oPayment = New ClassPaymentWechat
    End If
    ' 统一调用，无需关心具体实现
    oPayment.ProcessPayment(199.0)
End Sub

这是更符合LibreOffice Basic特性的实现方式，避免了动态代码的调试和权限问题。

限制说明 #

• 动态修改模块需要用户授权宏编辑权限，否则会被安全策略阻止；
• 动态代码的调试难度高，出错后排查成本大；
• 脚本框架执行的临时代码无法定义全局可复用的函数。

内容的提问来源于stack exchange，提问作者mutercim