RunTime Error 462 while converting word docx to PDF

[SydneyBuoy]

'******* EmpFolder is a Global Variable containing Folder Path *************************

Sub BatchConvertDocxToPDF()
Dim objDoc1 As Document
Dim strFile As String, strFolder As String

'Initialization
strFolder = EmpFolder & ""
strFile = Dir(strFolder & "*.docx", vbNormal)

'Precess each file in the file folder and convert them to pdf.
While strFile <> ""
Set objDoc1 = Documents.Open(Filename:=strFolder & strFile)

objDoc1.ExportAsFixedFormat _
OutputFileName:=Replace(objDoc1.FullName, ".docx", ".pdf"), _
ExportFormat:=wdExportFormatPDF, OpenAfterExport:=False, OptimizeFor:=wdExportOptimizeForPrint, _
Range:=wdExportAllDocument, Item:=wdExportDocumentContent

objDoc1.Close
strFile = Dir()
Wend
End Sub


The following line is highlighted as the error "Set objDoc1 = Documents.Open(Filename:=strFolder & strFile)". Run Time Error 462: The Remote Server Machine does not exist or is unavailable.

 

[ndeveloper]

I am trying to change several word files to pdf, the first file works, but when I run the second file I get the error:​

RunTime Error 462 while converting word docx to PDF​

When the program stops I will see the Debug option, it shows the following instruction

DOCUMENTS.Open FileName:=FileDocPath, _
ConfirmConversions:=False, _
ReadOnly:=False, _
AddToRecentFiles:=False, _
PasswordDocument:="", _
PasswordTemplate:="", _
Revert:=False, _
WritePasswordDocument:="", _
WritePasswordTemplate:="", _
Format:=wdOpenFormatAuto, _
XMLTransform:=""

 

[RoryA]

Is this code in Word? Does FileDocPath contain the correct document name (hopefully not the name of the document with the code in)