LibreOffice从7.5升级至7.6后宏失效，求兼容7.0+的修复方案

失效原因 #

LibreOffice 7.6版本对UNO API的空值校验逻辑做了严格调整：

• 当getCellRangeByName无法匹配到指定的单元格范围时，会直接返回Null，而7.5及更早版本会返回一个空的单元格范围对象，不会触发报错。
• 部分场景下ThisComponent.CurrentController.ActiveSheet的对象引用稳定性下降，若工作表未完全激活，会导致后续调用方法失败。

修复后的兼容代码 #

Sub Col_D_for_Y
    Dim oDoc As Object
    Dim oController As Object
    Dim oSheet As Object
    Dim oSourceRange As Object
    Dim oTargetCell As Object
    
    ' 安全获取文档和控制器对象，避免空引用
    oDoc = ThisComponent
    oController = oDoc.CurrentController
    If IsNull(oController) Then Exit Sub
    
    ' 安全获取活动工作表
    oSheet = oController.ActiveSheet
    If IsNull(oSheet) Then Exit Sub
    
    ' 检查源范围是否存在
    oSourceRange = oSheet.getCellRangeByName("D14:D32")
    If IsNull(oSourceRange) Then
        MsgBox "源单元格范围D14:D32不存在", MB_OK, "错误提示"
        Exit Sub
    End If
    
    ' 检查目标单元格是否存在
    oTargetCell = oSheet.getCellRangeByName("L14")
    If IsNull(oTargetCell) Then
        MsgBox "目标单元格L14不存在", MB_OK, "错误提示"
        Exit Sub
    End If
    
    ' 执行复制操作
    oSheet.copyRange(oTargetCell.CellAddress, oSourceRange.RangeAddress)
End Sub

关键兼容处理点 #

• 增加空值校验：对所有API返回的对象进行IsNull检查，避免因对象不存在导致的运行时错误，这在7.6+版本中是必须的，同时兼容旧版本的容错逻辑。
• 拆分对象获取步骤：将文档、控制器、工作表的获取拆分为独立步骤，提升代码稳定性，避免链式调用的潜在风险。
• 增加错误提示：当指定范围不存在时，弹出明确提示，便于排查问题。

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