Convert words into PDFs in batch

gistfile1.txt

Sub converttopdf()
'
' converttopdf Macro in batch
' https://msdn.microsoft.com/en-us/library/office/aa220734(v=office.11).aspx
'
'
Dim strDocName As String
Dim intPos As Integer

For Each aDocument In Application.Documents
    strDocName = aDocument.Name
    intPos = InStrRev(strDocName, ".")
    strDocName = Left(strDocName, intPos - 1)
    strDocName = strDocName & ".pdf"
    aDocument.SaveAs FileName:=strDocName, FileFormat:=wdFormatPDF
Next aDocument

End Sub