title: Creating Word Application using Excel VBA: Run-time error '429': ActiveX component can't create object
body: <p>I am trying to save Word docs using Excel VBA, but I get the error</p>
  
  <blockquote>
    <p>"ActiveX component can't create object." </p>
  </blockquote>
  
  <p>When I debug, the error comes from the line: <code>Set wrdApps = CreateObject("Word.Application")</code>.</p>
  
  <p>It was working, then it started giving me this error.</p>
  
  <pre><code>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" &amp; i).Value
      fpath = ThisWorkbook.Worksheets(3).Range("G" &amp; 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" &amp; 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 &amp; PDF\" &amp; 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
  
  End Sub
  </code></pre>