如何在LibreOffice Basic宏中选中Calc表格整行？

宏录制器在处理Calc的整行选中操作时确实不太靠谱，它没法正确捕捉到底层的API调用，所以得直接用Basic代码来实现。

情况1：选中当前单元格所在的整行 #

把下面的代码复制到宏编辑器里：

Sub SelectCurrentRow
    Dim oSheet As Object
    Dim oCell As Object
    Dim oRowRange As Object
    
    ' 获取当前活动工作表
    oSheet = ThisComponent.CurrentController.ActiveSheet
    ' 获取当前选中的单元格
    oCell = ThisComponent.CurrentController.Selection
    
    ' 确保选中的是单个单元格
    If oCell.supportsService("com.sun.star.table.XCell") Then
        ' 通过单元格行索引获取对应行对象
        oRowRange = oSheet.getRows().getByIndex(oCell.CellAddress.Row)
        ' 选中该行
        ThisComponent.CurrentController.select(oRowRange)
    End If
End Sub

情况2：选中指定行 #

如果要选中固定行（注意Calc的行索引从0开始，比如第3行对应索引2），用这段代码：

Sub SelectSpecificRow
    Dim oSheet As Object
    Dim oRowRange As Object
    Dim targetRowIndex As Integer
    
    ' 设置目标行索引，这里示例是第3行
    targetRowIndex = 2
    
    oSheet = ThisComponent.CurrentController.ActiveSheet
    oRowRange = oSheet.getRows().getByIndex(targetRowIndex)
    ThisComponent.CurrentController.select(oRowRange)
End Sub

使用步骤 #

1. 打开Calc，按Alt+F11打开宏编辑器
2. 右键点击左侧的"我的宏"，选择"插入"->"模块"
3. 把上面的代码粘贴到模块窗口中
4. 关闭编辑器，按Alt+F8选择对应的宏运行就行

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