如果Word文档尚未打开，Excel VBA代码会显示错误

Sub OpenWordDocument()
    Dim WordApp As Object
    Dim WordDoc As Object
    
    On Error Resume Next
    ' 尝试获取已经打开的Word应用程序对象
    Set WordApp = GetObject(, "Word.Application")
    On Error GoTo 0
    
    ' 如果Word应用程序对象不存在，则创建一个新的Word应用程序对象
    If WordApp Is Nothing Then
        Set WordApp = CreateObject("Word.Application")
    End If
    
    ' 检查Word文档是否已经打开
    If WordApp.Documents.Count = 0 Then
        ' 如果文档尚未打开，则显示错误提示
        MsgBox "Word文档尚未打开！"
        Exit Sub
    End If
    
    ' 获取第一个打开的Word文档对象
    Set WordDoc = WordApp.Documents(1)
    
    ' 在这里编写操作Word文档的代码
    
    ' 关闭Word文档
    WordDoc.Close
    
    ' 退出Word应用程序
    WordApp.Quit
    
    ' 释放对象变量
    Set WordDoc = Nothing
    Set WordApp = Nothing
End Sub