如何修改OO Calc宏代码 对鼠标选中单元格设置边框样式

我是OO Calc宏的初学者，目前编写了如下BASIC宏代码，运行后可对指定的F13:F16单元格区域设置线宽为3的底部外边框样式：

REM  *****  BASIC  *****
Option Explicit

Sub Main
oDoc = ThisComponent
osheets = odoc.getSheets()
osheet = osheets.getByIndex(0)
oCells = oSheet.getCellRangeByName("F13:F16")
NewBorder = oCells.BottomBorder
NewBorder.OuterLineWidth = 3
oCells.BottomBorder = NewBorder
End Sub

需要实现的效果：修改上述代码，无需在代码中硬编码固定单元格范围，直接对鼠标当前选中的单元格应用对应的边框样式。

核心修改点是替换硬编码获取单元格范围的逻辑，直接通过文档控制器获取当前选中区域即可，修改后的完整可运行代码如下：

REM  *****  BASIC  *****
Option Explicit

Sub Main
    Dim oDoc As Object
    Dim oController As Object
    Dim oCells As Object
    Dim NewBorder As Object
    
    oDoc = ThisComponent
    ' 获取当前视图控制器，读取用户选中的区域
    oController = oDoc.getCurrentController()
    oCells = oController.getSelection()
    
    ' 校验选中对象类型，避免选中图形、图表等非单元格内容时报错
    If Not oCells.supportsService("com.sun.star.sheet.SheetCellRange") Then
        MsgBox "请先选中目标单元格区域再运行宏", 0, "操作提示"
        Exit Sub
    End If
    
    ' 原有边框设置逻辑无需改动
    NewBorder = oCells.BottomBorder
    NewBorder.OuterLineWidth = 3
    oCells.BottomBorder = NewBorder
End Sub

关键改动说明 #

• 删除了原代码中硬编码取第一个工作表、按单元格名称读取F13:F16区域的逻辑
• 调用getCurrentController()获取当前文档的活动视图控制器，通过控制器的getSelection()方法直接读取鼠标当前选中的内容，支持单个单元格、连续单元格区域、多块不连续单元格区域的选中场景
• 增加了选中对象类型校验，当选中内容不是单元格区域时弹出提示，直接退出宏避免运行错误

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