如何通过单脚本为LibreOffice添加重启后保留的菜单

核心问题解决思路 #

要实现重启后保留的菜单，本质是让LibreOffice每次启动时自动执行添加菜单的宏。下面针对你的情况给出具体脚本方案，解决「找不到自定义入口」「basic_libraries长度为0」等问题：

1. 先解决库访问问题 #

你之前代码里basic_libraries长度为0，是因为没正确定位到用户自定义Basic库。需要通过UNO服务获取用户库容器，而非直接读取系统库。

2. 完整脚本实现（Python） #

确保已经用scalc.exe --accept=socket,host=127.0.0.1,port=8100;urp启动Calc，然后用LibreOffice自带的Python（路径一般是C:\Program Files\LibreOffice\program\python.exe）运行以下脚本：

import uno
from com.sun.star.beans import PropertyValue

# 连接到已启动的LibreOffice实例
local_ctx = uno.getComponentContext()
resolver = local_ctx.ServiceManager.createInstanceWithContext(
    "com.sun.star.bridge.UnoUrlResolver", local_ctx)
remote_ctx = resolver.resolve("uno:socket,host=127.0.0.1,port=8100;urp;StarOffice.ComponentContext")

# 获取Basic库管理器
script_factory = remote_ctx.ServiceManager.createInstanceWithContext(
    "com.sun.star.script.provider.MasterScriptProviderFactory", remote_ctx)
basic_provider = script_factory.createScriptProvider("").getScriptProvider("com.sun.star.script.provider.Basic")
lib_container = basic_provider.getLibraryContainer()

# 创建/获取用户Standard库
if "Standard" not in lib_container.getElementNames():
    user_lib = lib_container.createLibrary("Standard")
else:
    user_lib = lib_container.getByName("Standard")

# 创建/获取Module1模块
if "Module1" not in user_lib.getElementNames():
    user_lib.createModule("Module1")
target_module = user_lib.getByName("Module1")

# 写入带菜单逻辑的AutoExec宏
autoexec_code = '''
Sub AutoExec
    Dim oFrame As Object, oBarMgr As Object, oMenuBar As Object
    Dim oNewMenu As Object, oMenuItem As Object
    
    ' 获取主窗口框架与菜单栏管理器
    oFrame = ThisComponent.CurrentController.Frame
    oBarMgr = oFrame.LayoutManager
    oMenuBar = oBarMgr.getCommandBar("private:resource/menubar/menubar")
    
    ' 创建自定义菜单
    oNewMenu = oBarMgr.createCommandBarControl("com.sun.star.ui.CommandBarControlType.MENU", "", "我的自定义菜单", "", 0, True)
    
    ' 添加菜单项（绑定到自己的宏）
    oMenuItem = oBarMgr.createCommandBarControl("com.sun.star.ui.CommandBarControlType.COMMAND", ".uno:Macro", "测试按钮", "", 0, True)
    oMenuItem.setPropertyValue("CommandURL", "macro:///Standard.Module1.MyTestMacro")
    
    ' 将菜单项加入菜单，再把菜单加到菜单栏末尾
    oNewMenu.addControl(oMenuItem, 0)
    oMenuBar.addControl(oNewMenu, oMenuBar.getControls().getCount())
    
    ' 刷新菜单栏
    oBarMgr.updateCommandBars()
End Sub

Sub MyTestMacro
    MsgBox("自定义菜单生效了！")
End Sub
'''
target_module.setSourceCode(autoexec_code)

# 注册AutoExec为启动宏
config_provider = remote_ctx.ServiceManager.createInstanceWithContext(
    "com.sun.star.configuration.ConfigurationProvider", remote_ctx)
prop = PropertyValue()
prop.Name = "nodepath"
prop.Value = "/org.openoffice.Office.Common/Macro/Executable"
config_update = config_provider.createInstanceWithArguments(
    "com.sun.star.configuration.ConfigurationUpdateAccess", (prop,))

# 添加启动项
exec_list = config_update.getPropertyValue("Execute")
new_exec_entry = remote_ctx.ServiceManager.createInstanceWithContext(
    "com.sun.star.beans.PropertyValue", remote_ctx)
new_exec_entry.Name = "Macro"
new_exec_entry.Value = "macro:///Standard.Module1.AutoExec"
exec_list.append(new_exec_entry)
config_update.setPropertyValue("Execute", exec_list)
config_update.commitChanges()

# 保存库修改
user_lib.store()
print("设置完成，重启LibreOffice后菜单会自动加载")

3. 关于「工具>宏>自定义」的位置 #

LibreOffice 7.4.x的入口是**「工具」>「自定义」**，打开窗口后切换到「宏」标签页，就能手动绑定宏到菜单或快捷键。如果还是找不到，可以直接按Alt+F11打开宏编辑器，右键Standard库选「属性」，也能设置启动宏。

关键注意事项 #

• 脚本运行时必须保证Calc处于打开状态，且已经用--accept参数启动
• 如果需要调整菜单名称、位置或绑定的宏，直接修改autoexec_code里的对应内容即可
• 测试时可以先手动运行AutoExec宏，确认菜单能正常添加后再设置启动项

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