Excel VBA打开多个Word应用程序导致错误

Sub OpenWordApplication()
    Dim wordApp As Object ' Word.Application
    Dim wordDoc As Object ' Word.Document
    
    ' 检查是否已经有打开的Word应用程序
    On Error Resume Next
    Set wordApp = GetObject(, "Word.Application")
    On Error GoTo 0
    
    ' 如果没有打开的Word应用程序，则创建一个新的应用程序对象
    If wordApp Is Nothing Then
        Set wordApp = CreateObject("Word.Application")
    End If
    
    ' 打开Word文档
    Set wordDoc = wordApp.Documents.Open("C:\Path\To\Your\Word\File.docx")
    
    ' 其他操作...
    
    ' 关闭Word文档和应用程序
    wordDoc.Close
    wordApp.Quit
    
    ' 释放对象
    Set wordDoc = Nothing
    Set wordApp = Nothing
End Sub