如何使用LibreOffice Basic代码在指定库中创建新模块？

错误原因 #

你遇到的com.sun.star.lang.IllegalArgumentException是因为insertByName方法的第二个参数类型不匹配：你传入了空字符串，但该方法要求传入**com.sun.star.script.BasicModule类型的实例**，而非字符串值。

修正后的代码 #

要创建新模块，需先通过模块容器的createInstance方法生成合法的模块实例，再插入到目标库中：

Sub CreateNewCalcModule
    Dim oLibContainer As Object
    Dim oTargetLib As Object
    Dim oModuleContainer As Object
    Dim oNewBasicModule As Object
    
    ' 获取当前文档的库容器
    oLibContainer = ThisComponent.getLibraryContainer()
    ' 定位到目标库"C_calc"
    oTargetLib = oLibContainer.getByName("C_calc")
    ' 获取库的模块管理容器
    oModuleContainer = oTargetLib.getModuleContainer()
    
    ' 创建新的Basic模块实例
    oNewBasicModule = oModuleContainer.createInstance("com.sun.star.script.BasicModule")
    ' 将新模块插入到库中，指定名称为"newModule"
    oModuleContainer.insertByName("newModule", oNewBasicModule)
    
    ' 必须调用store保存修改，否则关闭文档后新模块会丢失
    oLibContainer.store()
End Sub

关键注意事项 #

• 确保目标库C_calc处于可编辑状态（不是只读或未加载状态）
• 执行插入操作后必须调用store()方法，否则新模块不会被持久化保存

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