How to fix "Execution Error 429 : ActiveX can't create object" error in VBA

Question

This Excel macro below should convert all .Docx into the selected folder to .Pdf

Here is the code line which provide me the error Code 429, But several hours ago this same line of code was working.

Documents.Open (filePath & currFile) 'Error Code 429

Here the full macro's code

Sub ConvertDocxInDirToPDF()

Dim filePath As String
Dim currFile As String

filePath = ActiveWorkbook.Path & "\"
MsgBox filePath
currFile = Dir(filePath & "*.docx")

Do While currFile <> ""

    Documents.Open (filePath & currFile) 'Error Code 429

    Documents(currFile).ExportAsFixedFormat _
        OutputFileName:=filePath & Left(currFile, Len(currFile) - Len(".docx")) & ".pdf", _
        ExportFormat:=17
    Documents(currFile).Close

    currFile = Dir()

Loop

Application.ScreenUpdating = True

End Sub

Is there a simple way to make this macro working and to fix this error.

Best regards.

how are you setting the Documents variable? Did you have a look here: stackoverflow.com/questions/17327327/…, perhaps it'll get you going the right direction... — sous2817
– sous2817, Commented Jun 11, 2019 at 15:17

Vityata · Accepted Answer · 2019-06-11 15:53:46Z

3

Documents.Open is a method of the Documents object, which needs the "MS Word Object Library" to function, without being referred to a word object explicitly:

What does this mean? If the Microsoft Word 1X.0 reference is checked (VBE>Extras>Libraries), then the code below works quite ok:

Sub TestMe()

    Dim filePath As String
    filePath = ThisWorkbook.Path & "\"
    Dim currFile As String
    currFile = Dir(filePath & "*.docx")

    Dim wrdDoc As Object
    Documents.Open filePath & currFile

End Sub

If the "MS Word Object Library" is not referred, then with late binding it still could be referred to the object. (Late binding is CreateObject("Word.Application")):

Sub TestMe()

    Dim filePath As String
    filePath = ThisWorkbook.Path & "\"
    Dim currFile As String
    currFile = Dir(filePath & "*.docx")

    Dim wrdApps As Object
    Set wrdApps = CreateObject("Word.Application")
    wrdApps.Documents.Open (filePath & currFile)

End Sub

If needed, Documents.Open may return a document object:

Sub TestMe()

    Dim filePath As String
    filePath = ThisWorkbook.Path & "\"
    Dim currFile As String
    currFile = Dir(filePath & "*.docx")

    Dim wrdApps As Object
    Set wrdApps = CreateObject("Word.Application")

    Dim wrdDoc As Object
    Set wrdDoc = wrdApps.Documents.Open(filePath & currFile)

End Sub

Documentation

edited Jun 11, 2019 at 15:53

answered Jun 11, 2019 at 15:22

Vityata

43.8k10 gold badges64 silver badges110 bronze badges

Sign up to request clarification or add additional context in comments.

5 Comments

TourEiffel Over a year ago

Thank you @Vityata , Thanks it solved my problem can you explain me why Documents.open was working and now this don't. I am trying to understand but i guess i miss something here. Regards

Vityata Over a year ago

@Dorian - you are welcome. I have enlarged the answer, explaining the needed library to use Documents.Open from Excel, without returning an object.

TourEiffel Over a year ago

Helle, Now I got the same error but here : Set wrdApps = CreateObject("Word.Application") Strange fact when i press F5 After the error message the code works well how can I fix this ?

Vityata Over a year ago

@Dorian - strange indeed. Try one of these - create the file in a new word file. Then try one of this - stackoverflow.com/questions/40343021/…

TourEiffel Over a year ago

@Viyata , Thanks I just dodged the issue by Killing Word process at the end of each subb using docx. Thanks for all

Collectives™ on Stack Overflow

How to fix "Execution Error 429 : ActiveX can't create object" error in VBA

1 Answer 1

5 Comments

Your Answer

Linked

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

5 Comments

Your Answer

Sign up or log in

Post as a guest

Linked

Related