迁移VBA宏至LibreOffice Basic：如何获取所有复选框？

LibreOffice基于UNO API，遍历复选框需要根据文档类型（Calc/Writer）和控件所在位置分别处理，以下是几种常见场景的实现方法：

Calc表格中的复选框 #

Calc里的复选框通常放在工作表的DrawPage中，通过遍历每个工作表的DrawPage控件集合，用supportsService判断是否为复选框：

Sub ListAllCheckBoxesInCalc
    Dim oSheets As Object
    Dim oSheet As Object
    Dim oDrawPage As Object
    Dim oControl As Object
    Dim i As Integer, j As Integer
    
    oSheets = ThisComponent.Sheets
    For i = 0 To oSheets.Count - 1
        oSheet = oSheets(i)
        oDrawPage = oSheet.DrawPage
        For j = 0 To oDrawPage.Count - 1
            oControl = oDrawPage(j)
            ' 验证控件是否为复选框
            If oControl.supportsService("com.sun.star.form.component.CheckBox") Then
                Print "复选框名称: " & oControl.Name & ", 选中状态: " & oControl.State
                ' 在这里添加你的业务处理逻辑
            End If
        Next j
    Next i
End Sub

Writer文档中的复选框 #

Writer里的独立复选框一般在文档的DrawPage中，遍历方式类似：

Sub ListAllCheckBoxesInWriter
    Dim oDrawPage As Object
    Dim oControl As Object
    Dim i As Integer
    
    oDrawPage = ThisComponent.DrawPage
    For i = 0 To oDrawPage.Count - 1
        oControl = oDrawPage(i)
        If oControl.supportsService("com.sun.star.form.component.CheckBox") Then
            Print "复选框名称: " & oControl.Name & ", 选中状态: " & oControl.State
            ' 自定义处理逻辑
        End If
    Next i
End Sub

嵌入表单中的复选框 #

如果复选框是表单的一部分，需要先遍历文档的Forms集合，再逐个检查表单内的控件：

Sub ListCheckBoxesInForms
    Dim oForms As Object
    Dim oForm As Object
    Dim oControl As Object
    Dim i As Integer, j As Integer
    
    oForms = ThisComponent.Forms
    For i = 0 To oForms.Count - 1
        oForm = oForms(i)
        For j = 0 To oForm.Count - 1
            oControl = oForm(j)
            If oControl.supportsService("com.sun.star.form.component.CheckBox") Then
                Print "表单内复选框: " & oControl.Name & ", 选中状态: " & oControl.State
            End If
        Next j
    Next i
End Sub

关键说明 #

• supportsService是UNO API中判断控件类型的标准方法，比直接对比类名更稳定，避免因版本更新导致的类名变化
• oControl.State返回值：0为未选中，1为选中，2为不确定状态（仅当复选框启用三态时有效）

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