LibreOffice Calc中为分组框选项按钮绑定JavaScript宏的方法问询

一、修复JavaScript宏的事件绑定流程 #

你遇到的「Control Properties无事件标签」问题，核心是控件选择或编辑状态的操作失误，按以下步骤操作即可：

1. 开启表单设计模式：通过视图 > 工具栏 > 表单设计调出工具栏，点击「设计模式开启/关闭」按钮激活编辑状态。
2. 选中单个选项按钮（注意：Group Box仅用于分组互斥逻辑，不触发点击事件，需绑定到内部的选项按钮）。
3. 右键点击选中的按钮，选择「控件...」（不要选「表单...」），此时弹出的对话框会出现「事件」标签页。
4. 在「事件」标签页中，找到「执行动作」或「鼠标按钮按下」事件，点击右侧的「...」按钮，选择你在「My Macros」下创建的JavaScript宏。

JavaScript宏规范提示 #

LibreOffice的JavaScript宏必须接收event参数，示例结构如下：

function onOptionSelect(event) {
    const targetBtn = event.Source;
    const isSelected = targetBtn.State === 1; // 1代表选中状态
    // 在这里编写你的业务逻辑，比如根据选中状态修改表格内容
}

二、转用Python的可行方案 #

你已经熟悉UNO套接字操作，转用Python处理事件会更灵活，有两种主流方式：

方式1：通过UNO套接字监听全局事件 #

保持启动Calc时的套接字参数：

soffice --calc --accept="socket,host=localhost,port=2002;urp;"

编写Python脚本注册事件监听器：

import uno
from com.sun.star.awt import XActionListener

class OptionBtnListener(XActionListener):
    def actionPerformed(self, event):
        btn = event.Source.Model
        print(f"选中按钮：{btn.Name}，状态：{btn.State}")
        # 编写业务逻辑，比如修改指定单元格内容

# 连接LibreOffice服务
local_ctx = uno.getComponentContext()
resolver = local_ctx.ServiceManager.createInstanceWithContext(
    "com.sun.star.bridge.UnoUrlResolver", local_ctx)
ctx = resolver.resolve("uno:socket,host=localhost,port=2002;urp;StarOffice.ComponentContext")
smgr = ctx.ServiceManager
desktop = smgr.createInstanceWithContext("com.sun.star.frame.Desktop", ctx)
doc = desktop.getCurrentComponent()

# 获取表单和目标按钮（替换为你的表单名和按钮名）
form = doc.DrawPage.Forms.getByName("Form1")
btn1 = form.getByName("OptionButton1")
btn2 = form.getByName("OptionButton2")
btn3 = form.getByName("OptionButton3")

# 绑定监听器
btn1.addActionListener(OptionBtnListener())
btn2.addActionListener(OptionBtnListener())
btn3.addActionListener(OptionBtnListener())

# 保持脚本运行以监听事件
import time
while True:
    time.sleep(1)

方式2：将Python作为本地宏使用 #

把Python脚本放到LibreOffice的宏目录~/.config/libreoffice/4/user/Scripts/python/下，然后直接在控件的「事件」标签页选择该Python宏，无需额外套接字连接，用法和JavaScript宏一致。

三、宏之外的事件处理方案 #

如果不想用宏，可通过LibreOffice Basic作为中间层调用外部脚本：

1. 在控件事件中绑定一个Basic宏。
2. 在Basic宏里用Shell命令调用外部Python/JavaScript脚本，传递选中状态参数。

示例Basic宏：

Sub OnBtnClick(event)
    Dim btn As Object
    btn = event.Source
    ' 调用外部Python脚本，传递选中状态
    Shell("python3 /home/yourname/scripts/handle_option.py " & btn.State, 0)
End Sub

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