我尝试使用Excel VBA保存Word文档，但收到错误消息

"ActiveX组件无法创建对象。“

当我调试时，错误来自行： Set wrdApps = CreateObject("Word.Application") 。

它正在工作，然后它开始给我这个错误。

Sub saveDoc()
Dim i As Integer
For i = 1 To 2661:
    Dim fname As String
    Dim fpath As String
    With Application
        .DisplayAlerts = False
        .ScreenUpdating = False
        .EnableEvents = False
    End With
    fname = ThisWorkbook.Worksheets(3).Range("H" & i).Value
    fpath = ThisWorkbook.Worksheets(3).Range("G" & i).Value
    Dim wrdApps As Object
    Dim wrdDoc As Object
    Set wrdApps = CreateObject("Word.Application")
    'the next line copies the active document- the ActiveDocument.FullName 
    ' is important otherwise it will just create a blank document
    wrdApps.documents.Add wrdDoc.FullName
    Set wrdDoc = wrdApps.documents.Open(ThisWorkbook.Worksheets(3).Range("f" & i).Value)
    ' do not need the Activate, it will be Activate
    wrdApps.Visible = False  
    ' the next line saves the copy to your location and name
    wrdDoc.SaveAs "I:\Yun\RTEMP DOC & PDF\" & fname
    'next line closes the copy leaving you with the original document
    wrdDoc.Close
    On Error GoTo NextSheet:
NextSheet:
    Resume NextSheet2
NextSheet2:
Next i
With Application
   .DisplayAlerts = True
   .ScreenUpdating = True
   .EnableEvents = True
End With