从word-vba中查看excel是否处于编辑模式

Sub CheckIfExcelIsEditing()
    Dim excelApp As Object
    Dim excelWorkbook As Object
    Dim excelWorksheet As Object
    Dim excelIsEditing As Boolean

    On Error Resume Next
    Set excelApp = GetObject(, "Excel.Application")
    If Err.Number = 0 Then
        On Error GoTo 0
        excelIsEditing = excelApp.ActiveCell Is Nothing
        If Not excelIsEditing Then
            Set excelWorkbook = excelApp.ActiveWorkbook
            Set excelWorksheet = excelWorkbook.ActiveSheet
            excelIsEditing = Not (excelWorksheet.Cells(1, 1).Value = "")
        End If
        excelApp.Quit
    End If

    If excelIsEditing Then
        MsgBox "Excel is in editing mode."
    Else
        MsgBox "Excel is not in editing mode."
    End If
End Sub