“Run-time error 462 : The remote server machine does not exist or is unavailable” when running VBA code a second time and there after

Sub Word_To_PDF()

Dim objDoc As Document
Dim strFile As String, strFolder As String

  'Initialization
  strFolder = "D:\My Documents\VBA\Test folder\"
  strFile = Dir(strFolder & "*.docx", vbNormal)
 
  'Precess each file in the file folder and convert them to pdf.
  While strFile <> ""
    Set objDoc = Documents.Open(FileName:=strFolder & strFile)
 
    objDoc.ExportAsFixedFormat _
      OutputFileName:=Replace(objDoc.FullName, ".docx", ".pdf"), _
      ExportFormat:=wdExportFormatPDF, OpenAfterExport:=False, OptimizeFor:=wdExportOptimizeForPrint, _
      Range:=wdExportAllDocument, Item:=wdExportDocumentContent
 
    objDoc.Close
    strFile = Dir()
    Wend
  Kill "D:\My Documents\VBA\Test folder\*.doc*"
  
End Sub

 Sub PRE_Redact_NRP_Reports()
 Call PDF_To_Word
 Call Highlight_NRP_Words
 Call Word_To_PDF
 Call Close_word_app
 
 End Sub
 
 Sub PRE_Redact_PWC_Reports()
 
 Call PDF_To_Word
 
 End Sub
 
Sub PDF_To_Word()

Application.ScreenUpdating = False
Application.DisplayAlerts = False
Application.DisplayStatusBar = True

Dim sh As Worksheet
Set sh = ThisWorkbook.Sheets("Interface")

Dim pdf_path As String
Dim word_path As String

pdf_path = sh.Range("Q12").Value
word_path = sh.Range("Q12").Value

Dim fso As New FileSystemObject
Dim fo As Folder
Dim f As File

Set fo = fso.GetFolder(pdf_path)

Dim wa As Object
Dim doc As Object

Set wa = CreateObject("word.application")
wa.Visible = True

Dim file_Count As Integer

For Each f In fo.Files

Application.StatusBar = "Converting - " & file_Count + 1 & "/" & fo.Files.Count
Set doc = wa.Documents.Open(f.Path)
doc.SaveAs2 (word_path & "\" & Replace(f.Name, ".pdf", ".docx"))
doc.Close False
file_Count = file_Count + 1
Next

wa.Quit
Kill "D:\My Documents\VBA\Test folder\*.pdf*"

End Sub

 Sub Highlight_NRP_Words()
 Application.ScreenUpdating = False
 
 Dim Word As Variant
 Dim WordCollection(2) As String
 Dim Words As Variant
 Dim vfile As String, sFldr As String
 Dim oDoc As Document
 
 
 ' Requires a reference to Microsoft Word xx Object Library
 
 Dim appWd As Word.Application
 Dim wrdDoc As Word.Document
 
 On Error Resume Next
 Set appWd = GetObject("Word.Application")
 On Error GoTo 0
 If appWd Is Nothing Then Set appWd = New Word.Application
 
 appWd.Visible = True
 
 sFldr = "D:\My Documents\VBA\Test folder\" '<- change this
 vfile = Dir(sFldr & "*.*")
 'Define list.
 'If you add or delete, change value above in Dim statement.
 WordCollection(0) = "very"
 WordCollection(1) = "I have"
 WordCollection(2) = "error message"
 
 Do While vfile <> ""
 Set oDoc = appWd.Documents.Open(FileName:=sFldr & vfile)
 'Set highlight color.
 appWd.Options.DefaultHighlightColorIndex = wdYellow
 'Clear existing formatting and settings in Find feature.
 ''/// I don't know where these selections are being made
 appWd.Selection.Find.ClearFormatting
 appWd.Selection.Find.Replacement.ClearFormatting
 'Set highlight to replace setting.
 appWd.Selection.Find.Replacement.Highlight = True
 'Cycle through document and find words in collection.
 'Highlight words when found.
 For Each Words In WordCollection
 ''///you need some code to select
 With appWd.Selection.Find
 .Text = Words
 .Replacement.Text = ""
 .Forward = True
 .Wrap = wdFindContinue
 .Format = True
 .MatchCase = False
 .MatchWholeWord = True
 .MatchWildcards = False
 .MatchSoundsLike = False
 .MatchAllWordForms = False
 End With
 appWd.Selection.Find.Execute Replace:=wdReplaceAll
 Next
 oDoc.Close SaveChanges:=True
 vfile = Dir
 Loop
 Application.ScreenUpdating = True
End Sub
 
Sub Word_To_PDF()
Dim WordApp As Word.Application
Dim objDoc As Document
Dim strFile As String, strFolder As String
'Initialization
strFolder = "D:\My Documents\VBA\Test folder\"
strFile = Dir(strFolder & "*.docx", vbNormal)
Set WordApp = New Word.Application
'Precess each file in the file folder and convert them to pdf.
While strFile <> ""
Set objDoc = WordApp.Documents.Open(FileName:=strFolder & strFile)
objDoc.ExportAsFixedFormat _
OutputFileName:=Replace(objDoc.FullName, ".docx", ".pdf"), _
ExportFormat:=wdExportFormatPDF, OpenAfterExport:=False, OptimizeFor:=wdExportOptimizeForPrint, _
Range:=wdExportAllDocument, Item:=wdExportDocumentContent
objDoc.Close
strFile = Dir()
Wend
WordApp.Quit
Kill "D:\My Documents\VBA\Test folder\*.doc*"
End Sub

Sub Close_word_app()

Dim AppWord As Object
 
 Set AppWord = GetObject(, "Word.Application")
 AppWord.Quit False
 

End Sub