无法通过Excel Vba在两个新创建的Word文档之间切换

Sub SwitchBetweenWordDocuments()
    Dim wordApp As Object
    Dim doc1 As Object
    Dim doc2 As Object
    
    ' 创建Word应用程序对象
    Set wordApp = CreateObject("Word.Application")
    
    ' 打开第一个新创建的Word文档
    Set doc1 = wordApp.Documents.Add
    
    ' 打开第二个新创建的Word文档
    Set doc2 = wordApp.Documents.Add
    
    ' 切换到第一个文档
    doc1.Activate
    
    ' 在两个文档之间切换
    wordApp.ActivateNext
    
    ' 关闭Word应用程序
    wordApp.Quit
    
    ' 释放对象变量
    Set doc1 = Nothing
    Set doc2 = Nothing
    Set wordApp = Nothing
End Sub