Pfthb

I've found in below link an Excel vba that converts excel files in a specific directory to pdfs.
I want your help to do the needful changes on this code to make it converts Word documents in a specific directory to pdfs.

credits to:
https://www.listendata.com/2013/02/excel-macro-convert-multiple-excel.html

Code is shown below:

Sub ExcelToPDF2()
Dim Path As String, FilesInPath As String _
, OutputPath As String, OutputPath2 As String
Dim MyFiles() As String, Fnum As Long
Dim Buk As Workbook, BukName As String
Dim CalcMode As Long
Dim sh As Worksheet
Dim StartTime As Date, EndTime As Date
Dim LPosition As Integer

'Specify the path of a folder where all the excel files are stored

StartTime = Timer
Path = Range("G6").Text & ""
OutputPath = Range("G8").Text & ""


FilesInPath = Dir(Path & "*.xl*")
If FilesInPath = "" Then
MsgBox "No files found"
Exit Sub
End If

Fnum = 0
Do While FilesInPath <> ""
Fnum = Fnum + 1
ReDim Preserve MyFiles(1 To Fnum)
MyFiles(Fnum) = FilesInPath
FilesInPath = Dir()
Loop

With Application
CalcMode = .Calculation
.Calculation = xlCalculationManual
.ScreenUpdating = False
.EnableEvents = False
End With

If Fnum > 0 Then
For Fnum = LBound(MyFiles) To UBound(MyFiles)
Set Buk = Nothing
On Error Resume Next
Set Buk = Workbooks.Open(Path & MyFiles(Fnum))
On Error GoTo 0

If Not Buk Is Nothing Then


LPosition = InStr(1, Buk.Name, ".") - 1
BukName = Left(Buk.Name, LPosition)
Buk.Activate

OutputPath2 = OutputPath & BukName & ".pdf"

On Error Resume Next
ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:=OutputPath2, 
_
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False

 On Error GoTo 0

End If

Buk.Close SaveChanges:=False

Next Fnum
End If


With Application
.ScreenUpdating = True
.EnableEvents = True
.Calculation = CalcMode
End With

EndTime = Timer
MsgBox "Task succesfully completed in " & Format(EndTime - StartTime, 
"0.00") & " seconds"

End Sub

I've finally found the correct VBA I was looking for:

'In your VBA window go to tools then references and add a reference to 
'Microsoft Word

Sub Converter()
 Dim cnt As Integer, currfile As String
 Dim TrimFile As String, Path As String, FilesInPath As String _
, MyFiles() As String, Fnum As Long
 Dim CalcMode As Long, LPosition As Long
 Dim StartTime As Date, EndTime As Date

 Dim objWord As Word.Application
 Dim objDoc As Word.Document


 ThisWorkbook.Activate
 currfile = ActiveWorkbook.Name

 Windows(currfile).Activate
 Sheets("Sheet1").Activate

 StartTime = Timer
 Path = Range("C3").Text & ""

 FilesInPath = Dir(Path & "*.doc*")
 If FilesInPath = "" Then
 MsgBox "No files found"
 Exit Sub
 End If

 Fnum = 0
 Do While FilesInPath <> ""
 Fnum = Fnum + 1
 ReDim Preserve MyFiles(1 To Fnum)
 MyFiles(Fnum) = FilesInPath
 FilesInPath = Dir()
 Loop

 With Application
 CalcMode = .Calculation
 .Calculation = xlCalculationManual
 .ScreenUpdating = False
 .EnableEvents = False
 End With

 If Fnum > 0 Then
 For Fnum = LBound(MyFiles) To UBound(MyFiles)
 Set objWord = CreateObject("Word.Application")
 'objWord.Visible = True

 On Error Resume Next

 Set objDoc = Word.Documents.Open(Path & MyFiles(Fnum))

 On Error GoTo 0

 If Not objDoc Is Nothing Then

 LPosition = InStr(1, objDoc.Name, ".") - 1
 TrimFile = Left(objDoc.Name, LPosition)

 On Error Resume Next

 objDoc.ExportAsFixedFormat OutputFileName:=objDoc.Path & "" & TrimFile & ".pdf", 
 ExportFormat:=wdExportFormatPDF, _
 OpenAfterExport:=False, OptimizeFor:=wdExportOptimizeForPrint, Range:= _
wdExportAllDocument, From:=1, To:=1, Item:=wdExportDocumentContent, _
IncludeDocProps:=True, KeepIRM:=True, CreateBookmarks:= _
wdExportCreateNoBookmarks, DocStructureTags:=True, BitmapMissingFonts:= _
True, UseISO19005_1:=False



 End If

 objDoc.Close

 Next Fnum
 End If


 With Application
 .ScreenUpdating = True
 .EnableEvents = True
 .Calculation = CalcMode
 End With

 objWord.Quit

 Set objDoc = Nothing
 Set objWord = Nothing

 EndTime = Timer
 MsgBox " Task succesfully completed in " & Format(EndTime - StartTime, "0.00") & " 
seconds"
End Sub

Honestly, the easiest way I can think of to do this is to just record a macro. If you go to Word->Developer->Record a Macro, you can record the function that you want to do. From there, you would have the code, and you can change certain areas from there. Here is the code I got with a few tweaks to do what I think you are looking for:

 Sub Macro1()
'
' Macro1 Macro
'
'
 Dim i As Integer, FileLocation As String, WDoc() As Word.Document

 Dim FilesInPath As String, Path As String, MyFiles() As String, iend As Integer
 Path = "C:..." ' This is where you would like to get the files that need to be exported to .pdfs
 NewPath = "C:..." ' This is where you would like to send the exported files
 FilesInPath = Dir(Path & "*.doc*")
 iend = 0
 Do While FilesInPath <> ""
 iend = iend + 1
 ReDim Preserve MyFiles(1 To iend)
 MyFiles(iend) = FilesInPath
 FilesInPath = Dir()
 Loop

 For i = 1 To iend
 ReDim Preserve WDoc(i)
 Set WDoc(i) = Word.Documents.Open(Path & MyFiles(i))
 FileLocation = NewPath & WDoc(i).Name & ".pdf" ' Location and name of new file
 WDoc(i).ExportAsFixedFormat OutputFileName:=FileLocation, ExportFormat:=wdExportFormatPDF, _
 OpenAfterExport:=False, OptimizeFor:=wdExportOptimizeForPrint, Range:= _
 wdExportAllDocument, From:=1, To:=1, Item:=wdExportDocumentContent, _
 IncludeDocProps:=True, KeepIRM:=True, CreateBookmarks:= _
 wdExportCreateNoBookmarks, DocStructureTags:=True, BitmapMissingFonts:= _
 True, UseISO19005_1:=False
 WDoc(i).Close
 Next i
End Sub